Private Sub Form_Load() Dim NEWEFFACE As String End Sub
Private Sub nouveau_Click() With TEXT1 NEWEFFACE = .Mask .Mask = "" .Text = "" .Mask = NEWEFFACE End With End Sub
MaskEdBox1.Mask = "" MaskEdBox1.Text = ""
Private Sub MaskEdBox1_GotFocus() MaskEdBox1.Mask = "## ###.00" End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionMaskEdBox1.Mask = "" MaskEdBox1.Text = ""
text1.mask = "__ ___.__"
LE SOLUTION EST LE SUIVANT,
text1.mask = "__ ___.__"
Private Sub Form_Load() Dim NEWEFFACE As String End Sub
Private Sub cmdClearD_Click() 'Effacer la date With TEXT1 NEWEFFACE = .Mask .Mask = "" .Text = "" .Mask = NEWEFFACE End With End Sub
'Déclarations Publiques ici: Dim NEWEFFACE As String Private Sub Form_Load() 'Déclaration privée (à utiliser uniquement dans la Sub) 'Exemple: Dim Test As String Test = "Effacer la date" cmdClearD.Caption = Test End Sub Private Sub cmdClearD_Click() 'Effacer la date With Text1 NEWEFFACE = .Mask .Mask = "" .Text = "" .Mask = NEWEFFACE End With End Sub
Private Sub Form_Load() End Sub Private Sub cmdClearD_Click() 'Effacer la date Dim NEWEFFACE As String With Text1 NEWEFFACE = .Mask .Mask = "" .Text = "" .Mask = NEWEFFACE End With End Sub