update data in non-duplicate entry

[mmiraj]

Hii Guys

I have the Hotel program that is coded below.
This program can call any data that i have entered(auto look-up) by using GuestID as a primary key/no duplicate.
The problem is
Since DateCheckOut must be filled when the guest check out, everytime i call each data by entering GuestID, I can't update DateCheckout. it doesn't allow me to enter Datecheckout
Any body can help me

Thank you for your time
mm


Private Sub GuestID_BeforeUpdate(Cancel As Integer)
If IsNull(DLookup("[GuestID]", "Guest-Tamuygteregistrasirecord", "[GuestID] = " & Me.[GuestID])) Then
MsgBox " Guest ID Tidak ada ."
Me.Undo
Cancel = True
End If
End Sub

Private Sub GuestID_AfterUpdate()
Dim varLastName, FirstName, DateCheckIn, DateCheckOut, RoomRate, typeofRoom, occupanctquantity, DepositDue As Variant

varLastName = DLookup("LastName", "Guest_Application_Record", "GuestID =" & Me![GuestID])
varFirstName = DLookup("FirstName", "Guest_Application_Record", "GuestID =" & Me![GuestID])
vardatecheckin = DLookup("datecheckin", "Guest-Tamuygteregistrasirecord", "GuestID =" & Me![GuestID])
varRoomNumber = DLookup("RoomNumber", "Guest-Tamuygteregistrasirecord", "GuestID =" & Me![GuestID])
varroomrate = DLookup("roomrate", "Guest-Tamuygteregistrasirecord", "GuestID =" & Me![GuestID])
vartypeofroom = DLookup("typeofroom", "Guest-Tamuygteregistrasirecord", "GuestID =" & Me![GuestID])
varoccupancyquantity = DLookup("occupancyquantity", "Guest-Tamuygteregistrasirecord", "GuestID =" & Me![GuestID])
vardepositdue = DLookup("depositdue", "Guest-Tamuygteregistrasirecord", "GuestID =" & Me![GuestID])

If (Not IsNull(varLastName)) Then Me!LastName = varLastName
If (Not IsNull(varFirstName)) Then Me!FirstName = varFirstName
If (Not IsNull(vardatecheckin)) Then Me!DateCheckIn = vardatecheckin
If (Not IsNull(varroomrate)) Then Me!RoomRate = varroomrate
If (Not IsNull(varRoomNumber)) Then Me!RoomNumber = varRoomNumber
If (Not IsNull(vartypeofroom)) Then Me!typeofRoom = vartypeofroom
If (Not IsNull(varoccupancyquantity)) Then Me!OccupancyQuantity = varoccupancyquantity
If (Not IsNull(vardepositdue)) Then Me!DepositDue = vardepositdue
End Sub