11/09/2008, 03:24
| |||
| |||
| Ocultar avisos Buenos dias, aver si me podria ayudar... Tengo un formulario exo q cuando le introduce un cliente empieza acer consultas de seleccion y eliminacion x lo q me salen unos avisos diciendome se van a indexar tantos registros se van a eliminar tantos registros Quisiera saber si se podrian quitar esos avisos o no... Me suena algo de set warning off en vb pero no me sale. Muxas gracias y un saludo |
|
11/09/2008, 05:01
| |||
| |||
| Respuesta: Ocultar avisos Cita: Supongo que te refieres a VBA
Iniciado por erDanielillo  Buenos dias, aver si me podria ayudar... Tengo un formulario exo q cuando le introduce un cliente empieza acer consultas de seleccion y eliminacion x lo q me salen unos avisos diciendome se van a indexar tantos registros se van a eliminar tantos registros Quisiera saber si se podrian quitar esos avisos o no... Me suena algo de set warning off en vb pero no me sale. Muxas gracias y un saludo Puedes usar el método SetWarnings(Si/No) del objeto DoCmd.  |
|
12/09/2008, 01:18
| |||
| |||
| Respuesta: Ocultar avisos Private Sub Cliente_AfterUpdate() SetWarnings off BeginTrans DoCmd.OpenQuery "qryRiesgosconClientesBorrar" DoCmd.OpenQuery "qryRiesgosconClientesCIF" DoCmd.OpenQuery "qryRiesgosconClientesFacturas" DoCmd.OpenQuery "qryRiesgosconClientesCartera" DoCmd.OpenQuery "qryRiesgosconClientesOfertas" DoCmd.OpenQuery "qryRiesgosconClientesSaldo" DoCmd.OpenForm "frmRiesgosconClientes", acFormDS, , , acFormReadOnly DoCmd.OpenForm "frmImprimeRiesgo", acNormal, , , acFormReadOnly CommitTrans End Sub Wenas este es el código pero me sigue dando el error no me lo acepta eso y e probao con diversas opciones con no, not despues del BeginTrans y nada me da error Un saludo |
|
12/09/2008, 03:18
| |||
| |||
| Respuesta: Ocultar avisos Cita: Prueba con
Iniciado por erDanielillo Private Sub Cliente_AfterUpdate() SetWarnings off BeginTrans DoCmd.OpenQuery "qryRiesgosconClientesBorrar" DoCmd.OpenQuery "qryRiesgosconClientesCIF" DoCmd.OpenQuery "qryRiesgosconClientesFacturas" DoCmd.OpenQuery "qryRiesgosconClientesCartera" DoCmd.OpenQuery "qryRiesgosconClientesOfertas" DoCmd.OpenQuery "qryRiesgosconClientesSaldo" DoCmd.OpenForm "frmRiesgosconClientes", acFormDS, , , acFormReadOnly DoCmd.OpenForm "frmImprimeRiesgo", acNormal, , , acFormReadOnly CommitTrans End Sub Wenas este es el código pero me sigue dando el error no me lo acepta eso y e probao con diversas opciones con no, not despues del BeginTrans y nada me da error Un saludo DoCmd.SetWarnings(Off) Un saludo |
|
12/09/2008, 03:43
| |||
| |||
| Respuesta: Ocultar avisos Lo siento pero sigue sin salirme me da error en el off o en el on en lo q ponga el DoCmd.SetWarnings yo creo q tbien es asi pero lo el off o el on algo faya y e probao sin parentesis conparentesis en español en ingeles solo me falta en xino!!! De toas forma muxas gracias x estar ayudandome Un saludo |
