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

    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: Sab 03 Dez 2016, 04:32