MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]If não obedece a condicional!

    Compartilhe

    Kiora
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    Re: [Resolvido]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 : 40
    Registrado : 18/06/2016

    Re: [Resolvido]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 &!
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]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 : 40
    Registrado : 18/06/2016

    Re: [Resolvido]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
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]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

    Kiora
    Novato
    Novato

    Respeito às Regras 100%

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

    Resolvido

    Mensagem  Kiora em Ter 03 Jan 2017, 19:23

    Resolvido

      Data/hora atual: Sex 28 Jul 2017, 11:49