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


    [Resolvido]Não deixar gravar se um valor for superior a outro, com condições

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Não deixar gravar se um valor for superior a outro, com condições Empty Não deixar gravar se um valor for superior a outro, com condições

    Mensagem  Assis 9/3/2013, 16:49

    Boa tarde

    Ao fazer click num botão para gravar, quero este comando, mas não estou a conseguir:

    If Me.Banco.Value < Me.Vlr.Value And Me.TipoD.Value = "S" And Me.Conta = "Banco" Then
    MsgBox "Não tem Saldo Disponivel para Efectuar este Lançamento !", vbInformation, "Gestão Despesas"
    Me.MinhaData.SetFocus
    exit sub
    Else
    End If

    Banco.Value é o valor em moeda de um campo
    Me.TipoD.Value = "S"
    Me.Vlr é o valor em moeda que quero lançar.
    Me.conta é Texto


    Se o Me.Vlr for maior que o Banco.Value e o Me.tipoD ="S" e o Me.Conta.Value = "Banco" --- Não gravar

    Se o Me.Vlr for menor que o Banco.Value e o Me.tipoD ="S" e o Me.Conta.Value = "Banco" --- Deixa Gravar


    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Não deixar gravar se um valor for superior a outro, com condições Empty Re: [Resolvido]Não deixar gravar se um valor for superior a outro, com condições

    Mensagem  Convidado 9/3/2013, 18:21

    Se os campos forem do tipo texto... tente converter primeiramente para numeral...
    Algo assim

    Dim lngBanco as Long
    Dim ingVlr as Long

    ingBanco = Clng(Me.Banco)
    ingVlr = Clng(Me.Vlr)

    Depois faça as comparações entre as variáveis.

    Cumprimentos.

    Se o tipo de campo contiver decimais utilize o Double, ex:

    Dim dblBanco as Double

    dblBanco = Cdbl(Me.Banco)

    Cumprimentos.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Não deixar gravar se um valor for superior a outro, com condições Empty Re: [Resolvido]Não deixar gravar se um valor for superior a outro, com condições

    Mensagem  Assis 9/3/2013, 22:58

    Piloto

    O Campo tinha uma formatação assim:

    #.##0,00 €[Branco];#.##0,00 €[Vermelho]
    Isto é, quando é negativo fica vermelho

    Alterei para padrão, 3 resolveu...

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Não deixar gravar se um valor for superior a outro, com condições Empty Re: [Resolvido]Não deixar gravar se um valor for superior a outro, com condições

    Mensagem  Convidado 10/3/2013, 00:01

    O Fórum agradece o Retorno.

    Conteúdo patrocinado


    [Resolvido]Não deixar gravar se um valor for superior a outro, com condições Empty Re: [Resolvido]Não deixar gravar se um valor for superior a outro, com condições

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:43