sql-abfrage klappt nicht

08/11/2008 - 16:45 von Philippe Malmedé | Report spam
hallo allerseits,

habe mal wieder ein problem mit der sql abfrage

die fehlermeldung; runsql verlangt immer nach einer sqlabfrage

ich weiss nur nicht wo ich den fehler gemacht habe im string

Private Sub sortieren_auf_ab_Click()
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim sqltext As String

Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_artikel_vk", dbOpenDynaset)

Select Case Sortieren_auf_ab
Case 1


sqltext = "select TBL_artikel_vk.artikel_vk_nr,
TBL_artikel_vk.artikel_vk_name, TBL_artikel_vk.artikel_vk_name2,
TBL_artikel_vk.artikel_vk_bestand, TBL_artikel_vk.artikel_vk_vk " & _
"from TBL_artikel_vk " & _
"order by artikel_vk_nr asc;"

Case 2

sqltext = "select TBL_artikel_vk.artikel_vk_nr,
TBL_artikel_vk.artikel_vk_name, TBL_artikel_vk.artikel_vk_name2,
TBL_artikel_vk.artikel_vk_bestand, TBL_artikel_vk.artikel_vk_vk " & _
"from TBL_artikel_vk " & _
"order by artikel_vk_nr desc;"

Case Else
MsgBox "Ungültige Daten", vbCritical

End Select

MsgBox sqltext
DoCmd.RunSQL sqltext
DoCmd.OpenForm "artikel_allgemein", acNormal


Set db = Nothing
Set rs = Nothing

End Sub

vielen dank für euer intresse im voraus

gruß

Philippe
 

Lesen sie die antworten

#1 Karl Donaubauer
08/11/2008 - 16:58 | Warnen spam
Philippe Malmedé wrote:
habe mal wieder ein problem mit der sql abfrage

die fehlermeldung; runsql verlangt immer nach einer sqlabfrage



Gemeint ist, dass RunSQL nur mit Aktionsabfragen funktioniert,
nicht mit Auswahl- vulgo SELECT-Abfragen.

ich weiss nur nicht wo ich den fehler gemacht habe im string
...
sqltext = "select TBL_artikel_vk.artikel_vk_nr,

DoCmd.RunSQL sqltext
DoCmd.OpenForm "artikel_allgemein", acNormal
...



Was soll denn passieren, wenn du hier RunSQL aufrufst?

HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com

Ähnliche fragen