Como impedir que em um campo tenha mais de uma virgula, podendo conter somente uma.

Vc pode fazer assim....é mó gambi

 

Dim Vnum As Integer  'Declara no general

________________________________________________________________

Private Sub Form_Load()     'no form load
Vnum = 0
End Sub

________________________________________________________________
 
Private Sub Text1_KeyPress(KeyAscii As Integer)    'na propriedade KeyPress do text
If KeyAscii = 44 Then
    If Vnum = 1 Then
        KeyAscii = 0
    Else
        Vnum = 1
    End If
End If
End Sub

________________________________________________________________

 

Acho que quebra o galho....

Abraço

Olá! Você pode fazer assim também.

 

Private Sub Text1_KeyPress(KeyAscii As Integer)
   If InStr(Text1, ",") <> 0 And KeyAscii = 44 Then KeyAscii = 0
End Sub

 

Abraço!