tekstboxen koppelen

[Roma]

beste specialisten,
Ik heb 2 tekstboxen.
Als in "Txt_Datum" de datum is ingevoerd moet in "Txt_Maand" automatisch de maand komen.
Wie kan mij hierbij helpen

    Txt_Datum.Value = Format(Date, "dd-mm-yyyy")
    Txt_Maand.Value = Format(Date, "mmmm")

Alvast bedankt

 

[tkint]

Beste,
Maak een private sub textbox1_change waarin je de volgende regel opneemt.
txt_Maand.value=month(txt_Datum.value)

 

[OctaFish]

Da's vrij simpel:

Private Sub Txt_Datum_AfterUpdate()
    Txt_Maand.Value = Format(Date, "mmmm")
End Sub

 

[snb]

Het is niet voor-de-hand-liggend een tekstvak voor een getal (=datum) te gebruiken.

 

[OctaFish]

Kun je dan andere vakken op een formulier zetten? In mijn toolbox zit alleen een tekstvak.... (voor dit doel, voordat iemand wijs gaat doen )

 

[Roma]

Helaas het werkt niet in mijn formulier

 

[edmoor]

De getoonde voorbeelden zijn prima. Laat dus eens zien wat je hebt gedaan. Het beste doe je dat door je document of een voorbeeld ervan te plaatsen.

 

[snb]

@octa

Private Sub UserForm_Initialize()
    ComboBox1.List = Array(Date)
End Sub

Private Sub UserForm_Click()
  MsgBox TypeName(ComboBox1.List(0, 0))
End Sub

 

[OctaFish]

En wat moet dat voorbeeld mij zeggen? Ik kan echt wel een combobox vullen. Met datums, getallen, teksten.... Een tekstveld met een datum vullen doe ik bij voorkeur middels een DatePicker. Krijg je de juiste waarde in je (tekst)veld. Ik zie de noodzaak niet van een keuzelijst, want je moet 'm toch ergens mee vullen.

 

[snb]

Je zou het kunnen beschouwen als een antwoord op jouw vraag in #5.

Private Sub UserForm_Initialize()
    TextBox1.Value = Date
    Label1.Caption = Date
End Sub

Private Sub UserForm_Click()
  MsgBox TypeName(TextBox1.Value)
  MsgBox TypeName(Label1.Caption)
End Sub

Ik denk dus dat je een tekstvak niet met een datum kunt vullen.