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

    [Resolvido]Update erro sintaxe 3075

    Compartilhe

    samir terras
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 01/03/2016

    [Resolvido]Update erro sintaxe 3075

    Mensagem  samir terras em Qui 23 Nov 2017, 21:45

    Boa Noite Pessoal
    Estou tendo dificuldade para fazer um Update. Está Dando Erro de Sintaxe 3075, pontuação incorreta.
    Já Tentei de tudo, mas não estou conseguindo saber onde estou errando.  
    Segue o código. se Alguem puder dar uma olhada fico grato

    CurrentDb.Execute "Update Dados Set IDProd =('" & Me.TxtId & "'),CODIGO=('" & Me.TxtCodigo & "'),DESCRIÇAO =('" & Me.TxtDescricao & "'),APLICAÇAO =('" & Me.TxtAplicacao & "'),MARCA =('" & Me.TxtMarca & "'),FORNECEDOR =('" & Me.TxtFornecedor & "'),CUSTO =('" & Me.TxtCusto & "'),MARGEM =('" & Me.TxtMargem & "'),PREÇOVENDA =('" & Me.TxtVenda & "'),DATAALTERAÇAO =('" & Me.TxtData & "'),COMPLEMENTO =('" & Me.TxtComplemento & "'),EstoqueMinimo =('" & Me.TxtEstoqueIdeal & "'),LocalFoto =('" & Me.TxtImagem & "'),CATEGORIA =('" & Me.ListaCategorias.Column(1) & "') Where IDProd =('" & Me.TxtId & "')"""
               MsgBox ("Produto Atualizado Com Sucesso!"), vbInformation, Mensagem
    End Sub
    avatar
    José Machado
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 13/09/2016

    Re: [Resolvido]Update erro sintaxe 3075

    Mensagem  José Machado em Qui 23 Nov 2017, 23:22

    É só tirar o SET IDProd

    samir terras
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 01/03/2016

    Re: [Resolvido]Update erro sintaxe 3075

    Mensagem  samir terras em Qui 23 Nov 2017, 23:44

    Boa Noite.
    Já retirei, mas continua dando erro em tempo de execução
    o campo IDProd é de Numeração automática na tabela.
    avatar
    José Machado
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 13/09/2016

    Re: [Resolvido]Update erro sintaxe 3075

    Mensagem  José Machado em Sex 24 Nov 2017, 10:45

    'Já retirei, mas continua dando erro em tempo de execução
    'o campo IDProd é de Numeração automática na tabela.

    Se a versão do Access for accdb a Condição SET "campo" e WHERE para números tem de ser sem as ASPAS simpes ', use apenas as ASPAS duplas, ex:
    Veja se vc precisa atualizar o valor do CAMPO CODIGO
    ***Dica****
    Crie os MÉTODOS separados, e no EVENTO do botão, chame o MÉTODO

    Private Sub btn_atualizar()
    Atualizar_produto
    End Sub

    Sub Atualizar_produto()
    Dim query As String
    query = "Update Dados Set CODIGO=" & Me.TxtCodigo & ",DESCRIÇAO =('" & Me.TxtDescricao & "'),APLICAÇAO =('" & Me.TxtAplicacao & "'),MARCA =('" & Me.TxtMarca & "'),FORNECEDOR =('" & Me.TxtFornecedor & "'),CUSTO =('" & Me.TxtCusto & "'),MARGEM =('" & Me.TxtMargem & "'),PREÇOVENDA =('" & Me.TxtVenda & "'),DATAALTERAÇAO =('" & Me.TxtData & "'),COMPLEMENTO =('" & Me.TxtComplemento & "'),EstoqueMinimo =" & Me.TxtEstoqueIdeal & ",LocalFoto =('" & Me.TxtImagem & "'),CATEGORIA =" & Me.ListaCategorias.Column(1) & " Where IDProd = " & Me.TxtId & ";"

    On Error GoTo erro

    CurrentDb.Execute query
    MsgBox "Atualizado com Sucesso: "
    erro:
    MsgBox "Erro: "
    End Sub

    samir terras
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 01/03/2016

    Re: [Resolvido]Update erro sintaxe 3075

    Mensagem  samir terras em Sex 24 Nov 2017, 23:40

    Boa Noite
    Já Estou com dor de cabeça.
    Agora esta Dando erro em tempo de execução 3075. Operador faltando
    Parte do BD.
    avatar
    José Machado
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 13/09/2016

    Re: [Resolvido]Update erro sintaxe 3075

    Mensagem  José Machado em Seg 27 Nov 2017, 09:56

    Bom dia

    Poderia me enviar o seu sistema, para eu dar uma averiguada.


    Att
    José
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Update erro sintaxe 3075

    Mensagem  Avelino Sampaio em Seg 27 Nov 2017, 12:19

    Samir

    quando se tem uma quantidade grande de campos, fica melhor utilizar o Recordset. Fica até mais fácil de achar os erros. Exemplo:


    Dim rs as DAO.Recordset
    Dim strSql$
    strsql = "SELECT * FROM dados WHERE IDprod = '" & me!txtId & "'"
    set rs = currentdb.OpenrecordSet(strSql)
    rs.edit
    rs!codigo = me!txtCodigo
    rs!Descriçao = me!Descricao
    rs!Aplicaçao = me!txtAplicação
    ...
    rs.update
    rs.close
    set rs = nothing
    msgbox "Atualizado..."



    Sucesso!


    Última edição por Avelino Sampaio em Dom 03 Dez 2017, 07:31, editado 1 vez(es)

    samir terras
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 01/03/2016

    Re: [Resolvido]Update erro sintaxe 3075

    Mensagem  samir terras em Sab 02 Dez 2017, 22:59

    Boa Noite a todos
    Realmente usar o recordset ficou mais fácil
    Obrigado a todos pelo suporte
    Vlw Resolvido.
    Obrigado a todos Abraços ...

      Data/hora atual: Seg 11 Dez 2017, 23:00