MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Ultimo registro baseado numa ComboBox

    avatar
    BITSILVA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Ultimo registro baseado numa ComboBox Empty Ultimo registro baseado numa ComboBox

    Mensagem  BITSILVA 10/4/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!
    avatar
    BITSILVA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  BITSILVA 10/4/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: 22/11/2024, 12:02