Home Office-Hilfe.com - Wir lösen Ihr Problem mit Microsoft Excel, Word, Outlook, PowerPoint, Access gratis Forum Impressum

  Datumsabfrage
Neues Thema eröffnenNeue Antwort erstellen
Autor Nachricht
Faun
Newbie
Newbie


Anmeldedatum: 22.08.2006
Beiträge: 2

BeitragVerfasst am: 22.08.2006, 10:35 Nach oben

Hallo zusammen Smile
Ja, ich habe die Suchfunktion benutzt, aber ich denke mit einem eigenen Thread komme ich schneller zu einer Lösung.

Ich möchte in MS Access 2003 ein Formular erstellen, in dem man ein Datum eingeben kann. Wenn ich das Datum eingebe, soll überprüft werden, ob dieses Datum in der Vergangenheit liegt (Vergangenheit = Ab gestern). Falls dies so ist, soll eine MessageBox erscheinen, die eine Warnung ausgibt à la "Dieses Datum liegt in der Vergangenheit. Wollen sie das Datum trotzdem speichern ?". Wenn möglich sollte man nun zwei Optionen haben, ein Button um das Datum anzulegen und ein Button, um das Datum eben nicht anzulegen ;) Falls das eingegebene Datum dem aktuellen oder einem zukünftigen Datum entspricht, soll diese MessageBox nicht erscheinen. Es wäre mir einfach wichtig, dass bei einem vergangenem Datum eine Warnmeldung erscheint, damit der User weiss, dass er ein ungültiges Datum eingegeben hat. Wenn man dann noch die Auswahl hätte, ob man das Datum nun trotzdem anlegen möchte oder nicht, dann wäre das ein sehr netter Zusatz. Ich hoffe ihr könnt mir da helfen

Gruss.
Benutzer-Profile anzeigenPrivate Nachricht senden
freaky
Moderator
Moderator


Anmeldedatum: 11.04.2006
Beiträge: 751
Wohnort: im Norden

BeitragVerfasst am: 23.08.2006, 23:37 Nach oben

Hi,

wenn es noch aktuell ist dann versuch es mal hiermit:

Code:
Private Sub Text6_Exit(Cancel As Integer)
'Name der Textbox ist hier "Text6"
Dim Antwort
    If Me.Text6.Value < Date Then
        Antwort = MsgBox("Dieses Datum liegt in der Vergangenheit!" & Chr(13) & "Wollen sie das Datum trotzdem speichern ?", vbYesNo, "Datumsprüfung")
       
        If Antwort = vbNo Then
            Me.Text6.Value = ""
            Me.Text6.SetFocus
            Exit Sub
        End If
    End If
                   
End Sub

_________________
Gruß
freaky
----------------------------------------------------------------
Windows 2000, Windows XP
Office 97, Office 2000, Office 2003 und Office 2007
_____________________________________________
Feedback nicht vergessen....
---------------------------------------------------------------
Benutzer-Profile anzeigenPrivate Nachricht senden
Faun
Newbie
Newbie


Anmeldedatum: 22.08.2006
Beiträge: 2

BeitragVerfasst am: 24.08.2006, 13:55 Nach oben

Hat wunderbar geklappt, dankeschön !
Benutzer-Profile anzeigenPrivate Nachricht senden
Beiträge der letzten Zeit anzeigen:      
Neues Thema eröffnenNeue Antwort erstellen


Ähnliche Beiträge
Thema Autor Forum Antworten Verfasst am
Keine neuen Beiträge Datumsabfrage mit anschließender Form... henne85 Microsoft Excel Hilfe 0 31.01.2007, 10:04 Letzten Beitrag anzeigen
Keine neuen Beiträge Datumsabfrage von bis snoopdog Microsoft Access Hilfe 3 14.07.2005, 09:36 Letzten Beitrag anzeigen
Keine neuen Beiträge Datumsabfrage vogelauge Microsoft Access Hilfe 1 05.06.2005, 18:05 Letzten Beitrag anzeigen


 Gehe zu:   



Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht 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 posten
Du kannst Dateien in diesem Forum herunterladen

Haftungsausschluss/Disclaimer


SMS kostenlos versenden | Battle-Dream | Tuning Forum | Join the YoungGeneration | krankenversicherungsvergleich | Kalorienarme Rezepte!
Versicherungsvergleich | Bürobedarf | Papier | Betten

Ranking-Hits



Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de