none
Ultimo registro baseado numa ComboBox RRS feed

  • Pergunta

  • Olá pessoal,

    Estou desenvolvendo um Sistema de Uso de veículos, onde os funcionários pegam os veículos da empresa para serviço externo.

    No cadastro quando o funcionário listar (caixa de combinação) o veículo, gostaria que ele puxasse o último KM anterior daquele veículo selecionado, mostrando numa caixa de texto:

    Visão da Tabela:

    - IDRegistro

    - Funcionario

    - Funcional

    - Veículo (caixa de combinação) - KM - KM Anterior ( apareceria o último KM registrado do veículo selecionado da combo)

    Segue uma parte do código:

    Private Sub cbPlaca_AfterUpdate()

    If Me.cbPlaca.Value Then

    KMAnterior.Value = DLast("KM", "Karometro")

    End If

    End Sub

    Ao selecionar a placa, eu quero que ele selecione o último KM da placa selecionada, porém, ambos os registros de km rodado dos veículos estão na mesma tabela.

    Agradeço a ajuda e atenção de todos!

    MS-Access 2013


    • Editado BITSILVA domingo, 10 de abril de 2016 01:09
    domingo, 10 de abril de 2016 01:04

Respostas

  • Private Sub cbPlaca_AfterUpdate()
    If Me.cbPlaca.Value = 1 Then
    Me.KMAnterior.Value = DLast("KM", "tb_Karometro", "IDCarro = 1")
    Else
    Me.KMAnterior.Value = DLast("KM", "tb_Karometro", "IDCarro = 2")
    End If
    End Sub


    André Santo | basevba.wordpress.com

    quarta-feira, 13 de abril de 2016 17:27