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.... :(
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
Hallo,
Aktionsabfragen werden mit RunSQL , bzw. und besser mit Currentdb.Execute ausgeführt.
ZitatPrivate 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
Moin Franz,
ganz lieben Dank für die schnelle Lösung..
Kaum macht man es richtig, funktioniert's....:-)