none
Ultimo registro baseado numa ComboBox RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar 
    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
    |