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]Nova Ajuda Codigo de calculo

    Compartilhe
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 878
    Registrado : 18/07/2012

    [Resolvido]Nova Ajuda Codigo de calculo

    Mensagem  toyebom em Dom 16 Fev 2014, 22:55

    Private Sub OBS_LostFocus()
    Dim x, y, z As Long
    x = [OBS]
    y = Me.Texto137
    w = Me.Texto140
    z = y - x
    If z <= w Then
    MsgBox "Atenção Viatura proxima de Km de Revisão"
    Else
    If y > x Then
    Me.Texto26.SetFocus
    End If
    End If
    End Sub


    A primeira parte funciona

    Dim x, y, z As Long
    x = [OBS]
    y = Me.Texto137
    w = Me.Texto140
    z = y - x
    If z <= w Then
    MsgBox "Atenção Viatura proxima de Km de Revisão"

    X= Km abastecimento (ex. 7000)
    Y= Km proxima revisão (ex. 10000)
    W= Km para aviso (ex. 2000) avisar 2000 antes dos 10000
    Z = Subetração de y-x

    A segunda ja não funciona pois passados os tais Km da revisão continua a avisar

    Else
    If y > x Then
    Me.Texto26.SetFocus
    End If
    End If

    Onde errei???


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 878
    Registrado : 18/07/2012

    Nova Ajuda Codigo de calculo

    Mensagem  toyebom em Seg 17 Fev 2014, 00:12

    Ok já resolvi, lembrei que quando chega aos Kms pretendidos tenho que alterar para os proximos por isso já não aparece o aviso po isso dou o resolvido.

    Fiz só uma adaptação

    Código:
    Private Sub OBS_LostFocus()
    Dim x, y, z As Long
    x = [OBS]
    y = Me.Texto137
    w = Me.Texto140
    z = y - x
    If z <= w Then
    MsgBox "Atenção Viatura " & [Matricula] & " faltam " & [Texto141] & "Kms para a proxima Revisão"
    Else
    If z > w Then
    Me.Texto26.SetFocus
    End If
    End If
    End Sub


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

      Data/hora atual: Ter 12 Dez 2017, 16:03