Enable/disable controls on a Tabulated Form

[chengsi]

Hi all,

This is my first post, so please excuse if i am posting a silly question.

I have an MS Access database and have created a tabulated form (where there are multiple lines, one for each record - similar to a table, hence the name). There are about 10 fields or so, and i have used textboxes, combo-boxes and checkboxes to represent the fields.

What I am trying to do is to enable or disable textbox_2, depending on the value of textbox_1 for the *same* record. I have tried using VBA code in the AFTER_Update event but the problem is that when i update textbox_1, it disables or enables textbox_2 for *all* records.

Is there a way I can tell Access to only disable/enable textbox_2 for the *same* record?

Your help is much appreciated.

[MMcCarthy]

The short answer is no.

However, although the textbox will be disabled for all records you can reset it to enabled in the OnCurrent or OnActivate event in the form so that when you move to the next record the textbox will be enabled again.

[chengsi]

Hi mmcarthy,

I've tried to do as suggested but could not get it to work. Could you go into that solution with a bit more detail, that is what i should be telling each control/form event to be doing?

Much appreciated.

[NeoPa]

You could try putting in some code in the 'OnCurrent' event.
It wouldn't set it all up as the records display, but it would ensure the operator could only ever enter fields that were ok by your code.

[MMcCarthy]

 
Private Sub Form_OnCurrent()
 
    If Me.textbox_1 = "some string" Then
        Me.textbox_2.Enabled = True
    Else
        Me.textbox_2.Enabled = False
    End If
 
End Sub
 
 

By putting this value in the forms on current event it will run each time the form record changes.

If you are using tabbed pages you should be able to run this instead in the on change event of the tab control.

 
Private Sub TabCtlName_Change()
 
    If Me.textbox_1 = "some string" Then
        Me.textbox_2.Enabled = True
    Else
        Me.textbox_2.Enabled = False
    End If
 
End Sub