Autres Textbox personnalisé

[chaelie2015]

Bonjour
Dans mon Userfom? j'ai deux textbox, le 1er nommé "txtDépart" et le 2eme nommé "txtNenregistrement"
je souhaite lors du saisi un chiffre dans le textbox "txtNenregistrement" il affiche automatiquement dans ce dernier le format suivant
"chiffre/BEL/Année("txtDépart")
exemple : dans le 1 textbox : 28/11/2021
dans le 2em Textbox, si je saisi 12 j'aurai ce que suit : 012/BEL/2021.
Merci

 

[Lolote83]

Bonjour CHAELIE2015,
Peut être comme ceci.
Une fois la valeur saisie dans TxtNenregistrement, valider

Private Sub txtNenregistrement_AfterUpdate()
    txtNenregistrement = "0" & Val(txtNenregistrement) & "/BEL/" & Year(txtDépart)
End Sub

Enfin si j'ai bien compris
@+ Lolote83

 

[chaelie2015]

Bonjour CHAELIE2015,
Peut être comme ceci.
Une fois la valeur saisie dans TxtNenregistrement, valider

Private Sub txtNenregistrement_AfterUpdate()
    txtNenregistrement = "0" & Val(txtNenregistrement) & "/BEL/" & Year(txtDépart)
End Sub

Enfin si j'ai bien compris
@+ Lolote83

bONJOUR
Lolote86
C'est parfait , mais il reste un souci si la date de txtDépart est vide j'ai un bug
a+

 

[Lolote83]

Re bonjour,
Peut être en testant si date<>vide

Private Sub txtNenregistrement_AfterUpdate()
    If txtDépart <> "" Then
        txtNenregistrement = "0" & Val(txtNenregistrement) & "/BEL/" & Year(txtDépart)
    End If
End Sub

@+ Lolote83

 

[chaelie2015]

Re bonjour,
Peut être en testant si date<>vide

Private Sub txtNenregistrement_AfterUpdate()
    If txtDépart <> "" Then
        txtNenregistrement = "0" & Val(txtNenregistrement) & "/BEL/" & Year(txtDépart)
    End If
End Sub

@+ Lolote83

Merci pour la réponse
et si le textbox txtDépart est vidé alors vider txtNenregistrement et aller vers txtDépart

mais " txtDépart.SetFocus" ça n'a pas fonctionné pourquoi ?
a+

Private Sub txtNenregistrement_AfterUpdate()
If txtDépart <> "" Then
    txtNenregistrement = "0" & Val(txtNenregistrement) & "/BEL/" & Year(txtDépart)
Else
    MsgBox " veuillez saisir la date de départ"
    txtDépart.SetFocus
    txtNenregistrement.Value = ""
End If
End Sub