checkbox clear

awake2424

Registered User.
Local time
Today, 02:32
Joined
Oct 31, 2007
Messages
479
Code:
Private Sub Check253_AfterUpdate()
Me.Text255 = Environ("UserName")
If Me.Check253 = -1 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")
     Me.Text259.Value = Date
 End If
End Sub
How do I clear the values in each textbox if check253 = 0 rather then going to each and clearing them? Thank you.
 
Try:
Code:
Private Sub Check253_AfterUpdate()
Me.Text255 = Environ("UserName")
If Me.Check253 = -1 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")
     Me.Text259.Value = Date
Else
     Me.Text254 = ""
     Me.Text256 = ""
     Me.Text258 = ""
     Me.Text260 = ""
     Me.Text262 = ""
     Me.Text264 = ""
     Me.Text266 = ""
     Me.Text268 = ""
     Me.Text259.Value = ""
 End If
End Sub
You may need to set each text box to Null instead of ""
 
Thank you.
 

Users who are viewing this thread

Back
Top Bottom