if else

[Marcelino Benitez via AccessMonster.com]

I'm triyng to fild checkoudDate and InOrOut field but I can't because
everytime that the CheckoutID is empty keep filling out the other two. my ?
is if the field is empty is suppose to leave empty the other two.

Private Sub CheckoutID_AfterUpdate()
If CheckoutID = " " Then
CheckoutDate = " "
InOrOut = 0
Else
CheckoutDate = Date
InOrOut = 1
End If


End Sub

 

[Allen Browne]

Test of Null instead of a space:
If IsNull(CheckoutID) Then
CheckoutDate = Null
InOrOut = 0
Else
CheckoutDate = Date
InOrOut = 1
End If

For more info about how to work with nulls, see:
Common errors with Null
at:
http://allenbrowne.com/casu-12.html