RunSQL

[Guest]

I want use DoCmd.RunSQL to select the name of a client and then assign the
query result to a variable or text box on a form. I get error: Runtime 3129.
Is there a way to do this?


Dim strSQLFirstName As String, strFirstName As String

strSQLFirstName = "SELECT dbo_Client.FirstName " & _
"FROM dbo_Client " & _
"WHERE (((dbo_Claimant.SSN)=[Forms]![frmDataEntry]![txtNumber));"

DoCmd.RunSQL strSQLFirstName = strFirstName

me.txtFirstName = strFirstName

 

[Bob Hairgrove]

I want use DoCmd.RunSQL to select the name of a client and then assign the
query result to a variable or text box on a form. I get error: Runtime 3129.
Is there a way to do this?


Dim strSQLFirstName As String, strFirstName As String

strSQLFirstName = "SELECT dbo_Client.FirstName " & _
"FROM dbo_Client " & _
"WHERE (((dbo_Claimant.SSN)=[Forms]![frmDataEntry]![txtNumber));"

DoCmd.RunSQL strSQLFirstName = strFirstName

me.txtFirstName = strFirstName

Use DLookup instead.

 

[Guest]

The RunSql will run update query only (update, insert, delete) but not a
select query

Instead use:

me.txtFirstName = Dlookup("FirstName","Client","SSN =
[Forms]![frmDataEntry]![txtNumber]")