Hi,
I'm just wondering if there is any differences in writing queries in vba in different versions of access. i'm developing a search function in access 2000, but it doesn't seem to be working. however, the same code in access 2003 works fine.
Here's an extract of the code when the search button is clicked (I'm getting table information, attribute/field information and condition they're specifying from the user. The result is then displayed in a subform):
Private Sub cmdFind_Click()
Dim searchSQL As String
Me.cmbTable.SetFocus
searchSQL = "select * from ENGINEERS INNER JOIN TEL_CABLING ON ENGINEERS.EngID = TEL_CABLING.EngID where " & Me.cmbTable.Text & "."
Debug.Print searchSQL
Me.cmbAttribute.SetFocus
searchSQL = searchSQL & Me.cmbAttribute.Text
Debug.Print searchSQL
Me.txtCondition.SetFocus
searchSQL = searchSQL & Me.txtCondition.Text
Debug.Print searchSQL
Me.subfrmTest.Form.RecordSource = searchSQL
Me.subfrmTest.Form.Requery
End Sub
The part in red is the part that is highlighted whenever i run it in access 2000. The error message is: " You entered an experession that has an invalid reference to the property RecordSource "
Can anyone tell my why it's like that and how i can fix it to work for access 2000?
Thanks
I've also enclosed a picture of the form, so you can get a feel of what it looks like.
Kathy
I'm just wondering if there is any differences in writing queries in vba in different versions of access. i'm developing a search function in access 2000, but it doesn't seem to be working. however, the same code in access 2003 works fine.
Here's an extract of the code when the search button is clicked (I'm getting table information, attribute/field information and condition they're specifying from the user. The result is then displayed in a subform):
Private Sub cmdFind_Click()
Dim searchSQL As String
Me.cmbTable.SetFocus
searchSQL = "select * from ENGINEERS INNER JOIN TEL_CABLING ON ENGINEERS.EngID = TEL_CABLING.EngID where " & Me.cmbTable.Text & "."
Debug.Print searchSQL
Me.cmbAttribute.SetFocus
searchSQL = searchSQL & Me.cmbAttribute.Text
Debug.Print searchSQL
Me.txtCondition.SetFocus
searchSQL = searchSQL & Me.txtCondition.Text
Debug.Print searchSQL
Me.subfrmTest.Form.RecordSource = searchSQL
Me.subfrmTest.Form.Requery
End Sub
The part in red is the part that is highlighted whenever i run it in access 2000. The error message is: " You entered an experession that has an invalid reference to the property RecordSource "
Can anyone tell my why it's like that and how i can fix it to work for access 2000?
Thanks

Kathy
Attachments
Last edited: