Run-time Error 424 and Recordsets

[tbpcpa]

Private Sub Data1_Reposition()
datOrders.RecordSource = "select OrderDate, " & _
"requiredDate from Orders where " & _
"CustomerID = '" & _
datCustomers.Recordset.Fields("CustomerID&quot & "'"
datOrders.Refresh
End Sub



gives me a run-time error 424.... basically anything with a recordset in it... what gives?

 

[zemp]

I just created a small app with two data controls pointing to the same database and the following code works fine.

Private Sub datCustomers_Reposition()
datOrders.RecordSource = "select firstname,lastname FROM tblCustomers where CustID=" & datCustomers.Recordset.Fields("CustID&quot & ";"
datOrders.Refresh
End Sub


The only thing that I can suggest is to make sure of your object names, table and field names and field datatypes. In my example my customer ID is an integer so I left out the single quotes. Thanks and Good Luck!

zemp

 

[tbpcpa]

Well... this was based off the Northwinds supplied database... and at work or at home.. I can't seem to be able to use recordsets at all... always get a Run-Time 424 error... guess I'm missing something somewhere.. thanks though

 

[tbpcpa]

Ok... the code I listed is it primarily... do i need

Private ........ As Recordset and/or
Set ......



I have neither

 

[zemp]

I don't think so. The code that I have posted is all the code in the entire project, except my Option Explicit declaration. The rest is handled by setting the data controls properties at run time.

Sorry I can't be of more help. Thanks and Good Luck!

zemp