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]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]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

    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.

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    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: Sex 09 Dez 2016, 09:38