RunSQL Error- Run time error 2342

[fugikar]

i try this one:

Private Sub Command8_Click()
Dim strsql As String
 
strsql = "SELECT [hotovy produkt].nazev FROM [hotovy produkt] WHERE ((([hotovy produkt].nazev)=[Forms]![vysledek]![Text1]));"
 
DoCmd.RunSQL strsql
 
or this one:
 
Private Sub Command8_Click()
 
DoCmd.RunSQL "SELECT [hotovy produkt].nazev FROM [hotovy produkt] WHERE ((([hotovy produkt].nazev)="auto"));"
 
 

I still get the same error.

Any explanation.

thank u

[Luk3r]

I believe you must do your query like the following, since RunSQL is used for actions like UPDATE and DELETE

DoCMD.OpenQuery strsql

[fugikar]

now it show me error 7874 - microsoft access cant fint the object "select etc.....

Private Sub qryvba_Click()
Dim strsql As String
 
strsql = "'SELECT [hotovy produkt].nazev FROM [hotovy produkt] WHERE ((([hotovy produkt].nazev)=[Forms]![auto]![Textbox1]))'"
 
DoCmd.OpenQuery strsql
End Sub

thank u