CANCELAR CAMBIOS - VB-MUNDO

dagoba77 · #1 (**permalink**) 21-10-2004, 22:03:04

Hola nuevamente me encuentro en un apuro

En mi aplicacion la idea es que el ususario pueda cerrar un formulario aun cuando ya haya ingresado datos en algun textbox enlazado a una tabla, ok lo puede hacer , pero... si el usuario no llena todos los campos o se le va una tecla antes de cerrar esta se almacena en la tabla lo cual es un terrible error

Ya probe limpiar los cuadros en querry unload

Text1.text = ""

tambien data1.updatecontrols (que funciona perfecto en keydow con el form abierto)

y de la misma manera data1.recordsourse = ""

y aun asi no me obedece sigue almacenando los datos falsos

De antemano gracias por su ayuda

J.M.Movilla · #2 (**permalink**) 21-10-2004, 22:16:51

Yo creo que el error estriba en que uses textbox enlazados para hacer lo que pretendes... Eso es peligroso, peligroso... y lo que tú pplanteas es lo mínimo que te puede ocurrir...

No enlaces las cajas de texto, sino que cuando vayas a cerrar el formulario le pones una cuestión de "¿Quieres grabar los cambios realizados?" y a la respuesta afirmativa le haces un

Código:

Adodc1.AddNew 
For n = 0 to Adodc1.FileCount - 1
    Adodc1.Fields(n) = Text1(n).Text + ""
Next
Adodc1.Update

dagoba77 · #3 (**permalink**) 21-10-2004, 22:18:07

Perdon gracias por las intenciones de ayuda pero ya lo resolvi

Código:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Data1.Recordset.MoveLast
Data1.Recordset.Delete

End Sub

tan facil¡¡¡

Aun asi si alguien tiene alguna aportacion o mejor idea se lo agradecere

Saludos¡¡¡

dagoba77 · #4 (**permalink**) 21-10-2004, 22:30:13

Hola J.M Movilla:

he seguido su ejemplo y me funciona perfecto exepto la salvedad de que solo se guardan los datos que en ese momento esten a la vista, dicho de otro modo el usuario debe cerrar el formulario cada vez que ingrese un dato y si estos datos es un inventario de almacen entonces la cosa se complica, yo deseo que se pueda ir escribiendo y almacenando de una forma similar a los formularios de accsses lo caul logro sin problema, pero si el usuario ya termino de agregar datos y antes de cerrar el formulario agrega un carcter por error este se guarda tambien, ahora mi ejemplo que postee un poco arriba no me funciona tampoco pues borra el ultimo registro aun cuando este completo

Saludos cordiales

J.M.Movilla · #5 (**permalink**) 21-10-2004, 22:39:52

Pues es que no entiendo eso de que el usuario tiene que cerrar el formulario cada vez que ingrese un dato... Para mí que eso lo tienes mal panteado... Y si se equivocó al introducir el dato previo, ¿qué hace? ¿cómo da marcha atrás?

Yo te lo planteaba suponiendo que abrías un formulario con todos los textboxes necesarios...

Respecto a que te anula el registro en todos los casos, es lógico... Para evitarlo haz algo como esto

Código:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 
Dim nResp as Long
    nResp = MsgBox("¿Desea grabar los datos?", vbYesNo)
    If nResp <> vbYes then
        Data1.Recordset.MoveLast 
        Data1.Recordset.Delete 
    End If
End Sub

dagoba77 · #6 (**permalink**) 21-10-2004, 23:02:56

Muchas gracias su ejemplo esta perfecto¡¡

Pero perdone mi obstinacion ¿no hay una forma de hacer eso mismo sin nececidad de preguntar al usuario?

Digamos si no ha rellenado todos los campos o no ha vuelto el enfoque al primer control?

gracias de antemano

J.M.Movilla · #7 (**permalink**) 22-10-2004, 08:21:14

Vale!!! Pues a ver cómo te las ingenias para trabajarte una "bandera" que te controle esos detallitos...

Pudieras sustituir la cuestión con algo así:

Código:

Dim n As Integer, lNoVale as Booleam

For n = 0 to NúmerodeBoxes - 1
    If IsEmpty(Text1(n).Text) Then lNovale = True: Exit For
next

If lNovale then Exit Sub

Data1.Recordset.MoveLast 
Data1.Recordset.Delete

dagoba77 · #8 (**permalink**) 22-10-2004, 20:02:23

Perdon por tarda respuesta:

Muchas gracias nuevamente estoy estudiando esto del flag y me parece muy interesante, aunque complejo por mi inexperiencia, aun asi continuo con la duda, si llamo a un codigo para cerrar el form por la pulsacion de una tecla es decir:

Código:

Select Case KeyCode
Case vbKeyF2
Data1.UpdateControls
Unload Me

Mis intenciones se realizan perfectamente, no ocurre asi si llamo tal procedimiento desde unload, terminate o querryunload, conozco el orden de estos eventos y el tiempo en que se producen pero me aqueja la duda ¿existe algun evento anterior a estos que actualiza el recrdset antes de limpiar los controles??

Gracias

J.M.Movilla · #9 (**permalink**) 22-10-2004, 23:10:40

Prepara la salida del formulario siempre por "la misma puerta"

Código:

    Case vbKeyF2 
    Form_Unload (1)
    .....

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = 1
    CmdCerrar_Click
End Sub

Private Sub CmdCerrar_Click()
    Form_Unload (1)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Data1.UpdateControls 
    Unload Me
End Sub