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

    Compartilhe
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Ajuda Codigo de calculo

    Mensagem  toyebom em Ter 11 Fev 2014, 21:45

    utilizo o seguinte calculo para saber que o veículo está para revisão

    Código:
    Private Sub Matricula_LostFocus()
    Dim x, y, z As Integer
    x = [OBS]
    y = Me.CaixaCombinação137
    w = 2500
    z = y - x
    If z <= w Then
    MsgBox "Viatura para Revisão"
    If z > w Then
    Me.KEfectuados.SetFocus
    End If
    End If
    End Sub

    Se
    Código:
    If z <= w Then
    MsgBox "Viatura para Revisão"
    funciona na perfeição o problema é em
    Código:
    If z > w Then
    Me.KEfectuados.SetFocus
    ai dá-me erro

    Runtime error'6: Overflow

    Onde errei???


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    O autor desta mensagem foi removido do fórum - Ver a mensagem
    avatar
    Beto Givoni
    VIP
    VIP

    Respeito às Regras 0%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1207
    Registrado : 04/01/2011

    Re: [Resolvido]Ajuda Codigo de calculo

    Mensagem  Beto Givoni em Ter 11 Fev 2014, 22:06

    Olá, tenta mudar o tipo de dados das variáveis de Integer para Long.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Ajuda Codigo de calculo

    Mensagem  toyebom em Ter 11 Fev 2014, 22:22

    Obrigado betogivoni resultou na perfeição.
    Ficou assim:

    Código:
    Private Sub Matricula_LostFocus()
    Dim x, y, z As Long
    x = [OBS]
    y = Me.CaixaCombinação137
    w = 2500
    z = y - x
    If z <= w Then
    MsgBox "Viatura para Revisão"
    End If
    If z > w Then
    Me.KEfectuados.SetFocus
    End If
    End Sub


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    O autor desta mensagem foi removido do fórum - Ver a mensagem

      Data/hora atual: Qua 18 Out 2017, 05:00