label van dtpicker wijzigen

[beer58]

Hallo Luitjes

Ik heb een userform met een dtpicker zie hieronder

Private Sub Datum1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
End Sub

Private Sub Label3_Click()
    Label3 = Format(Datum1, "dddd") ' uitkomst bv zondag
End Sub

Private Sub UserForm_Initialize()
'    DTPicker1.Value = Date
    Datum1.Value = Date
    datum = Datum1
    Label3 = Format(Datum1, "dddd") ' uitkomst bv zondag
     tekst4.List = WorksheetFunction.Transpose(WorksheetFunction.Transpose(Sheets("Klant").Columns(2).SpecialCells(xlCellTypeConstants)))
End Sub

Private Sub datum1_click()
    Label3 = Format(Datum1, "dddd") ' uitkomst bv zondag
End Sub

Op het moment dat ik het userform open, geeft datum1 netjes de naam van de dag,
maar op het moment dat ik een andere datum kies, blijft de naam hangen op de naam waarmee het formulier geopend werd

zoals je ziet het ik op diverse plaatsen label3 terug laten komen, maar nergens gaat het

groetjes Rob

 

[pasan]

datum1 = date en date is datum van vandaag en label3 krijgt datum1 terug
maar plaats het bestand want zo is het niet duidelijk hoe jij een andere datum kiest

 

[beer58]

Als ik op een leeg userform alleen een dtpicker neerzet, krijg ik onderstaande vba

Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

welke code moet ik dan doen

dagnaam = Format(Datum1, "dddd") ' uitkomst bv zondag

ik wil graag dat dagnaam de naam van de gekozen dag krijgt.

moet ik dan bij Datum1 dtpicker1 neerzetten ?

want de bedoeling is, dat als de dagnaam een bepaalde waarde heeft er een foutmelding komt

 

[huijb]

@beer58 Code dient tussen de codetags geplaatst te worden. Hiermee is het beter leesbaar voor de helpers. Zie ook hier http://www.helpmij.nl/forum/showthr...-de-helpers-in-deze-sectie-van-dienst-te-zijn

 

[pasan]

ik heb een 64 bits pc en ook excel versie helaas kan ik dit niet testen omdat er geen dtpicker in deze excel versie zit
maar probeer eens
dagnaam = dtpicker1.value

 

[beer58]

Sorry Huijb,

Ik zal de volgende keer de code in codetags plaatsen

Gr Robert