How to give a value to a TextBox depending its row in a subform?

[Orchaval]

Hi everybody

I'm having troubles to give a value to a TextBox(called TextUM),according its row position in a subform.

The things is that i have i Subform called(SubFormModel3 - Zone1) and when i get into Design View i see 5 different TextBoxes (TextUM,TextUC, TextTrolley, TextUnite, Designation) and 1 Combobox.

When i enter to the DataSheet View everything is perfect, I see my 40 items(each one on a different row) and from one side i see 40 rows(each one with its own combobox option) and I want that depending on the choice (UM, UC, Trolley, Unite) of the user in every combobox, my variable (Uresult)is displayed in the proper TextBox in the row where the choice was made.

Just to clarify, i store the result of the combobox in a variable(called MeasureUnit) and the number of the row of the combobox selected(called PositionRow)


Public Sub Combobox_Click()

Dim PositionRow as Integer
Dim MeasureUnit as String
Dim Uresult as Double 
 
    If (MeasureUnit = "UM") Then
       UMValue = ((QteComposants(PositionRow) / 1000) / UM(PositionRow))           ' No important
 
       TextUM.Value(PositionRow)= UMValue  <---- Problem
    End if
 

It drops me the error 13, type mismatch

Any help?

[hvsummer]

well, Orchaval, you use it wrong way.
if textUM is textbox, then you don't need to set textUM.value* = variable
just

Public Sub Combobox_Click()
If (MeasureUnit = "UM") Then
me.TextUM = ((QteComposants(PositionRow) / 1000) / UM(PositionRow))
if me.dirty then me.dirty = false '(no need end if for this code... ==)
end if
end sub

but I suggest you create a seperate button and add this code (needsome tweak) into that button (name: save record)

[Orchaval]

Thank you for your response hvsummer. The problem that happens when I do that is that the result is copied in the other rows from the same Textbox (TextUM), and I want just to be copied in the row in which it was chosen.

[hvsummer]

@orchaval: can you make it more detail ?
and give some more code (rowsource, control source) of the relative textbox or combobox.
the part "the result is copied in the other rows from the same Textbox (TextUM), and I want just to be copied in the row in which it was chosen." is not clear to understand.

[jforbes]

First, I don't understand this:

       TextUM.Value(PositionRow)= UMValue  <---- Problem

I could be wrong, I don't think you can reference items like this. You can in .Net, sort of, but this would be a new one for me in Access.
Second, is TextUM a Bound or Unbound TextBox? And is this on a Continous Form? You won't be able to do what you want with Unbound Controls on a Continuos Form. Even though Access creates multiple instances of the Control on the Screen, they all share one set of properties. So, with an Unbound Control on a Continuous Form, if you change the value of one, it changes for all of the controls, regardless of what record they are on.