MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    If não obedece a condicional!

    Compartilhe

    Kiora
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 18/06/2016

    If não obedece a condicional!

    Mensagem  Kiora em Dom 17 Jul 2016, 13:09

    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

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: If não obedece a condicional!

    Mensagem  Assis em Dom 17 Jul 2016, 14:36

    Boa tarde

    Teste aonde tem:

    If TXQt < TXTransf& Then

    Altere para

    If TXQt < TXTransf Then


    .................................................................................
    *** Só sei que nada sei ***

    Kiora
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 18/06/2016

    Re: If não obedece a condicional!

    Mensagem  Kiora em Dom 17 Jul 2016, 16:51

    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 &!

    ronaldojr1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 163
    Registrado : 01/08/2011

    Re: If não obedece a condicional!

    Mensagem  ronaldojr1 em Ter 19 Jul 2016, 16:30

    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

    Kiora
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 18/06/2016

    Re: If não obedece a condicional!

    Mensagem  Kiora em Qua 20 Jul 2016, 00:13

    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!
    cheers cheers cheers cheers

    ronaldojr1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 163
    Registrado : 01/08/2011

    Re: If não obedece a condicional!

    Mensagem  ronaldojr1 em Qua 20 Jul 2016, 13:14

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

      Data/hora atual: Dom 04 Dez 2016, 14:13