Ocultar avisos

[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