MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 168
    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 : 168
    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

    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 : 168
    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: Sab 10 Dez 2016, 12:37