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

    UPDATE por VBA

    avatar
    EMLavatori
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 13/07/2015

    UPDATE por VBA Empty UPDATE por VBA

    Mensagem  EMLavatori em 22/12/2019, 21:04

    Pessoal,

    Estou com um problema na execução do código abaixo que insiste em dar erro 3219. Alguém pode me dar uma ajuda?

    Dim SQLs As String
    Dim dbs As DAO.Database
    Dim rs As DAO.Recordset

    SQLs = "UPDATE DotaçãoCompleta SET DotaçãoCompleta.SITUAÇÃO = """ & Me.TxtSituacao & """ WHERE DotaçãoCompleta.CHAVE = '" & Me.Txt_Chave & "'"
    Set rs = dbs.OpenRecordset(SQLs, dbOpenDynaset)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    UPDATE por VBA Empty Re: UPDATE por VBA

    Mensagem  Alexandre Fim em 23/12/2019, 13:47

    Olá Emerson,

    Você está tentando abrir um recordset usando uma instrução UPDATE, e não vai funcionar.

    Para atualizar os dados da sua tabela não é necessário abrir um recordset.
    Utilize somente os recursos do database. Segue código:

    Código:


    Dim SQLs        As String
    Dim dbs         As DAO.Database

    '------ Instanciar a variavel de database para usar os eventos ----
    Set dbs = CurrentDb
    '-----------------------------------------------------------------

    SQLs = "UPDATE DotaçãoCompleta SET DotaçãoCompleta.SITUAÇÃO = """ & Me.TxtSituacao & """ WHERE DotaçãoCompleta.CHAVE = '" & Me.Txt_Chave & "'"
    dbs.Execute SQLs



    Boa sorte


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    UPDATE por VBA Empty Re: UPDATE por VBA

    Mensagem  Alexandre Fim em 24/12/2019, 17:58

    Olá Emerson...funcionou?


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    avatar
    EMLavatori
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 13/07/2015

    UPDATE por VBA Empty Re: UPDATE por VBA

    Mensagem  EMLavatori em 25/12/2019, 11:58

    Valeu Alexandre, Funcionou. Desculpa a demora em responder.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    UPDATE por VBA Empty Re: UPDATE por VBA

    Mensagem  Alexandre Fim em 26/12/2019, 12:39

    Valeu Emerson,
    O fórum agradece.

    Por gentileza, mude o tópico para "Resolvido"

    Grato



    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 25/11/2020, 02:26