Hallo ich habe hier ein kleines Problemchen.
Ich habe in einer Accessdatenbank eine Aktualisierungsabfrage eingebaut. Wenn bei der Aktualisierung etwas nicht funktioniert erscheind von Access eine Fehlermeldung " Gültigkeitsprüfung verletzt...... Die Abfrage kann nicht ausgeführt werden..." Ich möchte allerdings nicht, dass diese Fehlermeldung erscheind, sondern meine eigene "Die Ware konnte nicht Gebucht werden!"
Wie oder Wo kann ich das einstellen?
Danke für die Antworten
Seite 1 von 1
Ms Access 2003 -> Aktualisierungsabfrage
Anzeige
#2
geschrieben 20. April 2006 - 11:09
Im VbCode der Ereignissprozedur folgendes eingeben.
OnError
MsgBox "Die Ware konnte nicht Gebucht werden !", vbInformation Or vbOKOnly, "Meldung"
Gruß Species !
OnError
MsgBox "Die Ware konnte nicht Gebucht werden !", vbInformation Or vbOKOnly, "Meldung"
Gruß Species !
#3
geschrieben 20. April 2006 - 11:35
Danke für die Antwort! OnError habe ich jedoch schon in der Anweisung.
Private Sub Befehl9_Click()
On Error GoTo Err_Befehl9_Click
Dim stDocName As String
stDocName = "Artikel_Ein-Auslagern"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Form_Gebucht.erfolgreich
Exit_Befehl9_Click:
Exit Sub
Err_Befehl9_Click:
MsgBox Err.Description
Resume Exit_Befehl9_Click
End Sub
Das Problem ist, dass die Fehlermeldung nicht durch den Code, sondern durch die Abfrage ausgelöst wird.
Private Sub Befehl9_Click()
On Error GoTo Err_Befehl9_Click
Dim stDocName As String
stDocName = "Artikel_Ein-Auslagern"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Form_Gebucht.erfolgreich
Exit_Befehl9_Click:
Exit Sub
Err_Befehl9_Click:
MsgBox Err.Description
Resume Exit_Befehl9_Click
End Sub
Das Problem ist, dass die Fehlermeldung nicht durch den Code, sondern durch die Abfrage ausgelöst wird.
#4
geschrieben 20. April 2006 - 11:47
Ich habe es auch mit dem Befehl
ScreenUpdating = false
ScreenUpdating = True
Diesen Befehl gibt es allerding nur in Excel
ScreenUpdating = false
ScreenUpdating = True
Diesen Befehl gibt es allerding nur in Excel
#5
geschrieben 20. April 2006 - 12:20
Ändere doch die Fehlerbehandlung wie folgt ab.....
.
.
.
.
.
.
Err_Befehl9_Click:
MsgBox "Die Ware konnte nicht Gebucht werden !", vbInformation Or vbOKOnly, "Meldung"
Resume Exit_Befehl9_Click
End Sub
.
.
.
.
.
.
Err_Befehl9_Click:
MsgBox "Die Ware konnte nicht Gebucht werden !", vbInformation Or vbOKOnly, "Meldung"
Resume Exit_Befehl9_Click
End Sub
#6
geschrieben 20. April 2006 - 13:55
Danke das ging auch nicht weil wie schon erwähnt. Wenn die Aktualisierungsabfrage einen Fehler auslöst, Access nicht in die On Error Anweisung reinläuft.
Ich habe es jetzt anders gelöst und zwar habe ich bei den Eigenschaften der Aktualisierungsabfrage den Punkt "Abbrechen bei Feher" aktiviert.
Ich habe es jetzt anders gelöst und zwar habe ich bei den Eigenschaften der Aktualisierungsabfrage den Punkt "Abbrechen bei Feher" aktiviert.
Thema verteilen:
Seite 1 von 1