Textbox en kalender

[Atwist]

Hallo,

Ik probeer een textBox aan een kalender te koppelen maar krijg deze niet werkend.

Private Sub Calendar1_Click()

TextBox4 = Calendar1.Value

TextBox4 = "dd mmmm yyyy"

End Sub

Wat is hier verkeerd aan???

 

[Roncancio]

Je dient aan te geven dat je de opmaak dd mmmm yyyy wilt gebruiken, anders zal VBA niet begrijpen wat je bedoelt.

Private Sub Calendar1_Click()

TextBox4.Value = Format(Calendar1.Value, "dd mmmm yyyy")

End Sub

Met vriendelijke groet,


Roncancio

 

[Atwist]

Roncancio,

Ik krijg het niet voor elkaar, zelf denk ik dat het te maken heeft dat het met 2 userforms werkt 1 is Calendar1 en de andere is userform1.

Heb er maar weer even een voorbeeld bij gedaan

Bekijk bijlage Tekenlijsten maken - kopie.xls

 

[Cobbe]

Zou dit u vooruit helpen?

Private Sub CommandButton1_Click()
inv_datum = Calendar1.Value
UserForm1.TextBox4.Value = Format(inv_datum, "dd-mm-yy")
Kalender.Hide
End Sub

Succes, Cobbe

 

[Atwist]

Hallo Cobbe

Dit werkt inderdaad, ik zie nu ook waar fout zit (had toch te maken met 2 userforms)

Mijn dank is groot:thumb: