Datum gebruiken via userform

[davylenders123]

Ik heb een bestand waar een userform in verwerkt zit.

Bij datum levering komt automatisch de datum van vandaag te staan en door in de cel te klikken komt er een kalender naar boven waar je een andere datum kan kiezen.
Nu heb ik in de userform nog een datum velt toegevoegd , Datum bestelling en daar wordt niet automatisch de datum van vandaag ingevuld .
Tot hier gaat alles zoals het zou moeten.

Als ik in het velt datum bestelling klik en in de kalender een datum kies , wijzigt de datum in het velt datum levering ook in zelfde datum.
Dit zou niet mogen , hoe kan ik dit oplossen .
Geraak er niet uit.

 

[edmoor]

Het staat hard in de klassenmodule dat beide velden de gekozen datum moeten krijgen:

Private Sub v_label_click()
   frmBinnenkomstmaster.LblDatum = CDate(v_label.Tag)
   frmBinnenkomstmaster.Lbldatumbestelling = CDate(v_label.Tag)
   Unload Kalender
End Sub

Bepaal daar dus van welk veld je kwam en zet alleen op dat veld de gekozen datum.

Op deze manier:
Bekijk bijlage Kopie van Map1.xlsm

 

[davylenders123]

edmoor

Bedankt voor je snelle reactie :thumb:
Het werkt waarvoor dank.

 

[davylenders123]

Heb nog een vraagje hier omtrent.
Heb nu een extra tabblad aangemaakt waar een andere userform op draait.
Hier zit ook de keuzen in om een kalender op te roepen door in het label te klikken zoals in mijn vorig tabblad.

De userform in tabblad Stock masterbarcode doet alles wat hij moet doen , enkel als ik op het label klik voor de datum aan te passen en om de kalender op te roepen krijg ik nog een foutmelding.
Heb hier zelf al iets geprobeerd maar niet het juiste blijkbaar.
Wat moet ik er juist aan aanpassen om daar ook de kalender te laten werken ?

Hier het stukje code waar de foutmelding op komt.
Heb ook het bestand toegevoegd.

Ik weet het zal weer wel een domme fout zijn

Public WithEvents v_label As MSForms.Label
Private Sub v_label_click()
   frmBinnenkomstmaster.dv = CDate(v_label.Tag)
   'frmStockmasterbarcodes.dv = CDate(v_label.Tag)
   
   Unload Kalender
End Sub

 

[edmoor]

Nu moet uiteraard ook dat andere userform in de variabele dv worden meegenomen:
Bekijk bijlage Kopie van Map1B.xlsm

 

[davylenders123]

edmoor

Nog eens bedankt voor je snelle hulp :thumb: