Disabling/enabling a text box in the form

S

SPK

I am facing a problem after disabling the text box based on the value of
another text box.

The problem is the text boxes appear disabled or enabled based on the last
form selection of the text. I have used the following code for the same. And
when I close and open the database the disabled text boxes appear enabled
again.

Private Sub Result_AfterUpdate()
If Me.Result.Text = "Positive" Then
Me.Drug_Incub_Test_Dt.Enabled = True
Me.OD_Drug_Incub.Enabled = True
Me.OD_Without_Drug_incub.Enabled = True
Me.Cutoff_OD_Incub.Enabled = True
Me.Result_Incub.Enabled = True
Me.Neutralising_Ab_Test_Dt.Enabled = True
Me.OD_Neut.Enabled = True
Me.Cutoff_OD_Neut.Enabled = True
Me.Result_Neut.Enabled = True
Else
Me.Drug_Incub_Test_Dt.Enabled = False
Me.OD_Drug_Incub.Enabled = False
Me.OD_Without_Drug_incub.Enabled = False
Me.Cutoff_OD_Incub.Enabled = False
Me.Result_Incub.Enabled = False
Me.Neutralising_Ab_Test_Dt.Enabled = False
Me.OD_Neut.Enabled = False
Me.Cutoff_OD_Neut.Enabled = False
Me.Result_Neut.Enabled = False
End If
End Sub

can anobody help.
 
J

Jeanette Cunningham

spk,
you need to put the same code in the form's On Current event.

Easiest way is to write the code just once in a separate routine like this:
--------------------------
Private Sub EnableDisable()
If Me.Result.Text = "Positive" Then
Me.Drug_Incub_Test_Dt.Enabled = True
Me.OD_Drug_Incub.Enabled = True
Me.OD_Without_Drug_incub.Enabled = True
Me.Cutoff_OD_Incub.Enabled = True
Me.Result_Incub.Enabled = True
Me.Neutralising_Ab_Test_Dt.Enabled = True
Me.OD_Neut.Enabled = True
Me.Cutoff_OD_Neut.Enabled = True
Me.Result_Neut.Enabled = True
Else
Me.Drug_Incub_Test_Dt.Enabled = False
Me.OD_Drug_Incub.Enabled = False
Me.OD_Without_Drug_incub.Enabled = False
Me.Cutoff_OD_Incub.Enabled = False
Me.Result_Incub.Enabled = False
Me.Neutralising_Ab_Test_Dt.Enabled = False
Me.OD_Neut.Enabled = False
Me.Cutoff_OD_Neut.Enabled = False
Me.Result_Neut.Enabled = False
End If
End Sub
----------------------
Then you can go

Private Sub Result_AfterUpdate()
Call EnableDisable
End Sub

Private Form_Current()
Call EnableDisable
End Sub


Jeanette Cunningham -- Melbourne Victoria Australia
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Locking/Enabling Combo Box in Form 6
Reset form when adding a new record 1
Radio button enables Combo Box 3
Disable Text Box Based on Value of Another Text Box 3
Hide text box 1
Enabling fields based on multiple criteria 2
Combine multiple if statements in one text box 3
Set Enabled On All Controls in a Form? 3

Top