Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Keine Message Box wenn Ausgangsdatum = date()
zurück: Felder einfärben wenn Datensatz in anderer Tabelle vorhanden weiter: 1:n und 1:n in einer Endlostabelle anzeigen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
ohsieli
Anfänger


Verfasst am:
28. Mai 2007, 16:39
Rufname: Otmar
Wohnort: Linz

Keine Message Box wenn Ausgangsdatum = date() - Keine Message Box wenn Ausgangsdatum = date()

Nach oben
       Version: Office 2k (2000)

Mit folgendem Code erzeuge ich eine Meldung wenn der Datensatz geändert wird.
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.Dirty And IsDate(Me!Ausgangsdatum) Then
        If MsgBox("Du hast die Daten der Reparatur geändert. " & _
                  "Soll die Änderung gespeichert werden?", _
                  vbYesNo) = vbNo Then
            Cancel = True
            DoCmd.Close acForm, "FRM_REPARATURVERWALTUNG"
            Me.Undo
       End If
    End If
End Sub
Wie müsste der Code lauten, dass die Message Box nicht erscheint wenn das Feld Ausgangsdatum das aktuelle Datum enthält?

Ich bitte um Hilfestellung.
Otmar
jens05
Moderator


Verfasst am:
28. Mai 2007, 19:45
Rufname:
Wohnort: ~~~~~

AW: Keine Message Box wenn Ausgangsdatum = date() - AW: Keine Message Box wenn Ausgangsdatum = date()

Nach oben
       Version: Office 2k (2000)

Hallo,
wie wäre es mit dieser Erweiterung?
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me!Ausgangsdatum = Date Then Exit Sub
    If Me.Dirty And IsDate(Me!Ausgangsdatum) Then
        If MsgBox("Du hast die Daten der Reparatur geändert. " & _
                  "Soll die Änderung gespeichert werden?", _
                  vbYesNo) = vbNo Then
            Cancel = True
            DoCmd.Close acForm, "FRM_REPARATURVERWALTUNG"
            Me.Undo
       End If
    End If
End Sub

_________________
mfg jens05 Wink
ohsieli
Anfänger


Verfasst am:
28. Mai 2007, 20:15
Rufname: Otmar
Wohnort: Linz


AW: Keine Message Box wenn Ausgangsdatum = date() - AW: Keine Message Box wenn Ausgangsdatum = date()

Nach oben
       Version: Office 2k (2000)

Hallo Jens,
dankeschön für die rasche Hilfe. Habe deinen guten Rat erfolgreich angewandt.
Liebe Grüße
Otmar
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 Formulare: Dropdown Menu Auswahl aufgrund von Check Box Ergebnis 4 coporado 601 05. Apr 2011, 11:50
coporado Dropdown Menu Auswahl aufgrund von Check Box Ergebnis
Keine neuen Beiträge Access Formulare: durch combo box formular aussuchen 3 pjruiz 300 06. Apr 2010, 15:38
pjruiz durch combo box formular aussuchen
Keine neuen Beiträge Access Berichte: Übergeben von Filter an Bericht und anzeigen bestimmter Date 23 turbomarx 2669 02. Sep 2009, 16:51
MissPh! Übergeben von Filter an Bericht und anzeigen bestimmter Date
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Formulare: =date() geht nicht mehr !? 1 Elton#62 309 11. Nov 2008, 13:16
stpimi =date() geht nicht mehr !?
Keine neuen Beiträge Access Tabellen & Abfragen: Problem mit SQLString / Date 7 Gast 408 07. Nov 2008, 03:41
Willi Wipp Problem mit SQLString / Date
Keine neuen Beiträge Access Formulare: Mehrere Steuerelemente in eine Box packen? 4 SimFirehawk 497 12. Mai 2008, 21:45
SimFirehawk Mehrere Steuerelemente in eine Box packen?
Keine neuen Beiträge Access Formulare: Access Tabellen verschneiden und Kombo Box filtern 3 sama_wo 1323 02. Jul 2007, 11:37
Willi Wipp Access Tabellen verschneiden und Kombo Box filtern
Keine neuen Beiträge Access Formulare: Automatisierung -> Feld in Box 24 j-fr33z3 2028 27. Okt 2006, 00:51
j-fr33z3 Automatisierung -> Feld in Box
Keine neuen Beiträge Access Programmierung / VBA: funktion "Date" tut nicht richtig 2 Gastanis 601 06. Sep 2006, 13:18
Gast funktion "Date" tut nicht richtig
Keine neuen Beiträge Access Programmierung / VBA: Combo Box über VBA Selektieren 2 Boarderadi3 3785 10. Jul 2006, 10:08
Gast Combo Box über VBA Selektieren
Keine neuen Beiträge Access Formulare: Summe aus Kontrollkästchen (Check Box) bilden 15 david2005 2059 26. Jun 2006, 11:28
david2005 Summe aus Kontrollkästchen (Check Box) bilden
Keine neuen Beiträge Access Programmierung / VBA: Date$ deutsche Schreibweise 2 chrweber 917 09. Jun 2006, 09:10
Gast Date$ deutsche Schreibweise
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum