MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido] Mensagem de Alerta

    avatar
    castrum
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 45
    Registrado : 25/02/2013

    [Resolvido] Mensagem de Alerta Empty [Resolvido] Mensagem de Alerta

    Mensagem  castrum 28/12/2015, 10:34

    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.


    Última edição por castrum em 28/12/2015, 11:43, editado 1 vez(es)
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido] Mensagem de Alerta Empty Re: [Resolvido] Mensagem de Alerta

    Mensagem  Fernando Bueno 28/12/2015, 11:03

    Bom dia!

    Acrescente essa linha no inicio do código

    Código:
    DoCmd.SetWarnings False

    E essa no final do código

    Código:
    DoCmd.SetWarnings True


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido] Mensagem de Alerta 16rzeq
    avatar
    castrum
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 45
    Registrado : 25/02/2013

    [Resolvido] Mensagem de Alerta Empty Re: [Resolvido] Mensagem de Alerta

    Mensagem  castrum 28/12/2015, 11:09

    Obrigado Fernando Bueno.

    Problema resolvido.

    Boas Festas
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido] Mensagem de Alerta Empty Re: [Resolvido] Mensagem de Alerta

    Mensagem  Fernando Bueno 28/12/2015, 11:45

    De nada Antonio.. Precisando estamos por aqui..

    Obrigado, boas festas a você e sua família também.!


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido] Mensagem de Alerta 16rzeq

    Conteúdo patrocinado


    [Resolvido] Mensagem de Alerta Empty Re: [Resolvido] Mensagem de Alerta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 03:50