MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Validação erro 3144 no update

    avatar
    Kiora
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Validação erro 3144 no update Empty [Resolvido]Validação erro 3144 no update

    Mensagem  Kiora 16/7/2016, 22:04

    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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Validação erro 3144 no update Empty Re: [Resolvido]Validação erro 3144 no update

    Mensagem  Alexandre Neves 17/7/2016, 08:29

    Bom dia
    Nulos não são cadeia vazia
    Coloque
    If "" & TXTransf = "" Then


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Kiora
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Validação erro 3144 no update Empty Resolvido

    Mensagem  Kiora 17/7/2016, 12:15

    Bom dia nobre amigo Alexandre Neves,

    Eu comecei a procurar em alguns exemplos hoje de manha e me deparei com isnull() e funcionou muito bem,

    eu coloquei assim:

    If isnull(TXTransf) then

    Msgbox("valor em branco, favor inserir um valor")
    Else
    (restante do codigo...)
    End If


    Mesmo assim, muito obrigado pela ajuda!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Validação erro 3144 no update Empty Re: [Resolvido]Validação erro 3144 no update

    Mensagem  Alexandre Neves 17/7/2016, 16:36

    Coloque como eu indiquei
    Se utilizar
    If isnull(TXTransf) then
    o campo pode estar branco e não funcionará como pretende
    Imagine começar a preencher o campo e limpá-lo, ficará como cadeia ""


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Kiora
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Validação erro 3144 no update Empty Re: [Resolvido]Validação erro 3144 no update

    Mensagem  Kiora 18/7/2016, 01:09

    Não tem como caro Alexandre eu fiz passando um valor da caixa de listagem ele tem que selecionar um item.

    Ou seja ou esta em branco ou ele seleciona um item da caixa de listagem!

    Se não for abusar d+ pode me ajudar com outro problema?
    O link esta abaixo!

    https://www.maximoaccess.com/t27347-if-nao-obedece-a-condicional

    Conteúdo patrocinado


    [Resolvido]Validação erro 3144 no update Empty Re: [Resolvido]Validação erro 3144 no update

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/5/2024, 12:25