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.
…eine globale Variable definiert (in Beispiel = AF)
Global AF As Byte
…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
Err_ Projektbeginn _Click:
MsgBox Err.Description
Resume Exit_ Projektbeginn _Click
End Sub
…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