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

2 participantes

    [Resolvido]Abrir o registro correspondente ao clicar duas vezes na ListBox

    Walter
    Walter
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 340
    Registrado : 17/04/2011

    [Resolvido]Abrir o registro correspondente ao clicar duas vezes na ListBox Empty [Resolvido]Abrir o registro correspondente ao clicar duas vezes na ListBox

    Mensagem  Walter 11/9/2021, 17:10

    Boa tarde a todos.
    Mais uma vez recorro aos amigos para solucionar um problema que não consegui resolver porque meus conhecimentos de VBA são bastante precários.
    O BD em anexo terá a função de Controlar o fluxo de veiculos de uma secretaria de saude.
    No formulario principal (Fml_Veiculo) tem um Subformulario (SubFml_Viagem) e uma ListBox (CxLis_VeiculosEmUso).
    Nessa caixa de listagem ficam exibidas as viagens ainda não finalizadas com a Data de Retorno. Eu gostaria que ao clicar em uma linha da ListBox, o formulario (o mesmo que está aberto) exibisse o registro correspondente (o Veiculo usado e a Viagem correspondente). Encontrei alguns códigos que ensinam a abrir OUTRO FORMULARIO nesse registro, mas o que quero é abrir nesse mesmo formulario.
    Abaixo envio o BD para me ajudarem nesse código.

    Obrigado.


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    Walter
    Walter
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 340
    Registrado : 17/04/2011

    [Resolvido]Abrir o registro correspondente ao clicar duas vezes na ListBox Empty Re: [Resolvido]Abrir o registro correspondente ao clicar duas vezes na ListBox

    Mensagem  Walter 11/9/2021, 19:16

    Olá.
    Um outro problema que está ocorrendo é que quando clico no botão EXCLUIR ele não exclui e dá a mensagem que não há nenhum registro a ser excuido....


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    Walter
    Walter
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 340
    Registrado : 17/04/2011

    [Resolvido]Abrir o registro correspondente ao clicar duas vezes na ListBox Empty Re: [Resolvido]Abrir o registro correspondente ao clicar duas vezes na ListBox

    Mensagem  Walter 14/9/2021, 23:15

    Olá, Boa noite.
    Continuo procurando uma solução. Algumas pessoas baixaram o arquivo anterior, mas ninguém apresentou uma sugestão. Fiz várias modificações no BD, até mesmo na estrutura das tabelas e dos relacionamentos.
    Mesmo assim não consegui uma forma de: MOSTRAR NO FORMULÁRIO O REGISTRO QUE SELECIONO OU DOU DUPLO CLICK NA LISTBOX QUE ESTÁ NO MESMO FORMULÁRIO.
    Vi alguns exemplos no Forum, mas não consegui adapta-los para o meu BD.
    Continuo aguardando a ajuda de vocês. Acredito que seja um código simples a se colocar no evento Ao Clicar Duas Vezes  da ListBox.

    Coloco anexo da nova versão do BD e deixo meus antecipados agradecimentos.
    Anexos
    [Resolvido]Abrir o registro correspondente ao clicar duas vezes na ListBox AttachmentControle da Frota_Novo - Copia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.1 Mb) Baixado 4 vez(es)


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1791
    Registrado : 13/12/2016

    [Resolvido]Abrir o registro correspondente ao clicar duas vezes na ListBox Empty Re: [Resolvido]Abrir o registro correspondente ao clicar duas vezes na ListBox

    Mensagem  Alexandre Fim 14/9/2021, 23:38

    Boa Noite Walter,

    Sim. É simples.

    No duplo clique da listbox, insira o seguinte código:

    Código:


    Private Sub ListBox_CarrosEmUso_DblClick(Cancel As Integer)
    '    Me.CodigoViagem = Me.ListBox_CarrosEmUso
       
        Me.Filter = "[CodigoViagem] = " & Me.ListBox_CarrosEmUso.Column(3) & ""
        Me.FilterOn = True
        Me.Requery



    End Sub



    É isso!!

    Boa sorte

    []'s

    FIM
    Walter
    Walter
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 340
    Registrado : 17/04/2011

    [Resolvido]Abrir o registro correspondente ao clicar duas vezes na ListBox Empty Re: [Resolvido]Abrir o registro correspondente ao clicar duas vezes na ListBox

    Mensagem  Walter 15/9/2021, 00:58

    Muito obrigado pela atenção, Alexandre.

    Esse código gerou um erro na primeira linha:



    "Voce não pode atribuir um valor a este objeto"


    O que pode estar errado?



    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1791
    Registrado : 13/12/2016

    [Resolvido]Abrir o registro correspondente ao clicar duas vezes na ListBox Empty Re: [Resolvido]Abrir o registro correspondente ao clicar duas vezes na ListBox

    Mensagem  Alexandre Fim 15/9/2021, 01:05

    Walter,

    Segue arquivo onde fiz o ajuste. Ta funcionando normalmente.

    []'s

    FIM
    Anexos
    [Resolvido]Abrir o registro correspondente ao clicar duas vezes na ListBox AttachmentControle da Frota_Novo_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Mb) Baixado 13 vez(es)
    Walter
    Walter
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 340
    Registrado : 17/04/2011

    [Resolvido]Abrir o registro correspondente ao clicar duas vezes na ListBox Empty Re: [Resolvido]Abrir o registro correspondente ao clicar duas vezes na ListBox

    Mensagem  Walter 15/9/2021, 01:37

    Perfeito, Alexandre.

    Funcionou direitinho. Deu errado aqui por causa daquela primeira linha que estava "comentada" e não era para ser incluida.
    O erro foi meu.

    Fico muito agradecido.

    Tenha uma boa noite.

    Walter


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"

      Data/hora atual: 26/9/2021, 14:31