Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

MsgBox al encontrar "comas"

Estas en el tema de MsgBox al encontrar "comas" en el foro de Visual Basic clásico en Foros del Web. Hola, soy nuevo e el foro Tengo un programa en Visual Basic 6, nesesito encontrar comas en txtNue.Text de un formulario para mandar un msgbox ...
  #1 (permalink)  
Antiguo 13/04/2011, 11:46
 
Fecha de Ingreso: abril-2011
Mensajes: 13
Antigüedad: 10 años, 2 meses
Puntos: 0
MsgBox al encontrar "comas"

Hola, soy nuevo e el foro
Tengo un programa en Visual Basic 6, nesesito encontrar comas en txtNue.Text de un formulario para mandar un msgbox que le diga a mi usuario que no puede ingresar comas..
Anteriormente solo tenia un replace para cambiar las comas por nada, pero ahora deseo mandar un mensaje de error para que no se puedan escribir las comas y no se como buscar las comas:

-------------------------------------
Dim r As String
r = Replace(txtNue.Text, ",", "")
-------------------------------------

Private Sub botAgregar_Click()

If Trim(txtNue.Text) = "" Then
st = MsgBox("Escriba la palabra o frase a agregar", vbOKOnly, "Error")
txtNue.SetFocus
Else
If buscaPor = "evento" And IsDate(txtFecEve.Text) = False Then
st = MsgBox("No es una fecha correcta", vbOKOnly, "Error")
Else
Screen.MousePointer = 11
Y = InsertaCatalogo(buscaPor, txtNue.Text, modoCatalogo, txtFecEve.Text)
If Y = True Then
pivote = txtNue.Text
origen = "mantenimiento"
Screen.MousePointer = 0
MsgBox "Registro agregado satisfactoriamente"
Unload Me

End If
End If
End If

End Sub
------------------------------------------
  #2 (permalink)  
Antiguo 13/04/2011, 11:56
Avatar de lokoman  
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 11 años, 8 meses
Puntos: 47
Respuesta: MsgBox al encontrar "comas"

Hola!!
Puedes usar la instrucción INSTR para ubicar si hay o no comas... es algo asi:

Código vb:
Ver original
  1. Dim TEST As Integer
  2.     TEST = InStr(1, txtNue.Text, ",")
  3.     If TEST <> 0 Then MsgBox "S e encontró una coma ',' en la posicion: " & TEST & " !!", vbInformation

Te devolverá la posicion inicial de la coma, si no te tre nada, es porque no hay comas
  #3 (permalink)  
Antiguo 13/04/2011, 13:16
 
Fecha de Ingreso: abril-2011
Mensajes: 13
Antigüedad: 10 años, 2 meses
Puntos: 0
Respuesta: MsgBox al encontrar "comas"

En caso de encontrar comas, necesito que regrese al txtNue.text pero entre mi bola de if's no encuentro donde ubicarlo

Private Sub botAgregar_Click()
--------------------------------------------------------

en este lugar me marca error sin if

Dim TEST As Integer
TEST = InStr(1, txtNue.Text, ",")
If TEST <> 0 Then MsgBox "Se encontró una coma ',' en la posicion: " & TEST & " !!", vbOKOnly, "Error"
txtNue.SetFocus

else
---------------------------------------------------
If Trim(txtNue.Text) = "" Then
st = MsgBox("Escriba la palabra o frase a agregar", vbOKOnly, "Error")
txtNue.SetFocus
Else
If buscaPor = "evento" And IsDate(txtFecEve.Text) = False Then
st = MsgBox("No es una fecha correcta", vbOKOnly, "Error")
Else
Screen.MousePointer = 11
Y = InsertaCatalogo(buscaPor, txtNue.Text, modoCatalogo, txtFecEve.Text)
If Y = True Then
pivote = txtNue.Text
origen = "mantenimiento"
Screen.MousePointer = 0
MsgBox "Registro agregado satisfactoriamente"
Unload Me

End If
End If
End If

End Sub
  #4 (permalink)  
Antiguo 13/04/2011, 16:48
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 14 años, 10 meses
Puntos: 29
Respuesta: MsgBox al encontrar "comas"

Necesitas organizar tu código. Solo te falta añadir otro "End If" al final o hacer algo asi:

Código vb:
Ver original
  1. Private Sub botAgregar_Click()
  2.  
  3.   If InStr(1, txtNue.Text, ",")<>0 then
  4.     MsgBox "No se admiten comas (,) en el texto." & vbcrlf & "Corríjalo antes de seguir.", vbOKOnly, "Error"
  5.     txtNue.SetFocus
  6.     Exit Sub
  7.   End If
  8.  
  9.   If Trim(txtNue.Text) = "" Then
  10.     st = MsgBox("Escriba la palabra o frase a agregar", vbOKOnly, "Error")
  11.     txtNue.SetFocus
  12.   Else
  13.     If buscaPor = "evento" And IsDate(txtFecEve.Text) = False Then
  14.       st = MsgBox("No es una fecha correcta", vbOKOnly, "Error")
  15.     Else
  16.       Screen.MousePointer = 11
  17.       Y = InsertaCatalogo(buscaPor, txtNue.Text, modoCatalogo, txtFecEve.Text)
  18.       If Y = True Then
  19.         pivote = txtNue.Text
  20.         origen = "mantenimiento"
  21.         Screen.MousePointer = 0
  22.         MsgBox "Registro agregado satisfactoriamente"
  23.         Unload Me
  24.       End If
  25.  
  26.     End If
  27.  
  28.   End If
  29.  
  30. End Sub

Saludos
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!

Etiquetas: comas, encontrar, msgbox
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 11:31.