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]Duplicação de Registos numa ListBox

    avatar
    cantu
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 61
    Registrado : 24/03/2012

    [Resolvido]Duplicação de Registos numa ListBox Empty [Resolvido]Duplicação de Registos numa ListBox

    Mensagem  cantu 28/6/2021, 15:15

    Boa tarde,
    Tenho uma BD que tem vários formulários para várias funções a minha dúvida é a seguinte:
    1. Tenho o FRM_MENU abro o FRM_PESQUISA
    2. No FRM_PESQUISA aparece um formulário de pesquisa com uma listbox de todos os clientes
    3. Faço duplo click no cliente pretendido e abre outro formulário (FRM_UTENTES) com todas as informações desse utente
    4. Dentro do FRM_UTENTES existe outro botão que abre o formulário (FRM_TERAPEUTICA) que vaiu buscar o nome do utente selecionado e permite efectuar através de vários botões imprimir relatórios diversos
    5. Dentro deste último formulário (FRM_TERAPEUTICA) criei um botão de sair. Sai do FRM_TERAPEUTICA e abre o FRM_MENU novamente
    Até aqui funciona tudo bem, mas quando abro novamente o FRM_PESQUISA o que acontece é que desaparece o primeiro nome do utente da listbox e repete o nome do cliente que foi selecionado.
    Exemplo:
    Nome
    Ana
    Carlos
    Miguel
    Sandra
    Teresa
    FRM_MENU ------ FRM_PESQUISA faço duplo click na Sandra, abre o FRM_UTENTES com toda a info da Sandra, carrego no botão "Terapêutica" que abre o FRM_TERAPÊUTICA saio através do botão sair e
    vou novamente para o FRM_MENU.Ao carregar novamente no botão do FRM_PESQUISA o que acontece é que desapareceu o primeiro utente da listbox (Ana) e duplica a Sandra (Fica Carlos,Miguel,Sandra,Sandra e Teresa). Se selecionar o Miguel duplica o MIguel e apaga o Carlos que passou a ser o primeiro registo (Fica Miguel,Miguel, Sandra e Teresa).
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Duplicação de Registos numa ListBox Empty Re: [Resolvido]Duplicação de Registos numa ListBox

    Mensagem  Alexandre Fim 28/6/2021, 15:21

    Cantu bom dia,

    Fica difícil ajudar com tanta informação sem que haja um exemplo para analisarmos.
    Disponibilize uma cópia do teu sistema (somente partes envolvidas) para análise e possivel solução.

    []'s

    FIM
    avatar
    cantu
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 61
    Registrado : 24/03/2012

    [Resolvido]Duplicação de Registos numa ListBox Empty Re: [Resolvido]Duplicação de Registos numa ListBox

    Mensagem  cantu 29/6/2021, 14:15

    Boa tarde,

    Envio em anexo em ficheiro.
    Para testar os procedimentos são os seguintes:
    1. No FRM_MENU abrir o FRM_CONSULTA_UTENTES através do botão "Utentes"
    2. No FRM_CONSULTA_UTENTES selecionar um utente (não pode ser o primeiro) Exº Beatriz e fazer duplo click
    3. Vai abrir o FRM_UTENTES com o utente selecionado
    4. Selecionar o botão "Terapêutica" e irá abrir o FRM_TERAPEUTICA com o nome do utente selecionado
    5. Fazer click no botão "Sair" do FRM_TERAPEUTICA" e irá novamente para o FRM_UTENTES
    6. No FRM_UTENTES clicar no botão "Sair" e irá para o FRM_CONSULTA_UTENTES e acontece que no listbox apagou o primeiro utente
    e temos dois registos da "Beatriz"

    Cumprimentos
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Duplicação de Registos numa ListBox Empty Re: [Resolvido]Duplicação de Registos numa ListBox

    Mensagem  Alexandre Fim 29/6/2021, 16:04

    Olá Alberto,

    Fiz alguns ajustes no teu sistema, e também criei a variável global "vgIDU", que assume o ID do Utente para as pesquisas.
    Mudei a propriedade de Dados "Entrada de Dados = Sim" dos formulários "FRM_TERAPEUTICA" e "FRM_UTENTES", que são carregados Em Branco, mas que Ao Carregar o form, são filtrados pela variável global.

    OBS: O utente "CARLOS MIGUEL PIRES GUILHERME" ficou duplicado devido aos testes.

    É isso.

    Espero ter ajudado.

    Boa sorte
    Anexos
    [Resolvido]Duplicação de Registos numa ListBox AttachmentCRTMTJ_2.0.1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Mb) Baixado 12 vez(es)
    avatar
    cantu
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 61
    Registrado : 24/03/2012

    [Resolvido]Duplicação de Registos numa ListBox Empty Re: [Resolvido]Duplicação de Registos numa ListBox

    Mensagem  cantu 29/6/2021, 16:40

    Boa tarde,

    A funcionar "quase" perfeitamente. Digo "quase" porque pegando no nome que estava duplicado e ao carregar em "Editar" consegui alterar o nome e quando saí a listbox não estava actualizada, tive que sair e entrar novamente para ficar actualizada.

    Actualizei a variável global nos botões "Editar" e "Consultar".


    Cumpimentos
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Duplicação de Registos numa ListBox Empty Re: [Resolvido]Duplicação de Registos numa ListBox

    Mensagem  Alexandre Fim 29/6/2021, 18:24

    Alberto,

    Copie e cole a instrução abaixo no formulário "FRM_CONSULTA_UTENTES":

    Código:

    Public Function fncAtualizaLista()

        Me.LSTUTENTES.Requery

    End Function

    Em todos os formulários que fazem a chamada do formulário "FRM_CONSULTA_UTENTES", copie e cole a instrução abaixo:

    Código:


    Private Sub Form_Unload(Cancel As Integer)
       
       If CurrentProject.AllForms("FRM_CONSULTA_UTENTES").IsLoaded = True Then
           Form_FRM_CONSULTA_UTENTES.fncAtualizaLista
       End If
       
    End Sub



    Desta forma, a lista de utentes será atualizada.

    É isso

    Espero ter ajudado.

    []'s

    FIM

    cantu gosta desta mensagem

    avatar
    cantu
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 61
    Registrado : 24/03/2012

    [Resolvido]Duplicação de Registos numa ListBox Empty Re: [Resolvido]Duplicação de Registos numa ListBox

    Mensagem  cantu 5/7/2021, 15:52

    Boa tarde,

    Ficou óptimo. Muito obrigado pela ajuda

      Data/hora atual: 18/9/2021, 17:19