Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datum überprüfen
Autor: Novemberrain
Datum: 24.06.03 07:48
Hallo, ich möchte beim Laden eines 2000-FRM die Daten in einem Endlosfrm überprüfen lassen. Wenn eines davon länger als 14 Tage zurück liegt, dann soll ein MsgBox erscheinen, die abfragt, ob man die Bestellung sofort bearbeiten möchte. Bei Ja soll er direkt zum Datensatz gehen, bei Nein, das Frm öffnen und den DS mit -Bestellung überfällig- kennzeichnen. Leider ist mein DS immer überfällig und ich erhalte auch keine MsgBox. Dazu habe ich folgenden Code: Private Sub Form_Current() Dim datum1 As Date, antwort As Double datum1 = Date datum2 = Me.Datum + 14 If datum1 >= datum2 Then anwort = MsgBox("Es ist eine Bestellung überfällig. Möchte Sie diese jetzt bearbeiten?", vbYesNo) If antwort = 0 Then Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmPositionenSuchen1" stLinkCriteria = "[ReNr]=" & Me![ReNr] DoCmd.OpenForm stDocName, , , stLinkCriteria Else Static intBildAnzeigen As Integer intBildAnzeigen = Not intBildAnzeigen End If End If End Sub Private Sub Form_Load() Me.TimerInterval = 500 End Sub Sub Form_Timer() Static intBildAnzeigen As Integer If intBildAnzeigen Then Me.Text39 = "- Bestellung überfällig -" Me.Text39.ForeColor = vbRed Else Me.Text39 = "" End If intBildAnzeigen = Not intBildAnzeigen End Sub Was ist daran falsch?

Datum überprüfen	611	Novemberrain	24.06.03 07:48
Re: Datum überprüfen	371	Dietmar	24.06.03 09:34
Re: Datum überprüfen	377	Novemberrain	24.06.03 09:55
Re: Datum überprüfen	379	Dietmar	24.06.03 10:03
Re: Datum überprüfen	379	Novemberrain	24.06.03 10:38
Re: Datum überprüfen	362	Dietmar	24.06.03 11:07
Re: Datum überprüfen	366	Novemberrain	24.06.03 11:19

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen