Problema tabuladores textbox para validación
Hola expertos tengo el siguiente código
Private Sub TextBox1_AfterUpdate()
TextBox1.Enabled = False
End Sub
Private Sub TextBox2_AfterUpdate()
If TextBox1.Value = TextBox2.Value Then
Else
MsgBox "MAL"
TextBox1.Enabled = True
TextBox1.SetFocus
TextBox1 = ""
Do While TextBox1.Value = TextBox2.Value
Call TextBox1_AfterUpdate
Call TextBox2_AfterUpdate
Loop
End If
End Sub
Private Sub CommandButton1_click()
Unload UserForm2
End Sub
Lo que hace es validar que los datos que escribo en el textbox1 sean iguales a los del textbox2, si es así entonces se va al commandbutton1 y se cierra el formulario
si no son iguales los valores, debería regresar al texbox1 para poder ingresar datos y así hasta que los datos en ambos textbox sean iguales pero no lo hace
como tampoco he podido deshabilitar el commandbutton mientras que los valores de los textbox no son iguales
Espero haberme explicado gracias y saludos
Private Sub TextBox1_AfterUpdate()
TextBox1.Enabled = False
End Sub
Private Sub TextBox2_AfterUpdate()
If TextBox1.Value = TextBox2.Value Then
Else
MsgBox "MAL"
TextBox1.Enabled = True
TextBox1.SetFocus
TextBox1 = ""
Do While TextBox1.Value = TextBox2.Value
Call TextBox1_AfterUpdate
Call TextBox2_AfterUpdate
Loop
End If
End Sub
Private Sub CommandButton1_click()
Unload UserForm2
End Sub
Lo que hace es validar que los datos que escribo en el textbox1 sean iguales a los del textbox2, si es así entonces se va al commandbutton1 y se cierra el formulario
si no son iguales los valores, debería regresar al texbox1 para poder ingresar datos y así hasta que los datos en ambos textbox sean iguales pero no lo hace
como tampoco he podido deshabilitar el commandbutton mientras que los valores de los textbox no son iguales
Espero haberme explicado gracias y saludos
1 respuesta
Respuesta de Orlando Collarte
1