SQL select

Du skal have flyttet henvisningen til feltet udenfor strengen:

strSQL = DoCmd.RunSQL("SELECT Position FROM Varekartotek WHERE Varenummer =" & Forms![Styklister]![Stykliste UFrm]![Varenummer])

Hvis varenummeret er en tekst, skal der plinger om udtrykket, altså:

strSQL = DoCmd.RunSQL("SELECT Position FROM Varekartotek WHERE Varenummer ='" & Forms![Styklister]![Stykliste UFrm]![Varenummer] & "'")

Hej
Det er en tekst.
Efter indsættelse af dit udtryk får jeg samme fejlmeddelse herudover står RunSQL med blåt

DoCmd.RunSQL er kun til det der hedder 'action SQL' altså insert, delete og update

Så hvis du vil hente noget fra en tabel så er du nødt til at anvende en anden metode.

Lidt læsestof

http://p2p.wrox.com/access-vba/472-using-docmd-runsql-return-values.html
http://www.access-programmers.co.uk/forums/showthread.php?t=144266
http://www.pcreview.co.uk/forums/docmd-runsql-select-abc-t2596048.html

Tjah. Der sov jeg vist lidt i timen :O)

Som Hugo skriver, skal du bruge en anden fremgangsmåde. Evt. DLookUp:

MitNr=DLookUp("Position","Varekartotek","Varenummer ='" & Forms![Styklister]![Stykliste UFrm]![Varenummer] & "'")

Look at your code!!!


Private Sub Kommandoknap_Click()
Dim strSQL
       
strSQL = "SELECT Position FROM Varekartotek WHERE Varenummer ='" & Forms![Styklister]![Stykliste UFrm]![Varenummer] & "'"
 
DoCmd.RunSQL(strSQL)

End Sub

thanks

Øøøøøh. Så blev syntaksen korrekt. Til gengæld er koden meningsløs !?!
Se Hugos kommentar #3.

Of course :o) I wasnt thinking there :o)

Dim pos as string

pos = Dlookup("Position","Varekartotek ","Varenummer ='" & Forms![Styklister]![Stykliste UFrm]![Varenummer] & "'")

LOL. Jeg overså det jo også. Se #5 ;O)