Dear all
I am using the expression; some work some do not i have no idea why
Can anyone tell me ?!
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me!Pass_A_30Nov = 0 Then
Me!Pass_A_30Nov.Visible = False
Else
Me!Pass_A_30Nov.Visible = True
End If
If Me!Pass_B_28Nov = 0 Then
Me!Pass_B_28Nov.Visible = False
Else
Me!Pass_B_28Nov.Visible = True
End If
If Me!Pass_B_29Nov = 0 Then
Me!Pass_B_29Nov.Visible = False
Else
Me!Pass_B_29Nov.Visible = True
End If
If Me!Pass_B_30Nov = 0 Then
Me!Pass_B_30Nov.Visible = False
Else
Me!Pass_B_30Nov.Visible = True
End If
If Me!Arr_Date = 0 Then
Me!Arr_Date.Visible = False
Else
Me!Arr_Date.Visible = True
End If
If Me!Arr_FLT = 0 Then
Me!Arr_FLT.Visible = False
Else
Me!Arr_FLT.Visible = True
End If
If Me!DropOff = 0 Then
Me!DropOff.Visible = False
Else
Me!DropOff.Visible = True
End If
If Me!Dep_Date = 0 Then
Me!Dep_Date.Visible = False
Else
Me!Dep_Date.Visible = True
End If
If Me!Dep_FLT = 0 Then
Me!Dep_FLT.Visible = False
Else
Me!Dep_FLT.Visible = True
End If
If Me!PickUPHotel = 0 Then
Me!PickUPHotel.Visible = False
Else
Me!PickUPHotel.Visible = True
End If
End Sub