Calendar1.close

Computer: Software & Programmierung Microsoft Access
#1

Hallo Leute,
Ich setze mit dem folgenden Sub das Datum des Formulars „Calendar1“ mittels DoppelKlick in das Feld Wiedervorlage meines Unterformulars UF1 und möchte dann das Formular „Calendar1“ sofort schließen.

Ich erhalte aber in der letzten Zeile vor „End Sub“ die Fehlermeldung 2498 Sie haben für eines der Argumente einen Ausdruckeingegeben, der nicht den für das Argument erforderlichen Datentyp hat.

Kann jemand helfen ?

Private Sub Calendar1_DblClick()

Dim DD, MM, JJJJ As String
Dim Wiedervorlage As Date

DD = Calendar1.Day
MM = Calendar1.Month
JJJJ = Calendar1.Year

Wiedervolage = DD & „.“ & MM & „.“ & JJJJ

Forms![Suchmaske]![UF1]![Wiedervorlage] = DD & „.“ & MM & „.“ & JJJJ
DoCmd.Close ([Calendar1])
End Sub

Gruß Christian

#2

Hallo,

Ich setze mit dem folgenden Sub das Datum des Formulars
„Calendar1“ mittels DoppelKlick in das Feld Wiedervorlage
meines Unterformulars UF1 und möchte dann das Formular
„Calendar1“ sofort schließen.

Wirklich „Formular“??

Das sieht eher nach einem Steuerelement aus…

Ich erhalte aber in der letzten Zeile vor „End Sub“ die
Fehlermeldung 2498 Sie haben für eines der Argumente einen
Ausdruckeingegeben, der nicht den für das Argument
erforderlichen Datentyp hat.

Ein Steuerelement hat halt auch einen anderen Datentyp als ein (erwartetes) Formular…

Kann jemand helfen ?

Private Sub Calendar1_DblClick()

Dim DD, MM, JJJJ As String
Dim Wiedervorlage As Date

DD = Calendar1.Day
MM = Calendar1.Month
JJJJ = Calendar1.Year

:

Wiedervolage = DD & „.“ & MM & „.“ & JJJJ

Forms![Suchmaske]![UF1]![Wiedervorlage] = DD & „.“ & MM & „.“
& JJJJ

ein bisschen arg verquert…

Me![UF1]![Wiedervorlage] = Cdate(DD & „.“ & MM & „.“

& JJJJ) ’ reicht aus.

:smiley:oCmd.Close ([Calendar1])

Me!Calendar1.Visible = False ’ Steuerelement unsichtbar setzen

Gruß
Franz, DF6GL

#3

Vielen Dank,

Aber leider habe ich feststellen müssen, dass das Steuerelement auf einem eigenen Formular ist.

Deswegen versuche ich das komplette Formular zu schließen.

Mit „Me!Calendar1.Visible = False“

verschwindet nur das Steuerelement. Das Formular bleibt jedoch und ist somit leer.

Noch eine Lösung ?

Gruß Christian

#4

Hallo,

und wie heißt dann das Formular? Wenn der Code im „Kalender“-Form abläuft,dann könnte

Docmd.Close acForm,Me.Name

funktionieren.

Gruß
Franz, DF6GL

#5

Hallo,

Hallo Franz,

und wie heißt dann das Formular? Wenn der Code im
„Kalender“-Form abläuft,dann könnte

Formular heißt auch „Calendar1“ genau wie Steuerelement.

Docmd.Close acForm,Me.Name

funktionieren.

Hilft leider auch nichts - Steuelement verschwindet, Form bleibt.

Gruß
Franz, DF6GL

Gruß zurück Christian
So - Montag weiter - danke !

#6

Hallo,

Private Sub Calendar1_DblClick()

Dim DD As String , MM as String , JJJJ As String

DD = Me! Calendar1.Day 'falls diese (Kalender-)Variablen den Datentyp TEXT besitzen…
MM = Me! Calendar1.Month
JJJJ = Me! Calendar1.Year

Wiedervolage = DD & „.“ & MM & „.“ & JJJJ

Forms![Suchmaske]![UF1]![Wiedervorlage] = Cdate(DD & „.“ & MM & „.“ & JJJJ)

DoCmd.Close acForm, Me.Name’Hiermit wird das Form geschlossen, in dem dieser Code abläuft, außer es sind besondere Massnahmen getroffen, es zu verhindern (z. B. Im Form_Close-Ereignis)

End Sub

Gruß
Franz, DF6GL