Supportnet / Forum / Datenbanken
Kalender durch Klick auf versch. Textfelder öffnen?<Danke>
Frage
Hallo,
hoffe ihr könnt mir helfen. Fange mit VBA gerade erst an.
Durch den Klick auf einen Button öffnet sich ein Kalender und prüft in welchem Textfeld sich der Cursor befindet. Nach Datumsauswahl wir das betreffende Textfeld gefüllt. Das funktioniert soweit problemlos.
Ich habe aber folgendes Problem:
Was muß ich aber tun, damit das Klick-Ereginiss des Buttons auf den Textfeldern im Formular geht?
Also, es soll sich nach dem Klick auf eines der Textfelder der Kalender öffnet. Nach Auswahl des Datums soll das Feld gefüllt werden aus dem der Klick hervorgerufen wurde.
Hab das mal versucht. Aber nur für das "dfFeld2" Textfeld. Weiter scheitere ich leider.
Ich hoffe ich habe das Problem verständlich erläutert und ihr könnt mir helfen.
Vielen Dank!
KALENDER FORMULAR
=================
Option Explicit
´
´ Globale Variablen in denen der Name des
´ aufrufenden Formulares und des Steuerelementes,
´ in welches das Datum geschrieben werden soll,
´ eingetragen werden.
´
Dim glbFrmName As String
Dim glbCtrlName As String
Private Sub Form_Current()
´
´ Beim Anzeigen des Popup-Dialoges
´
Dim sDummy As String
Dim Pos1 As Integer
Me!ActiveXKalender.Value = Date
DoCmd.MoveSize 14000, 2000
´ OpenArgs auslesen
´
sDummy = OpenArgs
´
´ Trennzeichen suchen
´
Pos1 = InStr(sDummy, ";")
´
´ Formularname aus OpenArgs ermitteln
´
glbFrmName = left$(sDummy, Pos1 - 1)
´
´ Steuerelementname aus OpenArgs ermitteln
´
glbCtrlName = right$(sDummy, Len(sDummy) - Pos1)
End Sub
Private Sub PbOK_Click()
´
´ Wert des Kalendersteuerelementes in das aufrufende Formular
´ übertragen.
´
Forms(glbFrmName).Controls(glbCtrlName) = Me.ActiveXKalender
DoCmd.Close
End Sub
TEXTFELDER FORMULAR
=================
Private Sub dfFeld2_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub dfFeld2_Click()
´
´ PbKalender_Click()
´
´ Der Button "?" wurde betätigt
´
On Error GoTo Err_dfFeld2_Click
Dim stDocName As String
Dim stOpenArgs As String
´ Kalender-Dialog
´
stDocName = "DlgKalender"
´
´ OpenArgs zusammenbauen
´ ;
´
stOpenArgs = Me.Name & ";" & glbDatenfeld
´
´ Popup-Dialog öffnen
´
´ Hiermit wird festgelegt, daß es
´ sich um einen PopUp-Dialog -------+
´ handelt. |
´ V
DoCmd.OpenForm stDocName, , , , , acDialog, stOpenArgs
Exit_dfFeld2_Click:
Exit Sub
Err_dfFeld2_Click:
MsgBox Err.Description
Resume Exit_dfFeld2_Click
End Sub