Ein Kalender für mehrer Felder

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen,

wie kann man in Access 97 mit einem Kalender (dieses ActiveX Steuerelemnt) ein Datum anklicken, das dann automatisch in ein bestimmtes Feld übernommen wird ?
Gibt es eine Möglichkeit, mit einem einzigen Kalender nacheinander verschiedene Daten in verschiedene Felder einzutragen ?

Bsp. Projektbeginn, Projektende, Auftragstart, Präsentation eines Zwischenergebnisses… in diesen Feldern sollen eben mit einem Kalender verschiedene Daten eingetragen werden.

Bin für jeden Tip dankbar !

Gruß, der kleine Tiger

#2

Hallo Kleiner Tiger,
ich habe…

  1. …eine globale Variable definiert (in Beispiel = AF)

Global AF As Byte

  1. …im Hauptformular neben jedes Datumsfeld eine Schaltfläche platziert, die das ActiveX-Datums-Formular öffnet. Gleichzeitig wird vor dem Öffnen des Datums-Formulars der globalen Variable ein Wert zugewiesen (für jedes Datumsfeld ein anderer Wert).
    Beispiel für die Schaltfläche neben Deinem Feld Projektbeginn:

Private Sub Projektbeginn_Click()
On Error GoTo Err_Projektbeginn_Click

AF = 1
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = „Formular_Datumsauswahl“
DoCmd.OpenForm stDocName, , , stLinkCriteria
GoTo Exit_ Projektbeginn _Click

Exit_ Projektbeginn _Click:
Exit Sub

Err_ Projektbeginn _Click:
MsgBox Err.Description
Resume Exit_ Projektbeginn _Click
End Sub

  1. …in dem Datumsformular folgenden Code (beim Klicken) erfaßt. Hierzu das Steuerelement markieren - rechte Maustaste klicken und aus dem Menü den ersten Eintrag „Ereignis“ wählen.
    Folgenden Code erfassen:

Private Sub ActiveXStr0_Click()
On Error GoTo error_ActiveXStr0_Click

If AF = 1 Then
Forms![F_Hauptformular]![Projektbeginn] = Me.ActiveXStr0
ElseIf AF = 2 Then
Forms![F_Hauptformular]![Projektende] = Me.ActiveXStr0
ElseIf AF = 3 Then
Forms![F_ Hauptformular]![Auftragsstart] = Me.ActiveXStr0
ElseIf AF = 4 Then
Forms![F_ Hauptformular]![Präasentation] = Me.ActiveXStr0
End If

GoTo exit_ActiveXStr0_Click

exit_ActiveXStr0_Click:
DoCmd.Close acForm, „Formular_Datumsauswahl“
Exit Sub

error_ActiveXStr0_Click:
MsgBox Err.Description
Resume exit_ActiveXStr0_Click
End Sub

Ich hoffe, ich konnte Dir helfen…
Gruß
Uli