Aktualisierungsabfrage funktioniert nicht aus einem code heraus

[Lalikowski]

Moin zusammen,

ich habe ein Problem, welches ich mir nicht erklären kann.

Über einen code möchte ich eine Aktualisierungsabfrage anstossen, das funktioniert auch, aber sie nimmt keine Aktualisierungen vor, obwohl die Meldung kommt, dass ein Datensatz aktualisiert wird.

Wenn ich diese Abfrage manuell ausführe, funktioniert alles einwandfrei.

Ich weiß mir nicht mehr zu helfen. Hat jemand von Euch eine Idee?

Hier der code. Hatte schon gedacht, dass Access etwas Ruhe braucht, daher das sleep dazwischen, aber auch nicht....

Code [Auswählen] Erweitern

Private Sub Befehl42_Click()

DoCmd.SetWarnings False
If (Text67) = "CD" Then
Sleep 500
DoCmd.OpenQuery "qry_edit_CD", acViewNormal, acEdit
Else
Sleep 500
DoCmd.OpenQuery "qry_edit_DVD", acViewNormal, acEdit
End If
DoCmd.SetWarnings True


Viele Grüße

Andreas

[DF6GL]

Hallo,

Aktionsabfragen werden mit RunSQL   , bzw. und besser mit Currentdb.Execute ausgeführt.

Private Sub Befehl42_Click()   'unsinnige Benamsung!

DoCmd.SetWarnings False
If Me!Text67 = "CD" Then   'besser benamsen!  und Me als Form-Referenz verwenden.
Sleep 500
Currentdb.Execute "qry_edit_CD",dbFailOnError
Else
Sleep 500
Currentdb.Execute "qry_edit_DVD",dbFailOnError

End If
DoCmd.SetWarnings True

End Sub

[Lalikowski]

Moin Franz,

ganz lieben Dank für die schnelle Lösung..

Kaum macht man es richtig, funktioniert's....:-)