[Resolvido]qual o problema do meu IF

qual é o problema da minha condição?

Código:

Private Sub Comando6_Click()
Dim db      As DAO.Database
Dim sSQL    As String
If Me.TxQTDE > Me.txtQuantidadeValidar Then

    MsgBox "Não temos essa quantidade no estoque", vbInformation, "Center - Print"
Else
Set db = CurrentDb
CurrentDb.Execute "update tbEstoque set Quantidade= Quantidade -'" & Me.TxQTDE & "' WHERE [CodigoBarras] = '" & Me.cboCodProduto & "' "

sSQL = "INSERT INTO paracupom"
    'CAMPOS----------------------------------------
    sSQL = sSQL & "("
    sSQL = sSQL & "  nomeDoProduto"
    sSQL = sSQL & " ,preco"
     sSQL = sSQL & " ,Quntidade"
    sSQL = sSQL & ")"
    'VALORES -------------------------------------
    sSQL = sSQL & " VALUES"
    sSQL = sSQL & "("
    sSQL = sSQL & "  '" & Trim(Me.cboNomeDoProduto) & "'"
    sSQL = sSQL & " ,'" & Trim(Me.total) & "'"
    sSQL = sSQL & " ,'" & Trim(Me.TxQTDE) & "'"
    sSQL = sSQL & ")"
    db.Execute sSQL
   ' Me.txtSubTotal = Reports!relatorioDecupom!preco
relatoriDecupom.Requery
Me.cboNomeDoProduto = Null
Me.TxQTDE = Null
Me.cboCodProduto = Null
'Me.total = Null
'MsgBox "Cadastrado com sucesso", , "Center Print"
' "Efetuada com sucesso", vbInformation, "Aviso"
 End If
  End Sub

Código:

Private Sub Comando6_Click()
Dim db      As DAO.Database
Dim sSQL    As String
  If Me.TxQTDE > Me.listaProduto.Column(3) Then
    MsgBox "Não temos essa quantidade no estoque", vbInformation, "Center - Print"
Else
Set db = CurrentDb
CurrentDb.Execute "update tbEstoque set Quantidade= Quantidade -'" & Me.TxQTDE & "' WHERE [CodigoBarras] = '" & Me.cboCodProduto & "' "


Boa noite,

Qual o erro que te retorna?

O problema é a falta de um Exit Sub

Não mostra nenhuma problema, mesmo colocando o exit sub ele não cancela a primeira instrução , ele deixa passa e executar a segunda

Outro detalhe que vi foi essa parte

Código:

Quantidade = Quantidade - '" & Me.TxQTDE & "' Where...

Apenas strings devem ficam entre aspas!

O motivo de strings/textos ficam entre aspas é porque podem conter espaços e ficando entre aspas forçamos o código a interpretá-las como uma coisa só.

Código:

DUAS COISAS

Código:

"UMA COISA SÓ"

Voltando a parte que marquei no seu código. Se o campo TxQTDE tiver o valor 9 então ficaria assim

Código:

Quantidade = Quantidade - '9'

Como subtrair um texto de um campo numérico? Não dá!

O correto seria

Código:

Quantidade = Quantidade - " & Me.TxQTDE & " Where...

Se continuar não dando certo então anexe seu projeto para uma ajuda certeira.

Ivan ele esta executando normal o cadastro, mas ele não esta fazendo a comparação se o TxQuantidade é maior que txtquantidade validar

Se não resolver. Só anexando o projeto mesmo. Boa sorte.

Há várias possibilidades de teste. Tente inserindo o código abaixo para ver se detecta o que pode estar conflitando

Código:

...
Dim db      As DAO.Database
Dim sSQL    As String

if Typename(Me.TxQTDE.value) = Typename(Me.listaProduto.Column(3)) then
call msgbox("os campos são de tipos iguais")
else
call msgbox("os campos são de tipos diferentes")
end if

Call msgbox("O valor de Me.TxQTDE é: " & Me.TxQTDE.value & vbnewline & _
"e seu tipo é: " & Typename(Me.TxQTDE.value) & vbnewline & vbnewline & _
"O valor de Me.listaProduto.Column(3) é: " & Me.listaProduto.Column(3) & vbnewline & _
"e seu tipo é: " & Typename(Me.listaProduto.Column(3)))

If Me.TxQTDE > Me.listaProduto.Column(3) Then
...

Bom dia.
Os campos estão no mesmo formato. O if que não estou entendendo

Você misturou campos números e texto.

Altere para

Código:

...
If Me.TxQTDE > Val(Me.txtQuantidadeValidar) Then
...

deu problema , ele não está sendo inserido pelo ssql

Crysostomo,
Veja se esta rotina te atende.

Código:



Private Sub Comando6_Click()
On Error GoTo trata_erro

Dim db          As DAO.Database
Dim sSQL        As String
Dim vQtdEst    As Long

    'Compara as qtde informada com a qtde disponível
    If Me.TxQTDE > Me.txtQuantidadeValidar Then
        MsgBox "Quantidde solicitada MAIOR que a quantidade disponível em estoque.", vbExclamation, "Center - Print"
        Exit Sub '<== Se a condição não for atendida a rotina é finalizada aqui.
    End If

    'O campo Me.TxQTDE deve aceitar digitação somente NUMEROS
    vQtdEst = CLng(Me.TxQTDE)

    Set db = CurrentDb
   
    'Atualizando quantidade no estoque
    sSQL = "UPDATE tbEstoque SET Quantidade= (Quantidade -" & vQtdEst & ")"
    sSQL = sSQL & " WHERE CodigoBarras = '" & Me.cboCodProduto & "'"
    db.Execute sSQL
   
   
    sSQL = "INSERT INTO paracupom"
    sSQL = sSQL & "("
    sSQL = sSQL & "  nomeDoProduto"
    sSQL = sSQL & " ,preco"
    sSQL = sSQL & " ,Quntidade"
    sSQL = sSQL & ")"
    sSQL = sSQL & " VALUES"
    sSQL = sSQL & "("
    sSQL = sSQL & "  '" & Trim(Me.cboNomeDoProduto) & "'"
    sSQL = sSQL & " ,'" & Trim(Me.total) & "'"
    sSQL = sSQL & " ,'" & Trim(Me.TxQTDE) & "'"
    sSQL = sSQL & ")"
    db.Execute sSQL

    relatoriDecupom.Requery
   
    Me.cboNomeDoProduto = Null
    Me.TxQTDE = Null
    Me.cboCodProduto = Null

    Exit Sub

trata_erro:
   
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub

End Sub



Boa sorte !!!