Ayuda con Validate y CausesValidation
Publicado por RaEn (2 intervenciones) el 27/03/2002 10:44:14
Junto con saludarles quisiera exponer mi dificultad.
Parto con decirles que mi experiencia en visual no es mucha y que antes de hacer esta pregunta recorrí ya las preguntas y respuestas anteriores.
Resulta que tengo un textbox con una llamada al evento Validate, que funciona sin problemas, excepto cuando presiono el boton Cancelar, ahí está mi drama, a pesar que está con la propiedad causesvalidation en false, igual me hace la validación del textbox, he leído en más de algún manual que de esta forma deberia saltarse dicho evento, pero la realidad es otra. Favor, el que tenga alguna ayuda me la de o que me diga que se hace para el caso de las validaciones. Acá está parte del código. De antemano muchas gracias
Private Sub TxtCodigoMoneda_Validate(Cancel As Boolean)
rsMonedas.Open "SELECT * " & _
"FROM " & _
"Moneda " & _
"WHERE " & _
"IdMoneda = '" & Trim(TxtCodigoMoneda.Text) & "' " & _
"ORDER BY " & _
"IdMoneda", _
Cnx, _
adOpenDynamic, _
adLockOptimistic
If BtnNuevo.Tag = "N" Then ' Si está creando
If Not rsMonedas.BOF And Not rsMonedas.EOF Then
Muestra_Det ' Muestra los datos encontrados
MsgBox "Moneda ya Registrada", vbCritical, "Creación"
Limpia_Campos ' Limpia todos los campos y vuelve a pedir
End If
ElseIf BtnModificar.Tag = "M" Then ' Si está modificando
If rsMonedas.BOF And
Parto con decirles que mi experiencia en visual no es mucha y que antes de hacer esta pregunta recorrí ya las preguntas y respuestas anteriores.
Resulta que tengo un textbox con una llamada al evento Validate, que funciona sin problemas, excepto cuando presiono el boton Cancelar, ahí está mi drama, a pesar que está con la propiedad causesvalidation en false, igual me hace la validación del textbox, he leído en más de algún manual que de esta forma deberia saltarse dicho evento, pero la realidad es otra. Favor, el que tenga alguna ayuda me la de o que me diga que se hace para el caso de las validaciones. Acá está parte del código. De antemano muchas gracias
Private Sub TxtCodigoMoneda_Validate(Cancel As Boolean)
rsMonedas.Open "SELECT * " & _
"FROM " & _
"Moneda " & _
"WHERE " & _
"IdMoneda = '" & Trim(TxtCodigoMoneda.Text) & "' " & _
"ORDER BY " & _
"IdMoneda", _
Cnx, _
adOpenDynamic, _
adLockOptimistic
If BtnNuevo.Tag = "N" Then ' Si está creando
If Not rsMonedas.BOF And Not rsMonedas.EOF Then
Muestra_Det ' Muestra los datos encontrados
MsgBox "Moneda ya Registrada", vbCritical, "Creación"
Limpia_Campos ' Limpia todos los campos y vuelve a pedir
End If
ElseIf BtnModificar.Tag = "M" Then ' Si está modificando
If rsMonedas.BOF And
Valora esta pregunta


0