Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Eliminar mensajes access al ejecutar consulta datos anexados

1,418 views
Skip to first unread message

Marc Hdez

unread,
Jul 29, 2004, 2:56:32 PM7/29/04
to
Hola,

bueno, pues eso: ¿Cómo puede hacer para que no salgan los mensajes de access
al ejecutar una consulta de datos anexados?
e incluso, ¿cómo puedo sustituirlos por unos personalizados?

--
Saludos,
Marc Hdez.
Tarragona.
_


julian-vlc-sp

unread,
Jul 29, 2004, 3:02:54 PM7/29/04
to
Te contesto porque eres tu, pero ya sabes que de código ando mal.

Se ha comentado el tema por aquí varias veces, busca con el google que
encontrarás mas detalles, pero se trata del setwarning o algo parecido para
que aparezcan o no.

En cuanto a sustituirlos, al no ser errores no se si se pueden interceptar,
pero ......

Si le dices a Access que no muestre os mensajes, cuando lances la consulta
puedes mostrar el mensaje que quieras

--

SALUDOS.
julian-valencia-españa

http://www.access-sin-codigo.tk
http://www.mvp-access.com

"Marc Hdez" <ede...@menta.net> escribió en el mensaje
news:OSEvD3Z...@TK2MSFTNGP10.phx.gbl...

Marc Hdez

