PDA

Vollständige Version anzeigen : DoCmd.OpenQuery (löschabfrage)


tmaster
29.09.2005, 08:52
Hallöle,

meine Löschabfrage Funzt leider nicht:

DoCmd.OpenQuery "Q_Löschen_Kühlnummer"

Es handelt sich hierbei um eine Löschabfrage ! manuel funzt das Ganze ! Fehlt hier ein zusatz ?


Grüße

rita2008
29.09.2005, 08:56
Versuche es mal mit

CurrentDB.Execute "Q_Löschen_Kühlnummer"

mfg Rita

tmaster
29.09.2005, 09:10
Kombiniert mit den erste beiden zeilen funktionieren beide Versionen nicht !

Private Sub Befehl29_Click()
On Error GoTo Err_Befehl29_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

CurrentDb.Execute "Q_Löschen_Kühlnummer"
CurrentDb.Execute "Q_Löschen_Wärmenummer"

'DoCmd.OpenQuery "Q_Löschen_Kühlnummer", , acReadOnly
'DoCmd.OpenQuery "Q_Löschen_Wärmenummer", , acReadOnly

DoCmd.SetWarnings False

Exit_Befehl29_Click:
Exit Sub

Err_Befehl29_Click:
MsgBox Err.Description
Resume Exit_Befehl29_Click

End Sub

Warum nur ?

tmaster
29.09.2005, 09:14
einzeln in einem button funktionieren beide!?!?!?

rita2008
29.09.2005, 09:25
Weißt Du zufällig, was die ersten beiden Zeilen bewirken? Leider verwendet Access bei automatischer Erstellung von Ereignisprozeduren seit x Versionen immer noch diesen Kryptischen Code, obwohl es dafür inzwischen viel bessere Möglichkeiten gibt.

mfg Rita

tmaster
29.09.2005, 09:30
CurrentDb nach oben gesetzt funzt ! Warum auch immer ?!?!?



Private Sub Befehl29_Click()
On Error GoTo Err_Befehl29_Click

CurrentDb.Execute "Q_Löschen_Kühlnummer"
CurrentDb.Execute "Q_Löschen_Wärmenummer"

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

CurrentDb.Execute "Q_Löschen_Kühlnummer"
CurrentDb.Execute "Q_Löschen_Wärmenummer"

'DoCmd.OpenQuery "Q_Löschen_Kühlnummer", , acReadOnly
'DoCmd.OpenQuery "Q_Löschen_Wärmenummer", , acReadOnly

DoCmd.SetWarnings False

Exit_Befehl29_Click:
Exit Sub

Err_Befehl29_Click:
MsgBox Err.Description
Resume Exit_Befehl29_Click

End Sub

rita2008
29.09.2005, 11:37
Jetzt hast Du es aber doppelt drin!

Mich würde immer noch interessieren, was die anderen beiden Zeilen machen (DoCmd.DoMenuItem ...)

mfg Rita