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

    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Nova Ajuda Codigo de calculo Empty [Resolvido]Nova Ajuda Codigo de calculo

    Mensagem  toyebom 16/2/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
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Nova Ajuda Codigo de calculo Empty Nova Ajuda Codigo de calculo

    Mensagem  toyebom 17/2/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: 22/11/2024, 09:20