Hi I'm writing a sort of complex query in Access 2003 with vba.
I have only started learning Access a few days ago, but I have some experience in C++, Java, etc.
My goal is to cross-reference each SKU within each order to see the most common ones sold together.
This is a test code as I'm figuring out how the language is structured.
Here is my code:
Code:
Sub getSKUS()
Dim db As Database
Dim rs_data As Recordset
Dim rs_sku As Recordset
Dim rs_order As Recordset
Dim fld As Field
Dim strSQL As String
'Open connection to current Access database
Set db = CurrentDb()
Set rs_data = db.OpenRecordset("ORDER_DATA")
Set rs_sku = db.OpenRecordset("SKUS")
Set rs_order = db.OpenRecordset("ORDERS")
Dim curSKU As String
curSKU = "161-0363"
rs_sku.MoveFirst
Do While Not rs_sku.EOF
If rs_sku.Fields("SKUS_ORDERED").Value = curSKU Then
MsgBox "SKU found."
rs_sku.MoveNext
Loop
End Sub
All the record_sets are tables containing order info in my database.
When I try to run it I get the error "Loop without Do".
Can you help me out?