Supportnet Computer
Planet of Tech

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

Antwort von



Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: