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

    Ultimo registro baseado numa ComboBox

    Compartilhe

    BITSILVA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 30/08/2010

    Ultimo registro baseado numa ComboBox

    Mensagem  BITSILVA em Dom 10 Abr 2016, 15:26

    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:

    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.


    Agradeço a ajuda e atenção de todos!
    Anexos
    relacionamento.png
    Imagem do relacionamento das tabelas
    Você não tem permissão para fazer download dos arquivos anexados.
    (7 Kb) Baixado 3 vez(es)

    BITSILVA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 30/08/2010

    Último registro baseado numa Combobox- SOLUÇÃO!

    Mensagem  BITSILVA em Dom 10 Abr 2016, 18:26

    Achei a solução para uma combobox, ou seja, ao selecionar um determinado valor da combobox ele me trará o último valor da seleção baseado na tabela de registros. Vejamos:

    Private Sub cbPlaca_AfterUpdate()
       If CaixaListagem = Gol Then
       Me.txtKMAnterior.Value = DLast("Campo_KM", "tb_Karometro", "IDCarro=Gol")
       Else
       Me.txtKMAnterior.Value = DLast("Campo_KM", "tb_Karometro", "IDCarro=Palio")
       End If


    Desta forma funcionou perfeitamente!

      Data/hora atual: Ter 25 Jul 2017, 05:44