unread,
Jul 29, 2004, 3:18:16 PM7/29/04
to
gracias julián,
tengo que reconocer que he preguntado sin buscar por el foro :-(

por cierto, hoy he estado en Valencia, en visita relámpogo con el Euromed,
vaya calor que teneis.

--
Saludos,
Marc Hdez.
Tarragona.
_

"julian-vlc-sp" <iju...@SOBRAiespana.es> escribió en el mensaje
news:e5vxn7Zd...@TK2MSFTNGP09.phx.gbl...

julian-vlc-sp

unread,
Jul 29, 2004, 3:25:52 PM7/29/04
to
podías haber hecho dos cosas

primera, avisar para que te hubiese invitado a algo freso, y

segunda, llevarte todo el calor que hubieses querido (jejeje)

--

SALUDOS.
julian-valencia-españa

http://www.access-sin-codigo.tk
http://www.mvp-access.com

"Marc Hdez" <ede...@menta.net> escribió en el mensaje

news:%237rQNDa...@TK2MSFTNGP10.phx.gbl...

Marc Hdez

unread,
Jul 29, 2004, 3:42:45 PM7/29/04
to
ok, mediante: Docmd.Setwarnings False, evito que salten los mensajes al
ejecutar la consulta de datos anexados.
lo he puesto así:

Private Sub Aceptar_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "cVOLCADO"
DoCmd.SetWarnings True
Me.Form.Visible = False
End Sub

pero.....

cuando los datos a anexar ya existen en la tabla no se añaden: cosa
correcta, pero tampoco lo avisa (claro lo he bloqueado),
¿cómo puedo crear un msgbox o algo parecido para avisar al usuario que los
datos que pretenden anexar ya existen y por tanto no se va a ejecutar la
consulta?


--
Saludos,
Marc Hdez.
Tarragona.
_

"julian-vlc-sp" <iju...@SOBRAiespana.es> escribió en el mensaje
news:e5vxn7Zd...@TK2MSFTNGP09.phx.gbl...

Marc Hdez

unread,
Jul 29, 2004, 3:44:00 PM7/29/04
to
como decía ha sido algo relámpago, dicho y hecho. casí no he podido ni
avisar a la jefa que no iba a comer.
si toda va bien, iré viniendo más amenudo, ya te avisaría.

--
Saludos,
Marc Hdez.
Tarragona.
_

"julian-vlc-sp" <iju...@SOBRAiespana.es> escribió en el mensaje

news:%238p$cIadEH...@tk2msftngp13.phx.gbl...

julian-vlc-sp

unread,
Jul 29, 2004, 4:13:37 PM7/29/04
to
perfecto, ya hablaremos del tema

--

SALUDOS.
julian-valencia-españa

http://www.access-sin-codigo.tk
http://www.mvp-access.com

"Marc Hdez" <ede...@menta.net> escribió en el mensaje

news:uDk$kRadEH...@TK2MSFTNGP09.phx.gbl...

julian-vlc-sp

unread,
Jul 29, 2004, 4:16:41 PM7/29/04
to
Vamos por partes, si alguien intenta añadir algo pero no se añade, y luego
va a consultarlo y está porque ya estaba

que problema hay? (ojo, hablo imaginando al no conoces tu caso concreto)

Otro tema, juraría que Access da un aviso cuando va a ejecutar una consulta
de datos anexados, y al terminar da un informe, al igual al ser cosas
distintas se pueden tratar por separado, pero no lo sé, lo siento

--

SALUDOS.
julian-valencia-españa

http://www.access-sin-codigo.tk
http://www.mvp-access.com

"Marc Hdez" <ede...@menta.net> escribió en el mensaje

news:ee6h4Qad...@TK2MSFTNGP11.phx.gbl...

E. Feijoo

unread,
Jul 29, 2004, 4:35:24 PM7/29/04
to
Esa (casi) es una pregunta de Perogrullo... si quieres insertar un aviso y este se desea mostrar antes de hacer algo que vas ha hacer.... pues lo pones antes y punto
Por ejemplo...

Private Sub Aceptar_Click()
DoCmd.SetWarnings False

Msgbox "Cuando Aceptes, se procederá a ...¿ hacer un volcado de datos?..." & VbCrLf & "Dispones de una pausa para tomar café" <== esto si se prevé un tiempo muerto ;-D


DoCmd.OpenQuery "cVOLCADO"
DoCmd.SetWarnings True
Me.Form.Visible = False
End Sub

Un saludo E. Feijoo
P.D.
Reconsideraría el enviar el mensaje y quizás optara por un formulario emergente, con el mensaje y temporizado (por si el usuario se va a tomar café), incluso podrías reutilizar el formulario si le modificas el mensaje a mostrar (tu propio MsgBox personalizado).


"Marc Hdez" <ede...@menta.net> escribió en el mensaje news:ee6h4Qad...@TK2MSFTNGP11.phx.gbl...

CarlosMora

unread,
Jul 29, 2004, 4:39:06 PM7/29/04
to
Hola,

DoCmd.SetWarnings False ' inhabilita los mensajes
DoCmd.SetWarnings True ' habilita los mensajes

No sé cómo personalizar los mensajes.
--
Un Saludo


"Marc Hdez" escribió:

julian-vlc-sp

unread,
Jul 29, 2004, 4:39:35 PM7/29/04
to
Disculpa, se me fue la olla, borra el ultimo párrafo del anterior mensaje.

Quería decir, que si se intenta insertar registros que no se van a insertar
porque ya existen, pero no te sale mensaje de error, no le veo problema
(salvo que la consulta tarde mucho y quieras ahorrarte el tiempo)

Si es este el caso, mira si te interesa primero comprobar si los registros
existen en al tabla destino, y en caso afirmativo lanzas un aviso (el que
quieras)

Es posible que esto te alargue la operación, y sea conveniente dejar que la
consulta se ejecute aunque no se añada nada

--

SALUDOS.
julian-valencia-españa

http://www.access-sin-codigo.tk
http://www.mvp-access.com

"julian-vlc-sp" <iju...@SOBRAiespana.es> escribió en el mensaje
news:uZlV2ka...@TK2MSFTNGP11.phx.gbl...

Marc Hdez

unread,
Jul 30, 2004, 1:56:59 AM7/30/04
to
vale.... no me expliqué suficiente:

sí, si los registros son exactamente iguales no hace falta que avise.
si es por tiempo, sí, es de peregrullo (hacia tiempo que no oia esta
palabra):-))

pero a lo que me refería es que sólo fuese igual el campo clave, pero
algunos de los otros campos se han cambiado de la tabla origen. entonces al
ejecutar la consulta y no dar avisos el usuario no sabe que al ya existir un
campo clave no actualizará los registros ya existentes, unicamente añadirá
los nuevos.

la idea sería,
-revisar los datos de tablaVOLCADO (donde anexa la consulta)
-si los nuevos ha volcar ya existen (desde la tablaORIGEN)
-comparar todos los campos:
- son idénticos: nada
- el mismo registro pero con campos modificados: msgbox para
preguntar si los reemplazamos.
- si son nuevos: añadir.

lo que no sées hacer esta secuencia en Access.
espero haberme explicado mejor.

gracias.

--
Saludos,
Marc Hdez.
Tarragona.
_

"Marc Hdez" <ede...@menta.net> escribió en el mensaje
news:ee6h4Qad...@TK2MSFTNGP11.phx.gbl...

Victor Delgadillo

unread,
Jul 30, 2004, 6:57:08 AM7/30/04
to
Antes de comenzar el procedimento:
SetWarnings Off
(aqui el procedimiento que envia mensajes de precaucion)
SetWarnings On
(luego le vuelves a poner -- o no te daras cuenta que ocurre en otras areas)

