Karl`s Tutorial 4

[JamesStenerson]

Hy all, I am having a difficult time with this code:Private Sub cmdFind_Click()

Dim db As Database
Dim rs As Recordset
Dim SQLString As String

Set db = OpenDatabase("c:\Nwind.mdb")

SQLString = "SELECT Orders.CustomerID, " & _
"Count(Orders.OrderID) " & _
"AS NoOfOrders From Orders GROUP " & _
"BY Orders.CustomerID " & _
"HAVING (((Orders.CustomerID)='" & _
txtCustID.Text & "'))"


Set rs = db.OpenRecordset(SQLString)
txtTotalNumber.Text = rs.Fields("NoOfOrders")

SQLString = "SELECT Orders.CustomerID, " & _
"Last(Orders.OrderDate) " & _
"AS LastOrderDate From Orders GROUP " & _
"BY Orders.CustomerID " & _
"HAVING (((Orders.CustomerID)='" & _
txtCustID.Text & "'))"

>>>>MISMATCH ERROR Set rs = db.OpenRecordset(SQLString)

txtLastDate.Text = rs.Fields("LastOrderDate")
txtLastDate.Text = Format(txtLastDate.Text, "Long Date")

rs.Close
db.Close

End Sub


Can anybody see anything wrong? I keep coming up with a mismatch error.

Thankyou for all your help

James ( the newbie )

[CGTS]

Apart from this line........

>>>>MISMATCH ERROR Set rs = db.OpenRecordset(SQLString)

which should be........

Set rs = db.OpenRecordset(SQLString)

I cannot see a lot else wrong.

[Clunietp]

It must be something in the SQL statement....Debug.Print the SQL statement before you do your Db.OpenRecordset

[Gary.Lowe]

Check the values being entered into the table fields are the right type.

i.e.
you are not trying to put characters "abcdefg" into a filed that will only accept numeric "1234567"

Also try checking the format the date is being sent to the database.

[JamesStenerson]

Thankyou guys for the feedback. I will see if the data types are the same, however should it matter if you are only extracing values from a table? and not inserting?

BTW the line with the >>>>Mismatch Error was put there so I could show you were the error is taking place.

Thankyou for all your help!

James Stenerson