[Resolvido]Carregar todos os registros em formulário vinculado.....

Boa tarde

Em meu sistema de clínica médica tenho uma tela de pesquisa de pacientes, que possui dois campos de filtro, que são o nome do paciente e a data de nascimento (Lista: Nome do paciente - Tipo texto - nome txtcriterio1 e Nome do paciente - Tipo texto - nome txtcriterio2), no evento ao alterar de cada um dos critérios, refaço a pesquisa a cada caractere digitado...., isto funciona perfeitamente. Ao dar um duplo clique na lista, abro o cadastro do respectivo paciente sem maiores problemas, em um segundo formulário chamado frm_Pacientes. É aqui que estou com dificuldade pois, uso a barra de ferramentas nativa do access 2007. Quando abro o cadastro desta forma (duplo clique no item da lista), carrega-se apenas o registro em questão, não se carregam os demais e a tabela possui em torno de 70.000 registros ativos. Alguém têm alguma dica de como possa fazer para que se carreguem todos os registros.....

Uso o código abaixo:

Código:


Private Sub Listagem_DblClick(Cancel As Integer)
On Error GoTo Err_AlteraDados_Click
    Dim verForm As Boolean
        verForm = (SysCmd(acSysCmdGetObjectState, acForm, "frm_PesquisaPaciente") And acObjStateOpen)
        
        If verForm = True Then
            'MsgBox "Pesquisa Paciente Aberto!"
            'DoCmd.OpenForm "frm_Pacientes", acNormal, , "[Id_Paciente]=" & Listagem.Value, acFormEdit
            DoCmd.OpenForm "frm_Pacientes", acNormal, , "[Id_Paciente]=" & Listagem.Value
            Listagem.Value = Null
            txtCriterioNome.Value = Null
            txtCriterioData.Value = Null
            DoCmd.RunCommand acCmdRefresh
            DoCmd.Close acForm, "frm_PesquisaPaciente", acSaveYes
        End If

Exit_AlteraDados_Click:
    Exit Sub

Err_AlteraDados_Click:
    MsgBox "Erro na Pesquisa de Pacientes!!", vbCritical, "Pesquisa"
    Resume Exit_AlteraDados_Click

End Sub


Att. Vinicius

Olá, para abrir o formulário normalmente com todos os registros, podes colocar no evento ao clicar de um botão:
DoCmd.OpenForm "Nome do formulário a ser aberto", acNormal

Boa tarde

Eu já uso desta forma:

DoCmd.OpenForm "frm_Pacientes", acNormal, , "[Id_Paciente]=" & Listagem.Value

o que não estou compreendendo é o fato de abrir o formulário mas não demonstrar todos os registros...., por exemplo, se abro o formulário de pacientes diretamente, a barra de ferramentas demonstra registro 1 de 70.000, e quando abro a partir da pesquisa , o mesmo formulário, na barra demonstra-se registro 1 de 1 e não consigo navegar entre eles...

Att.
Vinicius

Amigo, essa linha está condicionando o formulário a ser aberto por um filtro que é o Id_Paciente quando tu escolhe um paciente na listbox, faz o teste com linha que te passei que o formulário será aberto em sua totalidade

Boa tarde,

Obrigado, valeu pela dica, depois que faço a carga do formulário com o filtro, limpo o mesmo, ai funciona como preciso.

Att. Vinicius