Try this
Private Sub Booking_AfterUpdate()
On Error GoTo Err_Booking_AfterUpdate
If Me.booking_type = "occasional" Then
Me.booking_date = Now()
Dim strTblName As String, strValidRule As String
Dim strValidText As String
Dim intX As Integer
Dim thedate As Date
Dim seconddate As Date...