checkbox click

awake2424

Registered User.
Local time
Today, 02:32
Joined
Oct 31, 2007
Messages
479
Code:
Private Sub Check248_Click()
  If Me.Check248 = 0 Then
     Me.Text254 = DLookup("[Lot]", "[tblAutoGen]", "[Inuse] = -1")
     Me.Text256 = DLookup("[Exp]", "[tblAutoGen]", "[Inuse] = -1")
     Me.Text258 = DLookup("[Lot]", "[tblEthanol]", "[Inuse] = -1")
     Me.Text260 = DLookup("[Exp]", "[tblEthanol]", "[Inuse] = -1")
     Me.Text262 = DLookup("[Lot]", "[tblDPBS]", "[Inuse] = -1")
     Me.Text264 = DLookup("[Exp]", "[tblDPBS]", "[Inuse] = -1")
     Me.Text266 = DLookup("[Lot]", "[tblTE]", "[Inuse] = -1")
     Me.Text268 = DLookup("[Exp]", "[tblTE]", "[Inuse] = -1")
End If
End Sub

I am using the above code and it is suppose to update the 8 textbox's when Check248 is checked, but it is not and I am not sure why. Thank you.
 
Add a Me.Requery after your End IF

Just a guess.
 

Users who are viewing this thread

Back
Top Bottom