Office: Geburtstagserinnerung

redneck · 21. April 2004

Hallo zusammen,
Ich habe eine Tabelle mit Personen und Geburtsdaten. Wie kann ich mit Access rechtzeitig 2 Tage vorher und wegen Wochenende 2 Tage danach an diese Geburtstage per Popup oder Msgbox sowie mit erledigt funktion erinnern lassen.
Ich arbeite mit Access 2000 und bin auf diesem Gebiet nicht gut bewandert.
Für eventuelle Hilfe wäre ich sehr dankbar!

Gruß redneck

:)

mabe38 · 23. April 2004

Hi
bei http://www.awsw.de/ gibt es unter den Beispieldatenbanken eine sehr schöne Geburtstagsverwaltung. Du musst Dich allerdings anmelden.

Gruß Martin

Arne Dieckmann · 23. April 2004

Einen 1. Ansatz findest Du unter donkarls FAQ 3.12 (Link in meiner Signatur). Ansonsten solltest Du den gewünschten Ablauf ein kleines bißchen genauer beschreiben (wie, wann und wo soll benachrichtigt werden etc.).

Großer Meister · 23. April 2004

hallo redneck,
meinst du sowas in der Art?:

Code:

Private Sub Form_Current()
dim rst as dao.recordset
set rst=currentdb.openrecordset("tabellemitgeburtsdaten")
do
if cdate(rst!geburtstag)>=date()-2 then msgbox rst!name & "hat am " & rst!geburtstag & " Geburtstag!"
rst.movenext
loop until rst.eof
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Arne Dieckmann · 23. April 2004

\@Großer Meister:
Code:

if rst!geburtstag>=date()-2
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wird wohl nur hinhauen, wenn "geburtstag" im aktuellen Jahr liegt. Ganz so einfach ist es meist nicht. Innerhalb der Tabelle steht ja wohl eher so etwas wie Gebdat: 24.04.1970

Großer Meister · 23. April 2004

ok, also dann so:
Code:

Private Sub Form_Current()
dim rst as dao.recordset
set rst=currentdb.openrecordset("tabellemitgeburtsdaten")
do
if year(rst!geburtstag)=year(date()) and cdate(rst!geburtstag)>=date()-2 then msgbox rst!name & "hat am " & rst!geburtstag & " Geburtstag!"
rst.movenext
loop until rst.eof
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Arne Dieckmann · 23. April 2004

Ich halte mich jetzt lieber zurück. *confused.gif* Spiele das doch einmal mit dem o.g. Beispielgeburtsdatum durch.

Hier noch ein Beispielthread: http://www.ms-office-forum.net/forum...hreadid=119621

schnolli · 23. April 2004

Hallo,

ich benutze auch die Abfrage aus FAQ 3.12, dann Beim Laden des Startform:
Code:

Private Sub Form_Load()
'Überprüfen ob Geburtstage anliegen
If DCount("[Geburtsdatum]", "qry_Kunden_Geburtstage") > 0 Then
'wenn ja, dann Nachrichtenanzeige ausgeben
If MsgBox("****** Es liegen Geburtstage an! ******" _
& vbCrLf & vbCrLf & "Soll die Geburtstagsliste angezeigt werden?", vbQuestion + vbYesNo, "Geburtstage") = vbYes Then
'Bericht (Geburtstagsliste) in der Seitenansicht öffnen
DoCmd.OpenReport "DeinBericht", acPreview
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruss Oliver

Großer Meister · 23. April 2004

stimmt Form_Load oder Form_Open macht mehr Sinn.
Und das mit dem Geburtstagsbericht finde ich auch eine gute Idee.
redneck melde dich doch auch noch mal zu Wort!

redneck · 23. April 2004

Hallo zusammen,
habe den Code von Oliver übernommen und kann nur sagen: Alles erste Sahne! Klappt einwandfrei. Vielen Dank an Oliver und alle andren für die freundliche Hilfe.
Vielen Dank nochmals!!

Gruß redneck

redneck · 23. April 2004

Hallo nochmals,
habe noch eine letzte Frage an Oliver.
Was muss ich machen damit der Bericht im Vordergrund erscheint!
Sonst alles Bestens.

Gruß redneck

redneck · 23. April 2004

Hallo nochmals,
habe noch mal eine letzte Frage.
Was muss ich machen damit der Bericht im Vordergrund erscheint?

Gruß redneck

Arne Dieckmann · 23. April 2004

Vielleicht hilft es, das Formular kurzzeitig unsichtbar zu machen und dann beim Ereignis "Beim Schliessen" des Berichtes wieder sichtbar?
Code:

'... Rest des Codes gelöscht
Me.Visible=False
DoCmd.OpenReport "DeinBericht", acPreview
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im Berichtsmodul dann beim Schliessen, (evtl. vorher kontrollieren, ob das Formular auch geöffnet ist. S. dazu donkarls FAQ 4.19, geht aber vielleicht auch mit On Error Resume Next):
Code:

Private Sub Report_Close()
'Quick'n'Dirty:
On Error Resume Next
Forms![NameDesFormulares].Visible=True

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

redneck · 23. April 2004

Hi,
funktioniert nicht, das Hauptformular wird nicht unsichtbar!

Gruß redneck

Arne Dieckmann · 23. April 2004

Komisch. Na dann versuche es einmal beim Berichtsereignis "Beim Öffnen":
Code:

Private Sub Report_Open(Cancel As Integer)

On Error Resume Next
'den richtigen Formularnamen einsetzen!
Forms![hauptformular].Visible = False

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn es jetzt immer noch nicht hinhaut, liegt es an merkwürdigen Formulareinstellungen, die ich aber nicht nachvollziehen will.