Hi guy's i am getting a runtime error 3075 on this code and can't see why ?? Syntax error missing operator
Highlighted red is the error and whatever i need to change, i guess i would need to change the lines below
Thank you
Code:
Dim InvDate As Date, DateNow As Date, mStart As Date, mEnd As Date, lkStart As Date, lkEnd As Date
Dim mTotal As Currency, PaidNo As Currency, PaidYes As Currency
Cust = Me.cboList1Options.Column(0)CAdd1 = Me.cboList1Options.Column(1)
CAdd2 = Me.cboList1Options.Column(2)
CTown = Me.cboList1Options.Column(3)
cPostcode = Me.cboList1Options.Column(4)
If IsNull(lkStart = DMin("InvoiceDate", "tblInvoices", "[Customer] = '" & Cust & "'")) Then
lkStart = ""
Else
lkStart = Format(DMin("InvoiceDate", "tblInvoices", "[Customer] = '" & Cust & "'"), "dd-mmm-yyyy")
End If
If IsNull(lkEnd = DMax("InvoiceDate", "tblInvoices", "[Customer] = '" & Cust & "'")) Then
lkEnd = ""
Else
lkEnd = Format(DMax("InvoiceDate", "tblInvoices", "[Customer] = '" & Cust & "'"), "dd-mmm-yyyy")
End If
mStart = InputBox("Enter Start Date ?" & Chr(10) & Chr(10) & _
"The Default Date Is The Earliest Date On The System For," & Chr(10) & Chr(10) & _
Me.cboList1Options, "ENTER START DATE", lkStart)
mEnd = InputBox("Enter End Date ?" & Chr(10) & Chr(10) & _
"The Default Date Is The Latest Date On The System For," & Chr(10) & Chr(10) & _
Me.cboList1Options, "ENTER END DATE", lkEnd)
If Not IsNull(PaidYes = DSum("Price", "tblInvoices", "[Customer] = '" & Cust & "'" & " And [InvoiceDate] Between #" & mStart & "# And #" & mEnd & "#" & " [Paid] = Yes")) Then
PaidYes = DSum("Price", "tblInvoices", "[Customer] = '" & Cust & "'" & " And [InvoiceDate] Between #" & mStart & "# And #" & mEnd & "#" & " [Paid] = Yes")
Else
PaidYes = ""
End If
If Not IsNull(PaidNo = DSum("Price", "tblInvoices", "[Customer] = '" & Cust & "'" & " And [InvoiceDate] Between #" & mStart & "# And #" & mEnd & "#" & " [Paid] = No")) Then
PaidNo = DSum("Price", "tblInvoices", "[Customer] = '" & Cust & "'" & " And [InvoiceDate] Between #" & mStart & "# And #" & mEnd & "#" & " [Paid] = No")
Else
PaidNo = ""
End If
mTotal = DSum("Price", "tblInvoices", "[Customer] = '" & Cust & "'" & " And [InvoiceDate] Between #" & mStart & "# And #" & mEnd & "#")