detener ejecución codigo
Publicado por Albert (204 intervenciones) el 17/04/2009 21:15:41
Estimados foreros:
En el siguiente codigo como consigo que si el textbox2 esta en blanco no siga ejecutando el codigo, ya que me informa de que no se pueden repetir esultados que solo me lo debe decir si son iguales
PD debo dejar el textbox3 en blanco para comprobar que no se repitan cifras
PD2 porque no me hace caso a
Usf_Encuesta.TextBox3.SetFocus
y situa el cursor donde toca por tabulación
Private Sub TextBox3_AfterUpdate()
If TextBox3 < 1 Or TextBox3 > 5 Then
MsgBox "Debe de ser entre 1 i 5", vbInformation, "Te equivocaste de número"
TextBox3 = ""
Usf_Encuesta.TextBox3.SetFocus
Exit Sub
End If
If TextBox2 = "" Then
MsgBox "falta" & " " & (Label2), vbInformation, "Te dejaste una opción"
TextBox3 = ""
Usf_Encuesta.TextBox2.SetFocus
Exit Sub
End If
SI TextBox2 = "" AQUI QUIERO PARAR LA EJECUCIÓN
If TextBox3 = TextBox2 Then
MsgBox " no se pueden repetir resultados", vbInformation, "Repetiste una valoración"
Usf_Encuesta.TextBox3 = ""
Usf_Encuesta.TextBox3.SetFocus
Exit Sub
End If
End Sub
Mil gracias de antemano
Albert
En el siguiente codigo como consigo que si el textbox2 esta en blanco no siga ejecutando el codigo, ya que me informa de que no se pueden repetir esultados que solo me lo debe decir si son iguales
PD debo dejar el textbox3 en blanco para comprobar que no se repitan cifras
PD2 porque no me hace caso a
Usf_Encuesta.TextBox3.SetFocus
y situa el cursor donde toca por tabulación
Private Sub TextBox3_AfterUpdate()
If TextBox3 < 1 Or TextBox3 > 5 Then
MsgBox "Debe de ser entre 1 i 5", vbInformation, "Te equivocaste de número"
TextBox3 = ""
Usf_Encuesta.TextBox3.SetFocus
Exit Sub
End If
If TextBox2 = "" Then
MsgBox "falta" & " " & (Label2), vbInformation, "Te dejaste una opción"
TextBox3 = ""
Usf_Encuesta.TextBox2.SetFocus
Exit Sub
End If
SI TextBox2 = "" AQUI QUIERO PARAR LA EJECUCIÓN
If TextBox3 = TextBox2 Then
MsgBox " no se pueden repetir resultados", vbInformation, "Repetiste una valoración"
Usf_Encuesta.TextBox3 = ""
Usf_Encuesta.TextBox3.SetFocus
Exit Sub
End If
End Sub
Mil gracias de antemano
Albert
Valora esta pregunta


0