--
Victor Delgadillo [MVP Access]
Miami, Florida

Consultas al grupo, asi todos nos beneficiamos.
Vea los MVP: http://www.microsoft.com/communities/mvp/mvp.mspx

"julian-vlc-sp" <iju...@SOBRAiespana.es> wrote in message
news:e5vxn7Zd...@TK2MSFTNGP09.phx.gbl...

E. Feijoo

unread,
Jul 30, 2004, 8:02:00 PM7/30/04
to
Veamos, tienes dos tipos de probables modificaciones, una de anexado de nuevos datos y otra de actualización...

Partiendo de la base que si el usuario los modifica querrá guardarlos, así como añadir los nuevos.... ¿porque no ejecutas las dos y solucionado?.
Primero la de anexado, después la de actualización...

Si el resultado es lo que deseas, el método, puede ser valido.

Un saludo E. Feijoo

"Marc Hdez" <ede...@menta.net> escribió en el mensaje news:eR7nHofd...@TK2MSFTNGP09.phx.gbl...

julian-vlc-sp

unread,
Jul 31, 2004, 9:07:47 AM7/31/04
to
Totalmente de acuerdo, un posible planteamiento seria el siguiente:

Haz que lo primero que se escriba sea la clave principal, después de
escribir la clave, comprueba si existe en la tabla destino

Si existe, mandas un mensaje de advertencia y preguntando si quiere
modificarlo.

Que quiere modificarlo, presentas el registro en pantalla y que modifiquen
lo que quieran

No quieren modificarlo, te sitúas de nuevo en el campo clave principal para
que introduzcan un nuevo valor

No existe la clave en la tabla destino, pues no haces nada, y dejas que
sigan rellenando campos del registro.

Otra posibilidad es que la clave principal no sea un dato propio del
registro y que sea algo aleatorio, por ejemplo, en lugar de ser el dni de la
persona es una combinación aleatoria de letras

En este caso, es posible que intentemos meter los datos de la misma persona
pero con otra clave, por ejemplo, para meterme a mi en la tabla (julian
sanchez gomez) se me puede poner como clave jusago, y después meterme de
nuevo como jusaNgo, en este caso, lo que hemos visto hasta ahora no
detectaría este hecho

Para evitar esto, puedes hacer lo siguiente

Antes de anexar datos, haz una consulta de duplicados, en esta consulta
puedes indicar que campos quieres que compare, por ejemplo nombre y
apellidos y después, haz lo que quieras con los posibles datos duplicados.

Esto también se puede hacer creando con esos campos un índice sin repetición
en la tabla destino.

Como siempre, si quieres que sigamos hablando del tema, solo tienes que
decirlo


--

SALUDOS.
julian-valencia-españa

http://www.access-sin-codigo.tk
http://www.mvp-access.com

"E. Feijoo" <e.feijoo()retemail.es> escribió en el mensaje
news:e3jmYGpd...@tk2msftngp13.phx.gbl...

Marc Hdez

unread,
Aug 2, 2004, 1:49:48 AM8/2/04
to
perdón por no decir nada antes.
he estado un poco liado el fin de semana y no he encendido el pc.
me miro todas las respuestas y opciones y ya contaré que tal.

muchas gracias.

--
Saludos,
Marc Hdez.
Tarragona.
_

"julian-vlc-sp" <iju...@SOBRAiespana.es> escribió en el mensaje
news:O54xg%23vdEH...@TK2MSFTNGP09.phx.gbl...

amca...@gmail.com

unread,
Sep 12, 2017, 12:45:33 PM9/12/17
to

> Private Sub Aceptar_Click()
> DoCmd.SetWarnings False
> DoCmd.OpenQuery "cVOLCADO"
> DoCmd.SetWarnings True
> Me.Form.Visible = False
> End Sub
>
Excelente trabajo hermano Marc Hernandez, lo único que debes poner en Me.Form.Visible = False poner Me.Form.Visible = True, porque sino el formulario va a salir en cada actualizacion
Otra cosa puedes abrir un macro también y funciona perfectamente

Para un macro que corre un query del tipo APEND o de actualización sería

Private Sub Aceptar_Click()
> DoCmd.SetWarnings False
> DoCmd. RunMacro "SALVAR"
> DoCmd.SetWarnings True
> Me.Form.Visible = False
> End Sub

A la verdad que funciona bastante bien esto,
Shalom hermano
0 new messages