Steuerelement Kalender

Von: , Frage gestellt am Do, 19. Feb 2009

Hallo

Bin hier neu und bitte sorry falls ich hier irgendwelche Regeln missachtet habe. Bin in der Lernphase.

Ich habe ein Formular in diesen befindet sich ein registerfeld und in diesen ein Unterformular mit dem Textfeld Datum.

Nun möchte ich in diesen Textfeld Datum mittels Steuerelement Kalender das Datum einfügen.

Ich hätte da so einen Code aber der funkt nicht.


Private Sub Form_DblClick(Cancel As Integer)

Forms!Formular!Unterformular!Datum.Value = Kalender.Value

End Sub

Formular und Unterformular habe ich mit den richtigen Namen geschrieben hier nur in der Form um zu zeigen wie ich den weg zur zeit habe.

Vielleicht hat ja wer die Lösung für mich.

Danke

13 Antworten zu dieser Frage

1. Antwort von nach 36 Minuten 0 hilfreich

   Re: Steuerelement Kalender

   Hallo,
   
   
   
   bau das Kalender-Steuerelement in das Unterform ein und benutz eine Ereignisprozedur ähnlich dieser:
   
   Private Sub Kalender1_DblClick()
   Me!Datum = Me!Kalender1
   End Sub
   
   
   
   
   Viele Grüße vom Bodensee
   Franz , DF6GL
   
   PS: Feedback erwünscht!
   

   • Antwort von nach 2 Stunden 0 hilfreich

     Re^2: Steuerelement Kalender

     hallo
     
     danke mal für die schnelle antwort, aber...
     
     ich glaub ich muß es näher erklären.
     
     Formular
     darin ein Registersteuerelement
     darin ein Unterformular in Datenblattansicht.
     
     daher kann ich den kalender nicht in das Unterformular setzen.
     
     der Vorgang sollte sich so abspielen.
     
     wenn ich in das textfeld Datum zweimal klicke geht der kalender auf (das geht auch schon bei mir)
     danach möchte ich das Datum im Kalender aussuchen und auch mit doppelklick in das Textfeld Datum schicken(doppelklick darum- da sich der Kalender danach automatisch schließt)
     
     ich habe einen versuch wo alles in einem formular ist, da geht es auch. nur wenn ich wie in diesen formular ein unterformular habe geht es leider nicht.
     

     • Antwort von nach 18 Stunden 0 hilfreich

       Re^3: Steuerelement Kalender

       Hallo,
       
       
       schreib mal bei Doppelklick-Ereignis des Kalender(formulares) (oder bei einem anderen geeigneten Ereignis):
       
       Screen.ActiveControl.Text= Me!Kalender1
       oder
       Screen.PreviousControl.Text= Me!Kalender1
       evtl.dabei .Text auch weglassen.
       
       
       je nachdem, wie Deine "Cursorsteuerung" aussieht.
       
       "Screen.ActiveControl" wirkt auch auf Unterformularfelder.
       
       
       
       Viele Grüße vom Bodensee
       Franz , DF6GL
       
       PS: Feedback erwünscht!
       

       • Antwort von nach 19 Stunden 0 hilfreich

         Re^4: Steuerelement Kalender

         hallo
         
         aber wie kann es sich hierbei auf das textfeld beziehen. bei diesem code gibt es keinen pfad? wie findet er den weg zu meinem textfeld datum?
         

         • Antwort von nach 21 Stunden 0 hilfreich

           Re^5: Steuerelement Kalender

           Hallo,
           
           
           
           aber wie kann es sich hierbei auf das textfeld beziehen. bei
           diesem code gibt es keinen pfad? wie findet er den weg zu
           meinem textfeld datum?
           probier es doch einfach...
           
           
           Wenn Du das Kalenderform mit z. B. Doppelklick auf das Feld "Datum" öffnest, dann zeigt Screen.ActiveControl auf dieses Feld.
           

           • Antwort von nach einem Tag 0 hilfreich

             Re^6: Steuerelement Kalender

             hallo
             
             so ich bin leider einer von den ganz dummen,
             
             hier habe ich den code wenn ich auf das textfeld Datum doppelklicke!
             
             
             Private Sub Datum_DblClick(Cancel As Integer)
             DoCmd.OpenForm "Kalender"
             End Sub
             
             damit mache ich per doppelklick auf textfeld datum den kalender auf,
             
             danach mit doppelklick auf das richtige datum im Formular Steuerelement kalender
             
             
             Private Sub Form_DblClick(Cancel As Integer)
             Screen.ActiveControl.Text = Me!Kalender
             End Sub
             
             
             was mache ich falsch? [Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
             

           • Antwort von nach einem Tag 0 hilfreich

             Re^7: Steuerelement Kalender

             Hallo, Private Sub Datum_DblClick(Cancel As Integer)
             DoCmd.OpenForm "Kalender"
             End Sub
             du musst dem Formular "Kalender" schon sagen, von welchem Feld es aufrufst:
             
             

             DoCmd.OpenForm "Kalender", acNormal, , , , acDialog, Screen.ActiveControl
             

             
             siehe dazu die Access-Hilfe zu DOCMD & Openform Private Sub Form_DblClick(Cancel As Integer)
             Screen.ActiveControl.Text = Me!Kalender
             End Sub
             was mache ich falsch?
             nun musst du die Information die übergeben wurde auswerten:
             (siehe dazu die Access-Hilfe für OpenArg
             
             Private Sub Form_Open(Cancel As Integer)
             If Not IsNull(Me.OpenArgs) Then me.DATUMSFELD = Me.OpenArgs
             end sub
             
             D.h. du musst ein zusätzliches, ungebundenes Feld auf deinem Kalender erstellen (sichtbar = nein), das diese Information aufnimmt. Hier im Beispiel das Feld mit der Bezeichnung: DATUMSFELD
             
             Private Sub Form_DblClick(Cancel As Integer)
             Dim SAC as Control
             Set SAC = Me.DATUMSFELD
             SAC = Me!Kalender
             
             'ggf. hier noch das Kalender-Formular schließen
             
             End Sub
             
             (nicht getestet, solle aber funktionieren :-)
             
             Grüße aus Schönberg (Lübeck)
             Wolfgang
             (Netwolf)
             

           • Antwort von nach einem Tag 0 hilfreich

             Re^7: Steuerelement Kalender

             Hallo,
             
             etwa so im Modul von Form "Kalender":
             
             Option Compare Database
             Option Explicit
             Dim ctl As Control
             
             Private Sub Form_Close()
             ctl.Text = Me!Calendar0
             Set ctl = Nothing
             End Sub
             
             Private Sub Form_Open(Cancel As Integer)
             Set ctl = Screen.ActiveControl
             End Sub
             
             
             
             und Aufruf kann so bleiben (besser wäre modal zu öffnen mit acDialog):
             
             Private Sub Datum_DblClick(Cancel As Integer)
             DoCmd.OpenForm "Kalender", , , , , acDialog
             End Sub
             
             
             
             Viele Grüße vom Bodensee
             Franz , DF6GL
             
             PS: Feedback erwünscht!
             

2. Antwort von nach 46 Minuten 0 hilfreich

   Re: Steuerelement Kalender

   Hallo, Nun möchte ich in diesen Textfeld Datum mittels Steuerelement
   Kalender das Datum einfügen.
   bei Doppelklick auf das Feld mit dem Datum, öffnest du eine neues Fenster, oder befindet sich das Kalender-Objekt neben dem Feld? Private Sub Form_DblClick(Cancel As Integer)
   Doppelklick auf das Formular macht keinen Sinn!
   Überlege wann das Datum aus dem Kalender übertragen werden soll, erstelle ggf. dafür eine extra Taste. Forms!Formular!Unterformular!Datum.Value = Kalender.Value
   Me.Datum = me.Kalender sollte reichen
   
   Hier in den FAQs findest du reichlich Links mit Beispielen, die du in deinen Code übernehmen kannst.
   
   Schau dir die knowhow3 mal an, da ist u.a. auch ein Beispiel drin.
   (man muss ja nicht immer das Rad neu erfinden :-)
   
   Grüße aus Schönberg (Lübeck)
   Wolfgang
   (Netwolf)
   

• « Zurück
• 1
• 2
• Vorwärts »

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!