Visual Basic - Problemas con el Control Data

Life is soft - evento anual de software empresarial
 
Vista:

Problemas con el Control Data

Publicado por Reynaldo Herrera (34 intervenciones) el 13/09/2000 00:00:00
Tengo el sig. problema en una pantalla de captura en el boton NUEVO tengo el sig, codigo.

private sub cmdnuevo_click()
btnAceptar.enabled = true
btnCancelar.enabled = true
btnNuevo.enabled = false
marca = data.recordset.Bookmark
data1.recordset.AddNew
end sub

En el boton ACEPTAR :

private sub cmdaceptar_click()
btnAceptar.enabled = false btnCancelar.enabled = false
btn.Nuevo.enabled = true
data1.recordset.Update
end sub

En el boton CANCELAR :

private sub cmdcancelar_click()
btnAceptar.enabled = false btnCancelar.enabled = false
btn.Nuevo.enabled = true
data1.recordset.bookmar = marca
end sub


El problema es que cuando doy NUEVO y luego ACEPTAR funciona bien , pero cuando doy NUEVO y luego CANCELAR, funciona pero me crea un registro en blanco, ya proble en el boton CANCELAR data1.recordset.delete antes de ir al bookmar y me genera un error en el bookmark de que el registro esta borrado, alguien sabe como puedo hacer que cuando se cancela la operacion no se almacene el registro en blanco.

GRACIAS.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problemas con el Control Data

Publicado por Alejandro (9 intervenciones) el 13/09/2000 00:00:00
Hola.
Proba agregando en private sub cmdcancelar_click()
la propiedad Data1.Recordset.CancelUpdate
Espero que te sea util
Chau.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problemas con el Control Data

Publicado por hare_krishna (10 intervenciones) el 14/09/2000 00:00:00
Definitivamente la solucion es el data1.recordset.cancelupdate, yo quisiera tambien recomendarte que para que evitaras activar y desactivar botones en cada evento, crees un procedimiento algo asi como BOTONESOFF, cuyo codigo seria algo como esto:
(para desactivar todos los command de un form)

Sub BOTONESOFF()
Dim micontrol As Control
For Each micontrol In Me.Controls
If TypeOf micontrol Is CommandButton Then micontrol.Enabled = False
Next
End Sub

Invocas este procedimiento en algun evento click y te desactivara todos los command de tu form, despues activas unicamente los que necesites.

Good Luck!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar