Supportnet / Forum / Datenbanken

Hallo, ich habe Probleme mit der Kalenderfunktion. Es soll in einem HauptFormular mittels Click ein Kalender geöffnet werden. Dort soll dann nach Auswahl mit (Doppel-)Click, das Datum im Hauptformular in ein Datenfeld [EndDatum] eingetragen werden. Dabei soll der Kalender wieder zu gehen. Ich habe zwar den Kalender schon in einem extra Formular erzeugt, bekomme das aber mit der Datenübergabe nicht hin. Wer kann mir mit einem Beispiel helfen ? Danke und Gruß Mike

Hallo ?
Weiß denn wirklich keiner weiter ?
Gruß Mike

Hi.

Einige gedanken zur Vorgehentsweise...

Klickt jemand in ein Eingabefeld(Textfeld) soll sich der Kalender öffnen -> Klickereignis- Kalenderfunktion:
Function fkt_Kalender()
If IsNull(Screen.ActiveControl) Then
dat_Kalender = Date
Else
dat_Kalender = Screen.ActiveControl
End If
abbruch = True
DoCmd.OpenForm "F_kalender", , , , , acDialog, dat_Kalender
If abbruch = False Then
Screen.ActiveControl = dat_Kalender
End If
End Function

Mit einem Button wird das Datum an das Textfeld übergeben -> Klickereignis Datum in Textfeld übergeben...
Private Sub OK_Click()
abbruch = False
dat_Kalender = Me![Kalender]
DoCmd.Close , , acSaveYes
End Sub

Hoffe, das hilft dir weiter ...

Nur die Einbindung der ersten function ist mir nicht ganz klar. Kannst mir da noch helfen ?
Danke. Mike

Ich habe es soweit hinbekommen, nur das eingestellte Datum am Kalender wird nicht zurückgegeben, sondern nach Rückkehr in die Funktion ist das Datum wieder das ursprüngliche bzw. aktuelle.
Nu weiß ich wieder mal nicht mehr weiter.
Gruss Mike

Hi Mike.
Willst du ein neues Datum klickst du auf Übergeben, an sonsten Abbruch.

Schaltfläche Datum übergeben:
Private Sub OK_Click()
abbruch = False
dat_Kalender = Me![Kalender]
DoCmd.Close , , acSaveYes
End Sub

Schaltfläche Abbruch:
Private Sub Abbruch_Click()
DoCmd.Close , , acSaveNo
End Sub

• Kalender Alarm abstellen
• Kalenderfunktion
• Autovervollständigen von Emaiadressen bei Outlook 2002
• Formeln verketten