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]Instrução UPDATE - inserir dados em tabelas

    avatar
    kah182
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 13
    Registrado : 27/08/2020

    [Resolvido]Instrução UPDATE - inserir dados em tabelas Empty [Resolvido]Instrução UPDATE - inserir dados em tabelas

    Mensagem  kah182 em 25/9/2020, 19:49

    Prezados, boa tarde!

    Desculpe se estou fazendo uma pergunta besta, mas nunca tinha usado a instrução UPDATE e estou me batendo um pouco.

    Tenho um formulario onde o usuario pode atualizar o registro ou nao, estou criando um evento para que caso ele altere o valor do campo esse valor seja atualizado na tabela.

    Ja tentei fazer o UPDATE de varias maneiras e continua apresentando o erro "RUN TIME ERRO - 3061 | TOO FEW PARAMETERS. EXPECTED 1. Entendo que esse erro indica falta de paramentros mas nao sei qual. Segue o código:


    Private Sub APLICACAO_MULTA_AfterUpdate()


       Dim StrSQL As String
       Dim DB As Database
       Dim RS As Recordset

       StrSQL = "UPDATE tbl_rdo_multa Set APLICACAO_MULTA ='" & Me.APLICACAO_MULTA & "' WHERE Valida=" & Me.Valida & ";"


       Set DB = CurrentDb
       DB.Execute (StrSQL)



    End Sub


    Se alguem tiver uma ideia do que pode estar acontecendo.


    Obrigada!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Instrução UPDATE - inserir dados em tabelas Empty Re: [Resolvido]Instrução UPDATE - inserir dados em tabelas

    Mensagem  Alexandre Fim em 25/9/2020, 23:10

    Ola Kamylla,

    Seja bem-vinda ao fórum!!!
    Por gentileza, poste aqui seu banco de dados (tem que ser no formato .ZIP) para análise e solução.

    Veja aqui como postar: https://www.maximoaccess.com/t32003-como-postar-anexos-e-imagens-no-site-maximoaccess-com

    GRato

    Att,


    .................................................................................
    - 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.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3676
    Registrado : 04/04/2010

    [Resolvido]Instrução UPDATE - inserir dados em tabelas Empty Re: [Resolvido]Instrução UPDATE - inserir dados em tabelas

    Mensagem  Avelino Sampaio em 25/9/2020, 23:20

    Olá!

    geralmente esse erro costuma ser nome de campo informado, que não existe na tabela. Confira se os nomes digitados estão exatamente iguais aos da tabela: "APLICACAO_MULTA" e "valida"

    se estiver correto, acrescente então uma caixa de mensagem na seguinte posição.

    ...
    StrSQL = "UPDATE tbl_rdo_multa Set APLICACAO_MULTA ='" & Me.APLICACAO_MULTA & "' WHERE Valida=" & Me.Valida & ";"
    msgbox strSQL
    Set DB = CurrentDb
    DB.Execute (StrSQL)
    ...


    Mostre exatemente o que foi exibido na caixa.

    Aguardamos


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    avatar
    kah182
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 13
    Registrado : 27/08/2020

    [Resolvido]Instrução UPDATE - inserir dados em tabelas Empty Re: [Resolvido]Instrução UPDATE - inserir dados em tabelas

    Mensagem  kah182 em 29/9/2020, 12:57

    Olá Alexandre.

    Segue print das tabelas e do código:


    a string que uso para validar é muito grande, tranquilamente mais de 50 caracteres. Como é um processo bem especifico nao achei outro jeito de ter uma primary key. Nesse print estou tentando validar com a string tt apenas para teste pois fica mais facil de ler.

    Essa é a tabela que estou tentando inserir o dado:
    [Resolvido]Instrução UPDATE - inserir dados em tabelas Tbl10

    esse é o formulario que deve ser preenchido:
    [Resolvido]Instrução UPDATE - inserir dados em tabelas Formul13


    Obrigada!
    avatar
    kah182
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 13
    Registrado : 27/08/2020

    [Resolvido]Instrução UPDATE - inserir dados em tabelas Empty Re: [Resolvido]Instrução UPDATE - inserir dados em tabelas

    Mensagem  kah182 em 29/9/2020, 12:59

    Olá Avelino!

    Segue msg:

    [Resolvido]Instrução UPDATE - inserir dados em tabelas Imagem10



    Obrigada!
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3676
    Registrado : 04/04/2010

    [Resolvido]Instrução UPDATE - inserir dados em tabelas Empty Re: [Resolvido]Instrução UPDATE - inserir dados em tabelas

    Mensagem  Avelino Sampaio em 29/9/2020, 13:29

    Olá!

    Valida é um campo do tipo string, portanto está faltando os apóstrofes.  

    StrSQL = "UPDATE tbl_rdo_multa Set APLICACAO_MULTA ='" & Me.APLICACAO_MULTA & "' WHERE Valida='" & Me.Valida & "';"


    Aguardamos


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.

    kah182 gosta desta mensagem

    avatar
    kah182
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 13
    Registrado : 27/08/2020

    [Resolvido]Instrução UPDATE - inserir dados em tabelas Empty Re: [Resolvido]Instrução UPDATE - inserir dados em tabelas

    Mensagem  kah182 em 29/9/2020, 15:41

    Muito Obrigada Avelino!
    Deu certo! cheers

      Data/hora atual: 28/11/2020, 02:34