MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Mensagem Automática do Access

    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 08/01/2017

    [Resolvido]Mensagem Automática do Access Empty [Resolvido]Mensagem Automática do Access

    Mensagem  Edgar Massa em 20/7/2020, 21:45

    Galera

    Me ajudem,
    Tenho um formulário normal, com um controle de guia, com duas páginas, uma eu cadastro as respostas de um questionário de auditoria (pagina 1) e o outro eu consulto os registros num listbox (pagina 2).

    Porém quando eu faço alterações na pagina de cadastro, utilizando o código abaixo:

    Set dbs = CurrentDb
    Set rsSQL = dbs.OpenRecordset("SELECT * FROM tb_Questionarios WHERE (((tb_Questionarios.ID)=" & Me.txt_ID.Value & "));") ', dbOpenSnapshot)

    rsSQL.Edit
    rsSQL("Data de Envio do Questionário") = Format(Me.txt_DataEnvio.Value, "m/d/yyyy")
    rsSQL("Link do Questionário") = Me.txt_Link.Value
    rsSQL("Questionário Fechado") = QFechado
    rsSQL("Status do Questionário") = Me.txt_Status.Value
    rsSQL("Situação do Questionário") = Me.txt_Situacao.Value
    rsSQL("P1") = Me.cmb_P1.Value
    rsSQL("Comentário P1") = Me.txt_ComentarioP1.Value
    rsSQL("P2") = Me.cmb_P2.Value
    rsSQL("Comentário P2") = Me.txt_ComentarioP2.Value
    rsSQL("P3") = Me.cmb_P3.Value
    rsSQL("Comentário P3") = Me.txt_ComentarioP3.Value
    rsSQL("P4") = Me.cmb_P4.Value
    rsSQL("Comentário P4") = Me.txt_ComentarioP4.Value
    rsSQL("P5") = Me.cmb_P5.Value
    rsSQL("Comentário P5") = Me.txt_ComentarioP5.Value
    rsSQL("P6") = Me.cmb_P6.Value
    rsSQL("Comentário P6") = Me.txt_ComentarioP6.Value
    rsSQL("P7") = Me.cmb_P7.Value
    rsSQL("Comentário P7") = Me.txt_ComentarioP7.Value
    rsSQL("Comentários") = Me.txt_Comentarios.Value
    rsSQL.Update

    rsSQL.Close
    Set rsSQL = Nothing

    dbs.Close
    Set dbs = Nothing

    Quando removo a data por exemplo do campo e deixo vazio, e clico pra atualizar, o código executa normal, quando vou consultar na pagina 2 onde tem o listbox, o access me alerta:

    "Os dados foram alterados."
    "Outro usuário editou este registro e salvou as alterações antes de você."
    "Reedite o registro."

    O que eu faço pra solucionar,? tentei colocar "Me.Requery" após atualizar o form mas sem sucesso.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3209
    Registrado : 21/04/2011

    [Resolvido]Mensagem Automática do Access Empty Re: [Resolvido]Mensagem Automática do Access

    Mensagem  Marcelo David em 27/8/2020, 12:31

    Bom dia!
    Esse é um erro típico de concorrência de dados.
    Ao que parece, na pagina 2 (ou na 1) há alguma
    alteração de informação antes do update do recordset,
    assim o Access avisa mesmo, pois não sabe qual das
    informações são as que você gostaria de ter gravado.

    Como não estamos com seu aplicativo aqui
    para tentarmos entender a lógica, sugiro que revise
    os códigos e veja se não há update no recordset antes
    que outra instancia do recordset seja gravado.


    .................................................................................
    Marcelo David | [Resolvido]Mensagem Automática do Access LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 08/01/2017

    [Resolvido]Mensagem Automática do Access Empty Re: [Resolvido]Mensagem Automática do Access

    Mensagem  Edgar Massa em 17/9/2020, 16:30

    Conseguii!!!

    Estava atualizando o listbox ao editar o registro.
    Removi o listbox.Requery após editar, está funcionando perfeito.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3209
    Registrado : 21/04/2011

    [Resolvido]Mensagem Automática do Access Empty Re: [Resolvido]Mensagem Automática do Access

    Mensagem  Marcelo David em 21/9/2020, 12:52

    Excelente. Exatamente o que havia comentado. Parabéns por ter
    encontrado o erro! Gratos por compartilhar a solução:D


    .................................................................................
    Marcelo David | [Resolvido]Mensagem Automática do Access LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev

      Data/hora atual: 3/12/2020, 20:14