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:
gruesse armin
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
gruesse armin
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
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:
die anderen parameter habe ich genauso.
gruesse armin
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
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
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

