Ocultar avisos

[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

[Avellaneda]

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

Supongo que te refieres a VBA

Puedes usar el método SetWarnings(Si/No) del objeto DoCmd.

[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

[Avellaneda]

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

Prueba con

DoCmd.SetWarnings(Off)

Un saludo

[erDanielillo]

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

[erDanielillo]

Ya encontrao la solucion al final no era off ni on sino 0 si era off y -1 si era on por lo cual quedaria:

DoCmd.SetWarnings(0)

Muxas gracias y un saludo