MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    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.

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    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: Sab 03 Dez 2016, 19:37