MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 : 919
    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


    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    UPDATE por VBA Empty Re: UPDATE por VBA

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

    Olá Emerson...funcionou?


    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)
    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 : 919
    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



    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)

    Conteúdo patrocinado

    UPDATE por VBA Empty Re: UPDATE por VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/2/2020, 20:46