Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

Hilfe zu Access-Kalender-Steuerelement





Frage

Moin... wo finde ich eine VERSTÄNDLICHE Anleitung wie mit dem Kalendersteuerelement umzugehen ist. Angezeigt bekomme ich es... nur wie motiviere ich das Ding folgendes zu tun: Ich habe ein Formular, wo dieses Steuerelement angezeigt wird, sowie ein Datumsfeld (Schlüsselfeld) welches in der Tabelle "Daten" steht. Wenn ich auf den Kalender ein Datum drücke, soll Access nun folgendes tun: Suchen ob dieses Datum bereits vorhanden ist und die dazugehörigen weiteren Daten anzeigen. - sowie - Wenn das Datum noch nicht vorhanden ist, einen neuen Eintrag erzeugen. Danke schon mal...

Antwort 1 von Armin

hi,

im wesentlichen so for das MS ActiveX Element Kalender (aus der klasse MSCAL.Calendar.7):

1.
generell sind die eigenschaften des steuerelementes unter ´Andere´ im Eigenschaftsdialog zu finden. wenn man dort eine eigenschaft anwähltl, kommt die spezifische Hilfe zum Dialog.

2.
Datum einfügen, wenn noch nicht da ... in etwa so:



Private Sub acxKalender_Click()

    Me.Filter = ´AnwenderID = ´ & glngActualUserID & ´ AND Datum = #´ & Format(Me.acxKalender.Value, ´m-d-yy´) & ´#´
    Me.FilterOn = True
    
    If Me.NewRecord Then
        ´ add new date
        DoCmd.GoToRecord , , acNewRec
        
        Me.tbxDatum = Me.acxKalender.Value
        Me.tbxAnwenderID = glngActualUserID
    End If
    
    Me.Painting = False
    Me.Requery
    Me.Painting = True
    
End Sub
 



gruesse armin

Antwort 2 von Armin

... nachtrag:

beim cut and paste sind die ´ durch ´ ersetzt worden, du musst also den string so aufbauen:

Me.Filter = ´AnwenderID = ´ & glngActualUserID & ´ AND Datum = #´ & Format(Me.acxKalender.Value, ´m-d-yy´) & ´#´

@supportnet:
vielleicht ein bug der
 
funktionalität ??!

gruesse armin

Antwort 3 von Juventas

Hallo,

ich habe ein Problem in Access mit dem
Kalender = MsCal.Calendar.7

Diesen Kalender habe ich in ein Accessformular
integriert. Dieser Kalender zeigt immer beim Öffnen das Erstellungsdatum an, obwohl das Ereignisfeld
- bei Fokuserhalt- die Formel =Datum()
enthält.

ValueIsNull ist auf Nein eingestellt.
Value enthält das Erstellungsdatum 7.4.2005
Year enthält = 2005

Was kann ich tun ??? damit der Kalender beim
öffnen des Formulars das aktuelle Datum anzeigt?

Vielen Dank im Voraus.

Gruß

Juventas

Antwort 4 von ArminP

hi juventas,

ich würde das aktuelle datum im ereignis Form_open deines forms setzen:

 
me.acxKalender.Value = Date


die anderen parameter habe ich genauso.

gruesse armin

Antwort 5 von Juventas

Hi Armin,

vielen Dank für Deine prompte Antwort.

Ich bin da nicht so der Access-Freak und habe
Deine Erklärung wahrscheinlich nicht richtig verstanden.

1. was heißt form_open
2. was bedeutet - me.acxKalender.Value = Date

Vielleicht kannst Du das für einen Laien kurz erläutern.

Danke.

Gruß

Juventas

Antwort 6 von ArminP

hi,

1. lade dein formular mit dem kalender element im entwurfsmodus.

2. selektiere das formular (oben links).

3. gehe im eigenschaftsfenster (alternativ F4) auf das tab "ereignisse" und trage in die eigenschaft "beim öffnen" den wert [ereignisprozedur] ein.

4. in dem sich öffnenden vba editor trägst du den obigen code ein.

ich schlage trotzdem vor, ein handbuch auch für die bedienung zu rate zu ziehen,

armin