Boa noite pessoal,
Estou tentando validar um item chamado TXTransf pra ele não aceitar valores vazios e só aceitar números.
Não sei o que esta errado no meu código, já inverti o condicional e nada.
Segue o código abaixo, se alguém puder me ajudar, fico eternamente agradecido!
Detalhe no depurador ele esta recebendo null e mesmo assim está passando pelo if e apresentando o erro 3144.
Private Sub Comando63_Click()
Dim x As Integer
Dim Y As Integer
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 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!")
End If
End If
End If
limpar
Me.Refresh
End Sub
Estou tentando validar um item chamado TXTransf pra ele não aceitar valores vazios e só aceitar números.
Não sei o que esta errado no meu código, já inverti o condicional e nada.
Segue o código abaixo, se alguém puder me ajudar, fico eternamente agradecido!
Detalhe no depurador ele esta recebendo null e mesmo assim está passando pelo if e apresentando o erro 3144.
Private Sub Comando63_Click()
Dim x As Integer
Dim Y As Integer
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 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!")
End If
End If
End If
limpar
Me.Refresh
End Sub