G
gchichester via AccessMonster.com
After adding another search option in my code I started receiving
a "Illegal function call", I discovered that my strInput boxes should
be Variant data type so I made the change but I'm still receiving the
same error when any one of the search criteria is null/blank.
Private Sub cmdSearchBookings_Click()
Dim frm As Form
Dim strMsgShipper As String
Dim strMsgConsignee As String
Dim strFilter As String
Dim varInputBookingNumber As Variant
Dim varInputShipper As Variant
Dim varInputConsignee As Variant
Forms!frmHomePort.Visible = False
DoCmd.OpenForm "frmSearchEuropeNotice"
Set frm = Forms!frmSearchEuropeNotice.Form
strMsgBookingNumber = "Enter Booking Number " & "Or Leave blank if
searching by Shipper"
strMsgShipper = "Enter Shipper Name " & "followed by an asterisk."
strMsgConsignee = "Enter Consignee Name " & "followed by an asterisk."
varInputBookingNumber = InputBox(strMsgBookingNumber)
varInputShipper = InputBox(strMsgShipper)
varInputConsignee = InputBox(strMsgConsignee)
If Not IsNull(varInputBookingNumber) Then
strFilter = strFilter & " AND " & BuildCriteria("BookingNoticeBookingNo",
dbText, varInputBookingNumber)
End If
If Not IsNull(varInputShipper) Then
strFilter = strFilter & " AND & BuildCriteria("BookingNoticeShipper",
dbText, varInputShipper)
End If
If Not IsNull(varInputConsignee) Then
strFilter = strFilter & " AND & BuildCriteria("BookingNoticeConsignee",
dbText, varInputConsignee)
End If
'MsgBox Mid(strFilter, 6)
frm.Filter = Mid(strFilter, 6)
frm.FilterOn = True
End Sub
Any and all suggestions would be appreciated
Gilc
a "Illegal function call", I discovered that my strInput boxes should
be Variant data type so I made the change but I'm still receiving the
same error when any one of the search criteria is null/blank.
Private Sub cmdSearchBookings_Click()
Dim frm As Form
Dim strMsgShipper As String
Dim strMsgConsignee As String
Dim strFilter As String
Dim varInputBookingNumber As Variant
Dim varInputShipper As Variant
Dim varInputConsignee As Variant
Forms!frmHomePort.Visible = False
DoCmd.OpenForm "frmSearchEuropeNotice"
Set frm = Forms!frmSearchEuropeNotice.Form
strMsgBookingNumber = "Enter Booking Number " & "Or Leave blank if
searching by Shipper"
strMsgShipper = "Enter Shipper Name " & "followed by an asterisk."
strMsgConsignee = "Enter Consignee Name " & "followed by an asterisk."
varInputBookingNumber = InputBox(strMsgBookingNumber)
varInputShipper = InputBox(strMsgShipper)
varInputConsignee = InputBox(strMsgConsignee)
If Not IsNull(varInputBookingNumber) Then
strFilter = strFilter & " AND " & BuildCriteria("BookingNoticeBookingNo",
dbText, varInputBookingNumber)
End If
If Not IsNull(varInputShipper) Then
strFilter = strFilter & " AND & BuildCriteria("BookingNoticeShipper",
dbText, varInputShipper)
End If
If Not IsNull(varInputConsignee) Then
strFilter = strFilter & " AND & BuildCriteria("BookingNoticeConsignee",
dbText, varInputConsignee)
End If
'MsgBox Mid(strFilter, 6)
frm.Filter = Mid(strFilter, 6)
frm.FilterOn = True
End Sub
Any and all suggestions would be appreciated
Gilc