Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Löschabfrage von Access
zurück: Verknüpfte Kombinationsfelder weiter: Unterformular, Werte rechnen? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
faBul0us
Access-Kenner aber VBA-n00b


Verfasst am:
25. Jul 2005, 09:07
Rufname:

Löschabfrage von Access - Löschabfrage von Access

Nach oben
       

Hallo

ich habe ein Formular, indem ich Datensätze löschen kann. Jedesmal wennman einen datensatz löschen will fragt Access in einen ""Buble Fenster" ob man dies wirklich machen möchte! Ich würde dieses Fenster gerne ausblenden, weil ich eien MsgBox einsetzten möchte! Geht das?

MFG
Florus
Access-Nichtversteher


Verfasst am:
25. Jul 2005, 09:16
Rufname:
Wohnort: NÖ / Österreich


Jep - Jep

Nach oben
       

Funktioniert so:
Code:
    'Vor deiner Abfrage
    DoCmd.SetWarnings False
    'deineAbfrage
    DoCmd.SetWarnings True

Dieser Code schaltet die Systemwarnmeldungen aus.

Liebe Grüße

Florus
faBul0us
Access-Kenner aber VBA-n00b


Verfasst am:
25. Jul 2005, 09:38
Rufname:

AW: Löschabfrage von Access - AW: Löschabfrage von Access

Nach oben
       

Leider geht weder meine MsgBox noch dein Code!!

Im moment sieht es bei mir so aus:
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
    DoCmd.SetWarnings False
    If MsgBox("Wollen Sie den Datensatz wirklich löschen?", vbYesNo) = vbYes Then
        DoCmd.RunCommand acCmdUndo
    End If
    DoCmd.SetWarnings True
End Sub
Florus
Access-Nichtversteher


Verfasst am:
25. Jul 2005, 10:02
Rufname:
Wohnort: NÖ / Österreich

Hi - Hi

Nach oben
       

so, versuchs mal so:
als Aktion bei Klick auf deinen Löschbutton:
Code:
    Dim antwort As String

On Error GoTo Err_DSloeschen_Click
    antwort = MsgBox("Wollen Sie den Datensatz wirklich löschen?", vbYesNo, "Löschen?")
    If antwort = vbYes Then
        DoCmd.SetWarnings False
        'Warnmeldungen ausschalten
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
        DoCmd.SetWarnings True
        'Warnmeldungen einschalten
        DoCmd.GoToRecord , , acFirst
        'zum ersten Datensatz springen
      Else
    End If

Liebe Grüße

Florus

_________________
Bitte um F E E D B A C K!

THX
-------------------------------------------------
faBul0us
Access-Kenner aber VBA-n00b


Verfasst am:
25. Jul 2005, 10:18
Rufname:

AW: Löschabfrage von Access - AW: Löschabfrage von Access

Nach oben
       

Glaube funktioniert soweit, bis auf eine Zeile aus deinem Code! Die musste ich rausnehmen!
Code:
On Error GoTo Err_DSloeschen_Click
stpimi
Moderator Access


Verfasst am:
25. Jul 2005, 10:29
Rufname:
Wohnort: Graz

AW: Löschabfrage von Access - AW: Löschabfrage von Access

Nach oben
       

Ich würde den Code noch etwas abändern (bessere Verständlichkeit, wenn jemand anderer ihn liest, bzw. ErrorRoutine):
Code:
    Dim strAntwort As String
   
    On Error GoTo Err_DSloeschen_Click
    strAntwort = MsgBox("Wollen Sie den Datensatz wirklich löschen?", _
                        vbYesNo, "Löschen?")
    If strAntwort = vbYes Then
        DoCmd.SetWarnings False     'Warnmeldungen ausschalten
        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True     'Warnmeldungen einschalten
        DoCmd.GoToRecord , , acFirst     'zum ersten Datensatz springen
    End If
    Exit Sub
   
Err_DSloeschen_Click:
    MsgBox "Fehler beim Löschen des Datensatzes:" & vbCrLf & _
           Err.Number & " " & Err.Description
    Resume Next

_________________
Lg, Michael

Dein Feedback hilft auch anderen - vergiß es nicht!
Florus
Access-Nichtversteher


Verfasst am:
25. Jul 2005, 11:32
Rufname:
Wohnort: NÖ / Österreich

Ja, is klar. - Ja, is klar.

Nach oben
       

War aus meinem Error-Code, hab ich versehentlich mitkopiert. Embarassed

Liebe Grüße

Florus

_________________
Bitte um F E E D B A C K!

THX
-------------------------------------------------
faBul0us
Access-Kenner aber VBA-n00b


Verfasst am:
25. Jul 2005, 12:59
Rufname:


AW: Löschabfrage von Access - AW: Löschabfrage von Access

Nach oben
       

Okay vielen Dank! Warst ne super Hilfe...
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: automatische Löschabfrage erstellen 5 darkhope 92 20. Sep 2013, 12:49
JMalberg automatische Löschabfrage erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Löschabfrage über ID 2 messias 204 05. März 2012, 20:28
messias Löschabfrage über ID
Keine neuen Beiträge Access Tabellen & Abfragen: Löschabfrage 3 Kim88 397 16. Aug 2011, 09:58
Kim88 Löschabfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Löschabfrage funktioniert nicht 5 therod 394 08. Feb 2011, 16:41
gisiangel Löschabfrage funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Problem mit Löschabfrage 9 spalan 835 31. Jan 2011, 22:20
spalan Problem mit Löschabfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Erstellen von Anfüge bzw. Löschabfrage mit mehren Tabellen 8 nagelspecht 408 17. Jan 2011, 11:39
KlausMz Erstellen von Anfüge bzw. Löschabfrage mit mehren Tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: Fehlermeldung Löschabfrage 5 Gast 1809 13. Sep 2010, 15:57
MAPWARE Fehlermeldung Löschabfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Löschabfrage funktioniert nicht! 3 KarlKlammer 801 01. Apr 2010, 12:49
Nouba Löschabfrage funktioniert nicht!
Keine neuen Beiträge Access Tabellen & Abfragen: Löschabfrage: DS in Tab1 löschen, wenn kein DS in Tab2 1 Vyrus_0711 294 16. Jan 2009, 22:49
Vyrus_0711 Löschabfrage: DS in Tab1 löschen, wenn kein DS in Tab2
Keine neuen Beiträge Access Tabellen & Abfragen: Löschabfrage nach Datum im Textformat 4 HorstB 514 20. Nov 2008, 00:07
KlausMz Löschabfrage nach Datum im Textformat
Keine neuen Beiträge Access Tabellen & Abfragen: SQL Statement - Löschabfrage 2 Bino 609 03. Sep 2008, 14:09
Bino SQL Statement - Löschabfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Löschabfrage 2 tom_r 290 01. Jul 2008, 11:09
tom_r Löschabfrage
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen