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]KM Inicias Não podem ser menores que os KM Finais

    Compartilhe

    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 148
    Registrado : 01/09/2017

    [Resolvido]KM Inicias Não podem ser menores que os KM Finais

    Mensagem  diogoisaias21 em Qua 10 Jan 2018, 11:37

    Eu supostamente já tinha a funcionar, mas deixou de funcionar

    Irei disponibilizar a base de dados só com esta parte, ele já tem um limite de KM ou seja, os Finais não podem passar +1000 dos inicias, mas só mesmo os inicias menor que os finais é que não funciona Sad

    Alguma solução?

    Obrigado

    [Você precisa estar registrado e conectado para ver este link.]


    Última edição por diogoisaias21 em Qua 10 Jan 2018, 11:41, editado 2 vez(es) (Razão : ficheiro)
    avatar
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 304
    Registrado : 27/03/2015

    Re: [Resolvido]KM Inicias Não podem ser menores que os KM Finais

    Mensagem  bigfill em Qua 10 Jan 2018, 13:01

    Bom dia diogoisaias21

    Veja se esta conforme sua necessidade.
    Anexos
    help.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (568 Kb) Baixado 7 vez(es)

    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 148
    Registrado : 01/09/2017

    Re: [Resolvido]KM Inicias Não podem ser menores que os KM Finais

    Mensagem  diogoisaias21 em Qua 10 Jan 2018, 13:30

    perfeito,

    Só gostava de saber o porque do outro código estar a dar errado

    Obrigado

    cheers cheers cheers cheers

    o código que tinha antes era este:

    Código:
    If Me.KMFinal < Me.KMInicial Or Me.KMInicial = "" Then
    MsgBox "KM Inicial não pode ser menor que o Inicial.", vbInformation, "Aviso"
    Me.KMFinal = ""
    Me.NCODU.SetFocus 'No lugar do * coloque algum controle que não seja bloqueado e que não seja requerido (Obrigação de preenchimento).
    Me.KMFinal.SetFocus
    Else
    avatar
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 304
    Registrado : 27/03/2015

    Re: [Resolvido]KM Inicias Não podem ser menores que os KM Finais

    Mensagem  bigfill em Qua 10 Jan 2018, 14:38

    diogoisaias21 que bom que resolveu. cheers

    Neste código ele esta comparando os valores como exemplo abaixo.

    KMInicial (Como Valor Numérico)

    KMFinal (Como valor Texto)

    Então todas as vezes dava como o Inicial era maior que o final.

    O que eu fiz foi criar uma variável do tipo "Long" (Valor numérico inteiro) para guardar os valores dos campos e depois a mesma formula para compara-los.

    Código:
    Dim VarKMIni As Long
    Dim VarKMFin As Long
    VarKMIni = Me.KMInicial
    VarKMFin = Me.KMFinal
    If VarKMIni > VarKMFin Then
    MsgBox "KM INICIAL MENOR QUE O FINAL", vbCritical
    Me.KMFinal = Null
    Me.KMInicial.SetFocus
    Me.KMFinal.SetFocus
    Else
    End If

    Não se esqueça de marcar o resolvido Very Happy

    diogoisaias21
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 148
    Registrado : 01/09/2017

    Re: [Resolvido]KM Inicias Não podem ser menores que os KM Finais

    Mensagem  diogoisaias21 em Qua 10 Jan 2018, 15:17

    obrigado pelo esclarecimento Wink


      Data/hora atual: Sex 19 Jan 2018, 20:47