JohnnyJones
New member
- Local time
- Today, 15:30
- Joined
- Nov 8, 2014
- Messages
- 3
I use access occasionally but wouldnt be the greatest developer. My head is stuck to find out why the Invalid Qualifier error keeps occuring. If anyone could see why that would be a huge help. This is the code, and I've highlighted the line where it says its invalid qualifier:
Private Sub BtnAddBooking_Click()
Dim CustomerID As String
Dim StaffID As String
Dim intPos As Integer
Dim strSQL As String
Dim strSQL2 As String
Dim BathValue As String
Dim rst As DAO.Recordset
Dim RemainingBookingExists As String
Dim RemainingBaths As Integer
Dim RemainingBathsExists As String
If Len(Me.OpenArgs) > 0 Then
intPos = InStr(Me.OpenArgs, "|")
If intPos > 0 Then
CustomerID = Left$(Me.OpenArgs, intPos - 1)
StaffID = Mid$(Me.OpenArgs, intPos + 1)
End If
End If
If DCount("ID", "Remaining_Bookings", "CustomerID=" & CustomerID) > 0 Then
RemainingBookingExists.Value = "Yes"
Else
Set RemainingBookingExists.Value = "No"
End If
Private Sub BtnAddBooking_Click()
Dim CustomerID As String
Dim StaffID As String
Dim intPos As Integer
Dim strSQL As String
Dim strSQL2 As String
Dim BathValue As String
Dim rst As DAO.Recordset
Dim RemainingBookingExists As String
Dim RemainingBaths As Integer
Dim RemainingBathsExists As String
If Len(Me.OpenArgs) > 0 Then
intPos = InStr(Me.OpenArgs, "|")
If intPos > 0 Then
CustomerID = Left$(Me.OpenArgs, intPos - 1)
StaffID = Mid$(Me.OpenArgs, intPos + 1)
End If
End If
If DCount("ID", "Remaining_Bookings", "CustomerID=" & CustomerID) > 0 Then
RemainingBookingExists.Value = "Yes"
Else
Set RemainingBookingExists.Value = "No"
End If