MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    vinicius.anna
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 174
    Registrado : 29/04/2011

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

    Mensagem  vinicius.anna em Seg 28 Abr 2014, 19:34

    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
    O autor desta mensagem foi removido do fórum - Ver a mensagem

    vinicius.anna
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 174
    Registrado : 29/04/2011

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

    Mensagem  vinicius.anna em Seg 28 Abr 2014, 20:22

    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
    O autor desta mensagem foi removido do fórum - Ver a mensagem
    avatar
    Beto Givoni
    VIP
    VIP

    Respeito às Regras 0%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1207
    Registrado : 04/01/2011

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

    Mensagem  Beto Givoni em Seg 28 Abr 2014, 20:30

    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

    vinicius.anna
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 174
    Registrado : 29/04/2011

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

    Mensagem  vinicius.anna em Ter 29 Abr 2014, 20:56

    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

      Data/hora atual: Seg 20 Nov 2017, 05:49