Como hago mostrar mensaje si un textbox tiene coma "," de lo contrario muestre mensaje no hay coma
hice el contador pero quiero que me muestre un mensaje cuando un texbox tenga una o mas coma "," y pueda decir hay coma de lo contrario un mensaje que no hay coma, a través cuando presione un botón del formulario si alguien me pueda ayudar se lo agradezco.
1 respuesta
Respuesta de Alberto Jimenez Cabrera
1
Estoy suponiendo que tu textbox se llama Text1, y tu botón se llama Command1, debes cambiarlos a los nombres que estas usando realmente.
El código es el siguiente
Private Sub Command1_Click()
Dim NumeroComas As Integer
Dim Cadena As String
Cadena = Me.Text1.Text
NumeroComas = UBound(Split(Cadena, ","))
If NumeroComas > 0 Then
MsgBox "Hay " & NumeroComas & " comas en el Texto"
Else
MsgBox "No hay Comas en el Texto"
End If
End Sub
