Textbox automatisch laten invullen

[Pinokkio89]

Goedendag,

Ik heb twee textboxes, ik wil nu graag dat wanneer je een textbox invult, de andere ook automatisch wordt ingevuld.

Een voorbeeld:

Bij Textbox 1 wordt '200901' ingevoerd, dan wil ik dat in Textbox 2 '200801' wordt ingevuld. Dit hoeft niet anderom te kunnen.
Als '201001' wordt ingevoerd in Textbox 1, dan moet er in Textbox 2 '200901' komen te staan.

Is dit mogelijk?

Alvast bedankt!

 

[OctaFish]

Dat kun je met een Select Case doen bij het AfterUpdate event:

Private Sub Teksvak1_AfterUpdate()
    Select Case Me.Teksvak1
        Case "200901"
            Me.Teksvak2.Value = "200801"
        Case "201001"
            Me.Teksvak2.Value = "200801"
        Case Else
    End Select
End Sub

Of, als je wilt bijwerken op basis van de ingevoerde tekst: (zo te zien pak je vier cijfers als jaar, en trek je er de waarde één van af)

Private Sub Teksvak1_AfterUpdate()
    Me.Teksvak2 = CStr(CInt(Left(Me.Teksvak1, 4)) - 1 & Mid(Me.Teksvak1, 5, 2))
End Sub

Ik mag je overigens aanraden om fatsoenlijke veldnamen te gebruiken; textbox 1 etc. zegt niet zoveel over welk veld het is...

 

[Pinokkio89]

Hartelijk dank.

Wat betreft eerder genoemde veldnamen, deze zijn fictief .