[Resolvido]If não obedece a condicional!

Bom dia meus caros!
A linha em negrito não esta funcionando, está passando tudo!
Mesmo se eu digitar TXQt > TXTransf ou TXQt < TXTransf, ele faz qualquer tipo de transferência!

Alguem pode me ajudar?

Private Sub Comando63_Click()
Dim x As Integer
Dim Y As Integer
If IsNull(Me.TXList1) Or IsNull(Me.TXList2) Or IsNull(TXProduto) Or IsNull(TXProduto) Then
MsgBox ("Não foi selecionado uma opção na lista de pilha favor selecionar!")
Else
Y = Me.TXList2
x = Me.TXList1

If TXDestino = "Fornecedor" Then
TXQt1 = TXQt1 + TXTransf
Comando = "Update TbMamo set MM_Qt= " & TXQt1 & " , MM_Produto= '" & TXProduto1 & "' where IDMamo=" & Y
banco.Execute (Comando)
MsgBox ("Transação efetuada com sucesso!")
Else
If TXQt < TXTransf& Then
MsgBox ("O valor a ser retirado da pilha é maior do que o valor real que se encontra na lilha.")
MsgBox ("A Transação não foi realisada repita a operação")
Else
If IsNull(TXTransf) Then
MsgBox ("Digite um valor em Transferencia")
Else
TXQt = TXQt - TXTransf
TXQt1 = TXQt1 + TXTransf
Comando = "Update TbMamo set MM_Qt= " & TXQt & " , MM_Produto= '" & TXProduto & "' where IDMamo=" & x
banco.Execute (Comando)
Comando = "Update TbMamo set MM_Qt= " & TXQt1 & " , MM_Produto= '" & TXProduto1 & "' where IDMamo=" & Y
banco.Execute (Comando)
MsgBox ("Transação efetuada com sucesso!")
limpar_Estoque_Mamona
Me.Refresh
End If
End If
End If
End If
End Sub

Boa tarde

Teste aonde tem:

If TXQt < TXTransf& Then

Altere para

If TXQt < TXTransf Then

Boa tarde Assis,

Desculpe mais não tem esse "&" não tem no meu código não.
Isso foi umas tentativas sem sucesso, que eu estava fazendo, desconsidere esse &!

os campos TXTransf e TXQt não estão declarados na função, eles sao um campo do formulario,correto?
talves o vba esteja identificando seus valores como texto, ai o resultado da errado, tenta converter para int ou double
o valor antes de fazer o if.
exemplo

Código:


dim TXTransf2  as double
dim TXQt2  as double

TXQt2 = CDbl( TXQt )
TXTransf2  = CDbl( TXTransf )

If TXQt2 < TXTransf2 Then
.
.
.
endif


Boa noite Ronaldojr1,

Funcionou cara, muito obrigado!!!!!
Eu ainda tentei passar o valor para uma variável declarada por as interger mais não deu!

Vlw cara, muito obrigado msm!

foi um prazer ajudar.
Não esqueça de marcar o tópico como resolvido.
flw e sucesso

Resolvido