checkbox clear

[awake2424]

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.

 

[bob fitz]

Try:

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 ""

 

[awake2424]

Thank you.