VIRGULA
Como impedir que em um campo tenha mais de uma virgula, podendo conter somente uma.
Acho que é isso q tu precisa
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc(",") Then
If Text1.Text Like "*,*" Then KeyAscii = 0
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc(",") Then
If Text1.Text Like "*,*" Then KeyAscii = 0
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) 'Este evento é disparado a cada tecla pressionada
If KeyAscii = Asc(",") Then ' se for virgula
If Text1.Text Like "*,*" Then KeyAscii = 0 'vejo se já existe uma outra
End If 'se existir cancelo a virgula
End Sub
If KeyAscii = Asc(",") Then ' se for virgula
If Text1.Text Like "*,*" Then KeyAscii = 0 'vejo se já existe uma outra
End If 'se existir cancelo a virgula
End Sub
Tópico encerrado , respostas não são mais permitidas