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] ERRO DE SINTESE NA INSTRUÇÃO UPDATE

    adrianoeaf
    adrianoeaf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 28/04/2011

    [Resolvido] ERRO DE SINTESE NA INSTRUÇÃO UPDATE Empty ERRO DE SINTESE NA INSTRUÇÃO UPDATE

    Mensagem  adrianoeaf Qua 09 Nov 2011, 2:14 pm

    O nosso amigo diego fez um otimo sistema chamado diego construções, porem ele so baixa estoque quando se trata de numeros exatos por exemplo 1 lapis 1 arame recozido 1 regua etc.. ou seja quantidade unitaria, mas estou tentando mudar ele para kg e ele me da essa mensagem na hora que acaba de fazer a venda " ERRO DE SINTESE NA INSTRUÇÃO UPDATE " ele vende mas não atualiza o estoque entende?
    alguem pode me ajudar?
    vou mandar o codigo que faz essa atualização to apanhando pacas!!

    Private Sub Quant_AfterUpdate()
    '=====================================================
    'FAVOR NÃO RETIRE OS CRÉDITOS
    'por Glicério Júnior (Jungli) ... jungli@ibest.com.br em 8.6.2011
    'Modificado por: XXXXXXXX em DD/MM/YYYY
    '=====================================================
    On Error GoTo Err_Quant_AfterUpdate
    Dim qtd, qtd2 As Double
    Dim sql1 As String
    qtd = DLookup("[Estoque]", "[produtos]", "[ID] = " & Me.CodProduto.Column(0))
    If qtd <= 0 Or qtd <= Me.Quant Then
    MsgBox "O estoque está zerado" & vbCrLf & _
    "ou número em estoque menor do" & vbCrLf & _
    "que a quantidade informada.", _
    vbCritical, "ESTOQUE INSUFICIENTE"
    Me.Undo
    Me.CodProduto.SetFocus
    Me.CodProduto.Dropdown
    ElseIf qtd > 0 Or qtd <= Me.Quant Then

    If MsgBox("Você tem certeza que deseja atualizar o estoque??", vbQuestion + vbYesNo, "Pergunta") = vbYes Then
    qtd2 = (qtd - Quant)
    sql1 = "UPDATE produtos SET produtos.Estoque = " & qtd2 & _
    " WHERE (((produtos.ID)=" & Me.CodProduto.Column(0) & "));"
    CurrentDb.Execute sql1
    Else
    Me.Undo
    Me.CodProduto.SetFocus
    Me.CodProduto.Dropdown
    End If
    End If
    Exit_Quant_AfterUpdate:
    Exit Sub
    Err_Quant_AfterUpdate:
    MsgBox err.Description, vbCritical, "Erro Indeterminado"
    Resume Exit_Quant_AfterUpdate
    End Sub

    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 715
    Registrado : 07/05/2010

    [Resolvido] ERRO DE SINTESE NA INSTRUÇÃO UPDATE Empty Re: [Resolvido] ERRO DE SINTESE NA INSTRUÇÃO UPDATE

    Mensagem  Jungli Qua 09 Nov 2011, 3:21 pm

    Na tabela detalhevenda mude o tipo do campo Quant de Inteiro Longo para Duplo

    e use o seguinte código:

    Private Sub Quant_AfterUpdate()
    '=====================================================
    'FAVOR NÃO RETIRE OS CRÉDITOS
    'por Glicério Júnior (Jungli) ... jungli@ibest.com.br em 8.6.2011
    'Modificado por: XXXXXXXX em DD/MM/YYYY
    '=====================================================
    On Error GoTo Err_Quant_AfterUpdate
    Dim qtd, qtd2 As Double
    Dim sql1 As String
    qtd = DLookup("[Estoque]", "[produtos]", "[ID] = " & Me.CodProduto.Column(0))
    If qtd <= 0 Or qtd <= Me.Quant Then
    MsgBox "O estoque está zerado" & vbCrLf & _
    "ou número em estoque menor do" & vbCrLf & _
    "que a quantidade informada.", _
    vbCritical, "ESTOQUE INSUFICIENTE"
    Me.Undo
    Me.CodProduto.SetFocus
    Me.CodProduto.Dropdown
    ElseIf qtd > 0 Or qtd <= Me.Quant Then

    If MsgBox("Você tem certeza que deseja atualizar o estoque??", vbQuestion + vbYesNo, "Pergunta") = vbYes Then
    qtd2 = (qtd - Quant)
    sql1 = "UPDATE produtos SET produtos.Estoque = '" & qtd2 & _
    "' WHERE (((produtos.ID)=" & Me.CodProduto.Column(0) & "));"
    CurrentDb.Execute sql1
    Else
    Me.Undo
    Me.CodProduto.SetFocus
    Me.CodProduto.Dropdown
    End If
    End If
    Exit_Quant_AfterUpdate:
    Exit Sub
    Err_Quant_AfterUpdate:
    MsgBox err.Description, vbCritical, "Erro Indeterminado"
    Resume Exit_Quant_AfterUpdate
    End Sub


    .................................................................................
    "Somos o que repetidamente fazemos.
    A excelência, portanto, não é um feito,
    mas um hábito."

    Aristóteles
    adrianoeaf
    adrianoeaf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 28/04/2011

    [Resolvido] ERRO DE SINTESE NA INSTRUÇÃO UPDATE Empty OBRIGADO

    Mensagem  adrianoeaf Qua 09 Nov 2011, 3:38 pm

    CARA DEU CERTINHO VALEU MESMO!!!
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 715
    Registrado : 07/05/2010

    [Resolvido] ERRO DE SINTESE NA INSTRUÇÃO UPDATE Empty Re: [Resolvido] ERRO DE SINTESE NA INSTRUÇÃO UPDATE

    Mensagem  Jungli Qua 09 Nov 2011, 3:50 pm

    Razz Fico feliz em ajudar
    alien O fórum agradece


    .................................................................................
    "Somos o que repetidamente fazemos.
    A excelência, portanto, não é um feito,
    mas um hábito."

    Aristóteles

    Conteúdo patrocinado


    [Resolvido] ERRO DE SINTESE NA INSTRUÇÃO UPDATE Empty Re: [Resolvido] ERRO DE SINTESE NA INSTRUÇÃO UPDATE

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sáb 23 Nov 2024, 11:05 am