Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Schaltfläche hinzufügen (MsgBox)
zurück: listenfeld in abfragen weiter: kopieren eines Textfeldes in ein anderes Textfeld 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
tsaG
Gast


Verfasst am:
18. Jun 2004, 13:20
Rufname:

Schaltfläche hinzufügen (MsgBox) - Schaltfläche hinzufügen (MsgBox)

Nach oben
       

Hallo, ich habe leider im Forum nichts gefunden.

Ich habe ein MsgBox für "Änderung speichern JA/NEIN"
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim strMsg As String

    strMsg = "Anderungen speichern?."
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Achtung") = vbYes Then

      Else
        DoCmd.RunCommand acCmdUndo
    End If
End Sub

Die MsgBox soll nun um die Funktion "Abbrechen" erweitert werden,
und zwar so, dass das Formular bei einer Schaltfläche schliesen nicht
geschossen wird, und ich meine Eingaben-Änderungen noch mal
überarbeiten kann.

Danke
Steffan
dot
Access-Fortgeschrittener


Verfasst am:
18. Jun 2004, 13:27
Rufname:
Wohnort: Schwabenland


AW: Schaltfläche hinzufügen (MsgBox) - AW: Schaltfläche hinzufügen (MsgBox)

Nach oben
       

Hi

Versuch mal das:

If MsgBox(strMsg, vbQuestion + vbYesNoCancel, "Achtung") = vbYes Then

dot
Twisted Evil Twisted Evil Twisted Evil

_________________
Nichts auf der Welt ist so gerecht verteilt wie der Verstand. Denn jedermann ist überzeugt, dass er genug davon habe.
Descartes
Willi Wipp
Moderator


Verfasst am:
18. Jun 2004, 13:39
Rufname:
Wohnort: Raum Wiesbaden

Re: Schaltfläche hinzufügen (MsgBox) - Re: Schaltfläche hinzufügen (MsgBox)

Nach oben
       

Hi Steffan,

oder auch auf der Basis von dot's Vorschlag
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim strMsg As String

    strMsg = "Anderungen speichern?."
    Select Case MsgBox(strMsg, vbQuestion + vbYesNoCancel, "Achtung")
      Case vbYes
        'Ja
      Case vbCancel
        'Abbruch
      Case vbNo
        DoCmd.RunCommand acCmdUndo
    End Select  'Korrigiert nach Hinweis von Steffan
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)


Zuletzt bearbeitet von Willi Wipp am 18. Jun 2004, 17:20, insgesamt 6-mal bearbeitet
tsaG
Gast


Verfasst am:
18. Jun 2004, 14:06
Rufname:

re Willi Wipp - re Willi Wipp

Nach oben
       

tsaG am 18. Jun 2004 um 13:50 hat folgendes geschrieben:
Cancel wir zwar in MsgBox angezeigt, jedoch wenn ich im Formular schliesen drücke (Schaltfäche), hat Abbrechen keinen Einfluss das Formular und es geht zu.
Hi Willi, ich bin nicht so fittt im Code scheiben,

aber wo ein End If....da muss doch auch ein Anfang sein oder?

Ich wollte noch ergänzen, das meine Formel unter

Privat Sub Form_BeforeUpdate(Cancel As Interger)... steht.

Gruß Steffan
Nachtrag: tsaG am 18. Jun 2004 um 16:42 hat folgendes geschrieben:
Hallo Willi, ich habe da noch was gefunden.

Hinter "+vbYesNo muß noch ein Cancel" dass die
MsgBox auch das Abbrechen anzeigt.

Aber leider funkz. beide Vorschläge nicht....denn nach dem
Klick auf das Button Schliesen, da kommt zwar die
MsgBox, mit klick aber auf "Abbrechen" geht das Formular
trotz dem zu !!!!!!!!

Gibts noch eine andere Lösung ?????????

Steffan
Willi Wipp
Moderator


Verfasst am:
18. Jun 2004, 17:39
Rufname:
Wohnort: Raum Wiesbaden


Re: Schaltfläche hinzufügen (MsgBox) (II) - Re: Schaltfläche hinzufügen (MsgBox) (II)

Nach oben
       

Hi Steffan,

Danke fuer die Hinweise, dann versuch es so
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim strMsg As String

    strMsg = "Anderungen speichern?"
    Select Case MsgBox(strMsg, vbQuestion + vbYesNoCancel, "Achtung")
      Case vbYes                                                           'Ja
      Case vbCancel                                                   'Abbruch
        Cancel% = True
      Case vbNo                                                          'Nein
        Me.Undo
    End Select
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
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: Hinzufügen einer Information 4 MajorD 188 21. Okt 2011, 12:15
MajorD Hinzufügen einer Information
Keine neuen Beiträge Access Tabellen & Abfragen: ID zu Tabelle hinzufügen 1 schwippschwapp 209 17. Mai 2011, 13:39
RadiatoR ID zu Tabelle hinzufügen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage:Für fehlende Datensätze Null hinzufügen 5 Batzie 303 09. Mai 2011, 06:46
Willi Wipp Abfrage:Für fehlende Datensätze Null hinzufügen
Keine neuen Beiträge Access Tabellen & Abfragen: Access VBA Tabelle Werte hinzufügen 8 Don Carlos 1028 02. Nov 2010, 13:33
Don Carlos Access VBA Tabelle Werte hinzufügen
Keine neuen Beiträge Access Tabellen & Abfragen: Bestehender Tabelle ein autowert-Feld hinzufügen 2 DBKlempner 514 13. Aug 2010, 09:46
DBKlempner Bestehender Tabelle ein autowert-Feld hinzufügen
Keine neuen Beiträge Access Tabellen & Abfragen: Spalte hinzufügen in MS Access mit SQL 10 trade-X 13618 27. Jul 2010, 13:36
vba-neu Spalte hinzufügen in MS Access mit SQL
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle in BackEnd hinzufügen und mit Frontend verknüpfen 3 E-M-P 3605 25. Jul 2010, 16:41
Gast Tabelle in BackEnd hinzufügen und mit Frontend verknüpfen
Keine neuen Beiträge Access Tabellen & Abfragen: Daten vergleichen und bei Übereinstimmung Datum hinzufügen 4 SvenHH 391 06. Dez 2009, 13:56
Gast Daten vergleichen und bei Übereinstimmung Datum hinzufügen
Keine neuen Beiträge Access Tabellen & Abfragen: Spalte hinzufügen und Wert in Spalte schreiben 3 Gast 719 24. Nov 2009, 12:55
tk6 Spalte hinzufügen und Wert in Spalte schreiben
Keine neuen Beiträge Access Tabellen & Abfragen: 4 Felder zu einem Feld hinzufügen 6 Eva83 294 19. Nov 2009, 15:16
Eva83 4 Felder zu einem Feld hinzufügen
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz aktualisieren, nicht hinzufügen 5 GerdS 403 16. Nov 2008, 18:19
Stefffano Datensatz aktualisieren, nicht hinzufügen
Keine neuen Beiträge Access Tabellen & Abfragen: 3 Jahre zu einem Datumsfeld hinzufügen 2 Hundhausen 393 11. Nov 2007, 12:09
Hundhausen 3 Jahre zu einem Datumsfeld hinzufügen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps