Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Nächsten Termin Anzeigen lassen?
Autor: chrisz
Datum: 10.04.02 18:14
Hallo, ich bins wieder, ich weiß, ich überrenne euch mit blöden Fragen, hier meine nächste: Ich habe einen Terminplaner, kann ich mir anhand eines Labels, meinen nächsten Termin Anzeigen lassen. Hier ein Ausschnitt, wo ich glaube, das der Code hineingehört. Danke Chrisz..... Public Sub AlarmAuslösen() Dim Versäumt As Boolean 'Termin schon versäumt? If Termine(Datensatz).Datum < Format(Now, "dd.mm.yyyy") Then Versäumt = True ElseIf Termine(Datensatz).Uhrzeit < Format(Now, "hh:mm") Then Versäumt = True Else Versäumt = False End If 'wenn versäumt, frmErinnerung anpassen If Versäumt = True Then frmErinnerung.lblErinnerung.Caption = "Termin versäumt!" Else frmErinnerung.lblErinnerung.Caption = "Erinnerung" End If 'Daten in frmErinnerung übernehmen With Termine(Datensatz) frmErinnerung.lblDatum.Caption = Format(.Datum, "dd.mm.yyyy") frmErinnerung.lblUhrzeit.Caption = Format(.Uhrzeit, "hh:mm") frmErinnerung.lblWiederholung.Caption = .Wiederholung frmErinnerung.lblDatensatz.Caption = Datensatz frmErinnerung.lblAlarm.Caption = .Alarm End With Call SetWindowPos(frmErinnerung.hwnd, -1, frmErinnerung.Left, frmErinnerung.Top, frmErinnerung.Left, frmErinnerung.Top, &H1 Or &H2) frmErinnerung.Show End Sub

Nächsten Termin Anzeigen lassen?

38

chrisz

10.04.02 18:14

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