PDA

Vollständige Version anzeigen : beim laden des formulars


thomas007
09.07.2001, 08:43
wenn ein formular geladen wird, in dem eine geburtstagsliste enthalten ist, sollen nur die leute angezeigt werden, die im aktuellen monat geburtstag haben. wenns geht mit einer vba anweisung.

vielen dank im vorraus

dmsman
09.07.2001, 09:02
hallo,

im form_load des formulars prüfst du die variable die aktuelle monat beinhaltet und vergleichst sie mit der geburtstagsliste und wenn eine übereinstimmung gefunden wurde zeigst du die liste an ?!
vielleicht klappts so mit meinem denkanstoss?
cu

thomas007
09.07.2001, 09:05
habe folgendes probiert, aber funzt nicht

Private Sub Form_Load()
Dim datum1, monat1
datum1 = Date
monat1 = Month(datum1)

If Forms![Geburtstagsliste]![geburtstag] = monat1 Then
geburtstag.Visible = True
Else
geburtstag.Visible = False
End If

End Sub

A.S.
09.07.2001, 11:31
Hallo Thomas,

setze den Formularfilter ein:

((Monat([GebDat]) = Monat(Jetzt())))

Das ganze setzt Du entweder Standardmäßig (einfacher) oder beim Laden des Formulars bzw. über einen Button mit dem Code:

Me.Filter = "" ' Filter leeren
Me.Filter = "((Month([GebDat]) = Month(Now())))" ' Filter für das Feld GebDat auf aktuellen Monat setzen
Me.FilterOn = True ' Filter aktivieren

------------------
HTH

Arno