coding an option group

[Guest]

please help, i am building a form with 6 text boxes and a YES/NO option group
for each text box.

the first txt box is visible, if the user answers yes to the questions, this
txtbox is no longer visible and the next box is and so on.

my problem is that althopugh i have the optgroup saving the answer to the
underlying table when i choose an option, it changes all of the records at
the same time.

can you help , my code so far is ( iwas trying to use a cmb list first but
had the same probs) thanks richard
Const Yes = 1
Const No = 2

Dim txtapprec As String
Dim txtvalinstr As String
Dim cmbAppsrec As ComboBox
Dim cmbValInst As ComboBox
Dim caseref As String


Me!caseref.SetFocus
Me!txtapprec.Visible = Me!optAppsRec = Yes
Me!optAppsRec.Visible = Me!optAppsRec = Yes
Me!txtvalinstr.Visible = Me!optAppsRec = Yes
Me!optValInstr.Visible = Me!optAppsRec = Yes
Me!lblvalinst.Visible = Me!optAppsRec = Yes
Me!txtvalinstr = Date + 2 = Me!optAppsRec = Yes
Me!cmbValInstr = "Select" = Me!optAppsRec = Yes

Me.txtapprec = Date + 1 = Me!optAppsRec = No
Me.txtapprec.ForeColor = vbRed = Me!optAppsRec = No
Me.cmbAppsrec = "Select" = Me!optAppsRec = No

 

[John Nurick]

Hi Richard,

It's not clear what you're doing, but I get the impression that you may
have unbound controls on a continuous form. In that case, all the
controls will display the value you assign to the control on the current
record.

 

[Guest]

hi john,

i do have unbound controls and this all makes sense now. thanks very much.

richard