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]Fazer update em 2 Campos da tabela

    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 18/04/2018

    [Resolvido]Fazer update em 2 Campos da tabela Empty [Resolvido]Fazer update em 2 Campos da tabela

    Mensagem  fernando rodrigo zanchini 20/10/2021, 13:42

    Bom dia estou tentando fazer update de dois campos da tabela  não estou conseguindo, só estou conseguindo fazer de um campo
    vcs poderia me ajudar?

    Dim sSQL As String
               sSQL = "UPDATE TB_ProdProjeto SET NCHAMADA = '" & Trim(Me.TxtNChamada) & "' "
               sSQL = sSQL & " WHERE Ra = '" & Trim(RA) & "' And IdProduto = " & Trim(codProduto) & ";"
               CurrentDb.Execute (sSQL)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7361
    Registrado : 15/03/2013

    [Resolvido]Fazer update em 2 Campos da tabela Empty Re: [Resolvido]Fazer update em 2 Campos da tabela

    Mensagem  ahteixeira 20/10/2021, 14:41

    Olá Fernando,

    Se o código do produto for texto , deve colocar aspa simples, teste assim:

    Código:
    sSQL = "UPDATE TB_ProdProjeto SET NCHAMADA = '" & Trim(Me.TxtNChamada) & "' "
    sSQL = sSQL & " WHERE Ra = '" & Trim(RA) & "' And IdProduto = '" & Trim(codProduto) & "';"

    Abraço
    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 18/04/2018

    [Resolvido]Fazer update em 2 Campos da tabela Empty Re: [Resolvido]Fazer update em 2 Campos da tabela

    Mensagem  fernando rodrigo zanchini 20/10/2021, 14:59

    no caso estou inseri um novo valor (TxtNChamadano) no campo NCHAMADA da tabela TB_ProdProjeto com os critério RA e IdProduto

    Gostaria de inserir um novo valor (TxtNChamadano) no campo NCHAMADA e novo valor (TxtNContrato) no campo NContrato da tabela TB_ProdProjeto com os critério RA e IdProduto




    fernando rodrigo zanchini
    fernando rodrigo zanchini
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 18/04/2018

    [Resolvido]Fazer update em 2 Campos da tabela Empty Re: [Resolvido]Fazer update em 2 Campos da tabela

    Mensagem  fernando rodrigo zanchini 20/10/2021, 19:46



    Achei esse exemplo do Alexandre Fim e deu certo

    https://www.maximoaccess.com/t39938-resolvidoerro-de-sintaxe-na-instrucao-update?highlight=update

    Dim sSQL As String

    sSQL = ""
    sSQL = sSQL & " UPDATE TblCliente SET "
    sSQL = sSQL & " DataCadastro = '" & Me.txtDataCadastro & "', "
    sSQL = sSQL & " ,NomeCons = '" & Replace(Trim(Me.txtNomeCli), "'", "") & "'"
    sSQL = sSQL & " ,NascCli = '" & Me.txtDataNasc & "'"
    sSQL = sSQL & " ,SexCli = '" & Trim(Me.CboSexo) & "'"
    sSQL = sSQL & " ,EmailCli = '" & Trim(Me.txtEmail) & "'"
    sSQL = sSQL & " ,TelCli = '" & Trim(Me.TxtCel) & "'"
    sSQL = sSQL & " ,ObsCli = '" & Trim(Me.txtObs) & "'"
    sSQL = sSQL & " ,ConCli = '" & Trim(Me.TxtConc) & "'"
    sSQL = sSQL & " WHERE CodCli = " & Me.txtCodCli
    CurrentDb.Execute sSQL
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7361
    Registrado : 15/03/2013

    [Resolvido]Fazer update em 2 Campos da tabela Empty Re: [Resolvido]Fazer update em 2 Campos da tabela

    Mensagem  ahteixeira 21/10/2021, 08:36

    Olá Fernando,

    Fico feliz por ter conseguido resolver.
    Obrigado pelo feedback, o forum agradece.

    Abraço

      Data/hora atual: 30/11/2021, 00:14