Bom Dia.
Já procurei em diversos post e não consegui encontrar solução.
Ao executar o seguinte comando:
If MsgBox("Os inquéritos a gravar estão todos corretos?", vbQuestion + vbYesNo, "Confirmação") = vbNo Then Exit Sub
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
stDocName = "C_criar_inqueritos"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "C_Limpar"
DoCmd.OpenQuery stDocName, acNormal, acEdit
MsgBox "Todos os registros foram gravados em D:\S\INQUÉRITOS ", vbInformation, "Aviso"
Aparece-me diversos avisos das consultas que vou executar, como o que está na imagem em anexo.
Como faço para não aparecer estas mensagem de alerta.
Cumps.
Continuação de Boas Festas.
Já procurei em diversos post e não consegui encontrar solução.
Ao executar o seguinte comando:
If MsgBox("Os inquéritos a gravar estão todos corretos?", vbQuestion + vbYesNo, "Confirmação") = vbNo Then Exit Sub
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
stDocName = "C_criar_inqueritos"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "C_Limpar"
DoCmd.OpenQuery stDocName, acNormal, acEdit
MsgBox "Todos os registros foram gravados em D:\S\INQUÉRITOS ", vbInformation, "Aviso"
Aparece-me diversos avisos das consultas que vou executar, como o que está na imagem em anexo.
Como faço para não aparecer estas mensagem de alerta.
Cumps.
Continuação de Boas Festas.
Última edição por castrum em 28/12/2015, 11:43, editado 1 vez(es)