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]Pular linhas no comando UPDATE, via SQL do VBA

    avatar
    ernandofc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 21/10/2015

    [Resolvido]Pular linhas no comando UPDATE, via SQL do VBA Empty [Resolvido]Pular linhas no comando UPDATE, via SQL do VBA

    Mensagem  ernandofc 23/1/2019, 11:26

    Bom dia,

    Minha dúvida é relativamente simples. Gostaria de pular linhas no comando UPDATE, considerando que futuramente terei mais campos para atualizar no SET. Logo, pulando linha por linha, o código fica mais legível. No entanto, não achei a sintaxe desta escrita. Alguém tem mais

    Como está:
    Código:

    CurrentDb.Execute "UPDATE [TAB_PRODUTOS] SET [PreçoLista] = '" & rs.Fields(3) & "',[Desconto] = '" & rs.Fields(4) & "', [PreçoLíquido] = '" & rs.Fields(5) & "', [Status] = '" & rs.Fields(6) & "',[DtUltAtuaPreco] = #" & rs.Fields(7) & "# ,[DataStatus] = #" & rs.Fields(8) & "#,[Validade] = #" & rs.Fields(9) & "#, [MotivBloq] = '" & rs.Fields(10) & "', [UsuarioAtualPreco] = '" & rs.Fields(11) & "'  WHERE [CódigoProd] = '" & rs.Fields(0) & "'"

    Com gostaria de escrever o código pulando linhas, conforme abaixo:
    Código:

    CurrentDb.Execute "UPDATE [TAB_PRODUTOS] SET [PreçoLista] = '" & rs.Fields(3) & "',
    [Desconto] = '" & rs.Fields(4) & "',
    [PreçoLíquido] = '" & rs.Fields(5) & "',
    [Status] = '" & rs.Fields(6) & "',
    [DtUltAtuaPreco] = #" & rs.Fields(7) & "# ,
    [DataStatus] = #" & rs.Fields(8) & "#,
    [Validade] = #" & rs.Fields(9) & "#,
    [MotivBloq] = '" & rs.Fields(10) & "',
    [UsuarioAtualPreco] = '" & rs.Fields(11) & "'  WHERE [CódigoProd] = '" & rs.Fields(0) & "'"

    Muito obrigado.
    avatar
    ernandofc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 21/10/2015

    [Resolvido]Pular linhas no comando UPDATE, via SQL do VBA Empty Re: [Resolvido]Pular linhas no comando UPDATE, via SQL do VBA

    Mensagem  ernandofc 23/1/2019, 13:18

    Resolvido. Segue sintaxe, caso mais alguém precise:

    Código:

               CurrentDb.Execute "UPDATE [TAB_GERADOR_COTAÇÕES] " _
               & "SET [PreçoLista] = '" & PreçoLista & "',[SubClasse] = '" & 0 & "',[NCM] = '" & NCM & "'" _
               & ",[Moeda] = '" & Moeda & "',[Origem] = '" & Origem & "',[ExTarif] = 'NÃO'" _
               & ",[FreteIntern%] = '" & FreteIntern & "',[FreteInternValor] = '" & FreteInternValor & "',[Cotação] = '" & Cotação & "'" _
               & ",[II%] = '" & II & "',[II] = '" & IIvalor & "',[IPI%] = '" & IPI & "',[IPI] = '" & IPIvalor & "'" _
               & ",[PIS%] = '" & PIS & "',[PIS] = '" & PISvalor & "',[COFINS%] = '" & COFINS & "',[COFINS] = '" & COFINSvalor & "'" _
               & ",[ICMS%] = '" & ICMS & "',[ICMS] = '" & ICMSValor & "',[RedICMS%] = '" & RedICMS & "'" _
               & ",[Armazen] = '" & Armazen & "',[CMA] = '" & CMA & "'" _
               & ",[CMV] = '" & CMV & "',[Simples%] = '0',[SimplesValor] = '0'" _
               & ",[InstalaçãoMDO] = '" & instal & "',[FreteNAC] = '" & Frete & "',[OutrosCustos] = '" & OutrosC & "'" _
               & ",[PUA] = '" & PUA & "',[MGAlvoPUA] = '" & MGAlvoPUA & "',[ICMSPUA] = '" & ICMSPUA & "'" _
               & ",[DIFALPUA] = '" & DIFALPUA & "'" _
               & ",[PISCOFPUA] = '" & PISCOFPUA & "'" _
               & ",[IRPJCSLLPUA] = '" & IRPJCSLLPUA & "'" _
               & ",[PUU] = '" & PUU & "'" _
               & ",[MGUtilizadaPUU] = '" & MGUtilizadaPUU & "'" _
               & ",[MGContribPUU] = '" & MGContribPUU & "'" _
               & ",[SimplesPUU] = '0'" _
               & ",[Receita] = '" & Receita & "'" _
               & ",[DescontoOver] = '" & DescontoOver & "'" _
               & ",[PISCOF%] = '" & piscofins & "'" _
               & ",[IRPJCSLL%] = '" & irpjcsll & "'" _
               & ",[ICMSVenda%] = '" & icmsvenda & "'" _
               & ",[DifalVenda%] = '" & difalvenda & "'" _
               & "WHERE [Código] = " & Código & ";"
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Pular linhas no comando UPDATE, via SQL do VBA Empty Re: [Resolvido]Pular linhas no comando UPDATE, via SQL do VBA

    Mensagem  Alvaro Teixeira 23/1/2019, 16:19

    Olá Ernando Custodio,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

    Conteúdo patrocinado


    [Resolvido]Pular linhas no comando UPDATE, via SQL do VBA Empty Re: [Resolvido]Pular linhas no comando UPDATE, via SQL do VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 19:11