Como salir de un formulario y q no guarde el registro q estoy editando ?
Adrian V
de un formulario, o sea cerrarlo y q no grabe los cambios q le hice a ese
registro. O cual es la forma correcta.
Gracias
Búho
En el codigo VBA del form pon:
Option Compare Database
Option Explicit
Dim Hemosvariadoalgo As Boolean
Private Sub Form_AfterUpdate()
Hemosvariadoalgo = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Hemosvariadoalgo Then
If MsgBox("¿Deshacer los cambios efectuados?", vbYesNo, "AVISO") = vbYes
Then
DoCmd.RunCommand (acCmdUndo)
'DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
End If
End If
End Sub
Te explico: Declaramos a nivel de modulo del form una variable Boolean
inicialmente puesta a False.
Si alguien cambia algo de algun campo del registro, se dispara el evento
AfterUpdate y se pone a True la variable.
Al cerrar el Form, en el evento Unload, se mira si la vaiable Boolean esta a
True ( Osea que hemos variado algo) en cuyo caso se pide conformidad al
usuario para deshacer los cambios.
Observarás que deshago los cambios con DoCmd.RunCommand (acCmdUndo)
que es mucho mas intuitivo de entender y de escribir que la 'vieja' formula
que sigue teniendo el access por campatibilidad y que está desmarca de mi
codigo:
'DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
No sé si es esto exactamente lo que pedías.
--
Saludos desde Valladolid:
Francisco Javier García Aguado
http://www20.brinkster.com/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/
---
"Adrian V" <adrian...@hotmail.com> escribió en el mensaje
news:#f8KZKgsCHA.2296@TK2MSFTNGP09...
Gomzky
VBA, quizas te resulte mas facil hacer lo siguiente:
Creas una macro que envie la secuencia de pulsacion de teclas:
EnviarTeclas {ESC}{ESC}
y a continuacion, la insertas en tu formulario, en el EVENTO "Al Cerrar"
(Del formulario, no del campo, ehh!)
Ten en cuenta, que esto va a producir que no se grabe EL ULTIMO registro
que tengas en pantalla, con lo cual, si haces alguna modificacion, deberas
ir al siguiente o anterior para que se graben los cambios.-
Saludos y Feliz Año
Gomzky
________________________________________
"Adrian V" <adrian...@hotmail.com> escribió en el mensaje
news:#f8KZKgsCHA.2296@TK2MSFTNGP09...
marjan
Actualizar el registro para descartar los cambios hechos en un control o
formulario.
Creo que está bien explicado y con algún ejemplo, pero si no entiendes algo
vuelves a preguntar.
Puedes utilizar también SendKeys y enviar dos veces la "tecla Escape".
También puedes utilizar un formulario independiente que utilice botones de
"Aceptar" o "Cancelar" y que guarde los cambios en una tabla o los descarte,
pero tienes que escribir más código...
Saludos,
marjan
"Adrian V" <adrian...@hotmail.com> escribió en el mensaje
news:#f8KZKgsCHA.2296@TK2MSFTNGP09...
Búho
Hay un codigo hecho por Luis (su...@maristak.com)en mi Web, que aunque
aparentemente esté para Simular Autonumericos....contempla tambien muy bien
este tema de guardar cambios o no en los registros:
http://www20.brinkster.com/accessbhuo/id.asp?topico=460
echale una ojeada pues merece la pena.
--
Saludos desde Valladolid:
Francisco Javier García Aguado
"Adrian V" <adrian...@hotmail.com> escribió en el mensaje
news:#f8KZKgsCHA.2296@TK2MSFTNGP09...
Juan Francisco Carballo Martínez
Hola a todos
He encontrado en la web de buho un ejemplo que me gustaría poder utilizar
pero como lo que tengo es access97 no puedo hacerlo. Alguien me puede decir
si con el access97 puedo abrir bases de datos de access superior. En
concreto y para buho me gustaría acceder a su artículo Interacción word
access, leer desde word. accesible desde access 97. Gracias a todos por
vuestra atención y en particular a buho por su web y dedicación.
>
manuel
A la inversa si es posible sin problemas
"Juan Francisco Carballo Martínez" <JFCar...@ono.es> escribió en el
mensaje news:aCjV9.1821$md.1...@news.ono.com...
Búho
Hola, dime exactamente qué fichero es y te le pasamos a Access 97
--
Saludos desde Valladolid:
Francisco Javier García Aguado
"Juan Francisco Carballo Martínez" <JFCar...@ono.es> escribió en el
mensaje news:aCjV9.1821$md.1...@news.ono.com...
Juan Francisco Carballo Martínez
Aprovechándome de tu ofrecimiento, te pediría que me mandaras casi todos los
ficheros mdb que publicas en tu web. Tengo una envidia tremenda de no
poderlos abrir con mi viejo access97. El fichero que inicialmente te pido es
el Wordaccess.mdb y para el caso de que tengas tiempo y ganas me gustaría
recibir también los access_word_2. Mdb
imprimecartascliente.mdb y
ManejoWordAccess.mdb así como el
Capturarhtml.mdb de reciente implantación.
Gracias por todo y por tu labor de compartir tus conocimientos de access
"Búho" <pacoQU...@nemo.es> escribió en el mensaje
news:uVGXLlTvCHA.2544@TK2MSFTNGP11...
Búho
Estimado compañero:
Uf¡¡¡
Me pides 'casi todos los ficheros'.
Bien sabes que eso es imposible, por el tiempo que supondría pasar todos a
Access 97.
Además existe una dificultad añadida, que no es otra, que por lo menos, los
ejemplos que yo he ido creando, les hice en Access 2000 utilizando algunos
componentes, funciones, metodos de Access 2000 que no se incorporaban en la
version Access 97, por ejemplo CurrentProject.
Esto siginifica que aunque pudiera convertir todos a formato A97 (Que no
tengo tiempo materia...a ver...si alguien se anima y lo hace...), debería
repasar todo el codigo en busca de aquellas funciones que si existen para
Access 2000 pero no para Access 97 y buscar soluciones alternativas.-
Juan M. Afan de Ribera me venía (Y viene) advirtiendo de este hecho...es
decir, que sois muchas las personas que utilizais aún esta versión de Access
97.
Si bien, razón no le falta, comprenderás que en un momento dado, cuando se
monta una Web como esta y se hacen determinados ejemplos, tienes que tomar
una decisión respecto a en qué formato les expones. Y mas ahora que hay una
convivencia del 97 / 2000 / XP...y ¿Quien sabe qué mas en breve?
A tu correo te envio dos que acabo de pasar ahora:
Wordaccess.mdb y CapturarHtml.mdb
--
Saludos desde Valladolid:
Francisco Javier García Aguado
http://www20.brinkster.com/accessbhuo/
[Espejo de la anterior]:
http://www.clikear.com/webs/accessbhuo/index.html
http://groups.msn.com/Access2000VisualBasic/
---
"Juan Francisco Carballo Martínez" <JFCar...@ono.es> escribió en el
mensaje news:0wVY9.4041$md.3...@news.ono.com...
Búho
estas News y me le han devuelto.
Mandame a mi uno a pa...@nemo.es con tu cuenta de correo correcta.
--
Saludos desde Valladolid:
Francisco Javier García Aguado
http://www20.brinkster.com/accessbhuo/