[Resolvido]Busca avançada de registro

Boa a todos,

Ainda com o meu BD em construção, tenho um formulário de cadastro, gostaria de
ter nele um botão que abrisse outro formulário (de busca) e ao clicar em um certo
nome em uma lista ele retornasse a abrir o formulário de cadastro já com todos os
dados daquela pessoa.
Eu sei como fazer isso criando uma cx de combinação no próprio formulário de
cadastro, mas eu gostaria que fosse com um botão e com outro formulário.
Nesse caso, no Frm_Cadastro eu já tenho os botões para buscar por "Usuário",
quando clica ele abre o Frm_PesquisaUsuário1.

Eis o link para baixar o BD pq o tamanho não coube para anexar aqui:

dropbox.com/s/wluxga5psfk9hwm/AGENDA%20-%20Teste3.accdb?dl=1


Desde já muito agradecido aos nobres.

Att,
Eriston Mattos.

Olá amigo, boa noite , deletei algumas tabelas e formulário para entender o caso do erro . e só deixei 1 tabela e 2 frm  , vê ai se era isso que vc queria e depois adapta.
Não deixa de retornar, incrementei um botão localizar no from de Cadastro.
Vai abrir uma listagem de data e horas clica em cima dela que  o comando abrira o frm preenchido, fiz rapido por isso que deixei data e horas
drive.google.com/open?id=1PNYSGgeb8-N_Ggjgp1Ugz9lWbTFNf3D4

Boa tarde Crysostomo,

Veja bem nobre, no anexo que enviei tem um form "Frm_PesquisaUsuario1", ele abre um form que
está pronto pra ser usado como busca de Usuários, só precisava do código nessa cx de listagem pra
retornar o registro específico, quando clicasse nele, como vc fez com data e hora...
Do jeito que vc fez, usando campos data e hora, não sei como implementar no BD original.

Lamento, não entendo tanto de VBA pra isso.

Estou aceitando sugestões do membros é claro.


Att,

entendi, você quer separar a listagem como janela principal, porque da no jeito, vou dar uma olhada de novo aqui

Resolvi o problema de mostrar o campo Nome, alterando o formato de tamanho da coluna nas propriedades
Crysostomo, só não consigo fazer com que funcione ao clicar em qualquer nome, ele feche, abra o form
"Frm_Cadastro" atualizando com os dados de registro, pq isso?!
Tem uma macro no botão "localizar", que abre o form "localizarUsuarios", até aí tudo ok, prefiro vba do que
macros, mas além de não deixar o foco no campo "Nome" não fecha o form "Frm_Cadastro".
Tentei incluir na macro do botão "localizar" que feche o formulário, mas aí a busca não retorna resultado.

Falta pouco agora nobre.

Att,

vce que abrir ele no vba
para abrir o localizaUsuario no botão "

Código:

DoCmd.OpenForm " nome do formulário que quer abrir"

para fechar

Código:

DoCmd.Close acForm, "nome do formulário que quer fechar"

para colocar foco no campo

Código:

Me.seuCampo.SetFocus

resolvei colega?

Boa tarde Crysostomo,

Só tenho mexido no Access em casa, pq no trabalho estamos reconfigurando internet,
ou seja, sem acesso a e-mail e outros enfim nobre.

Então, sobre os códigos que vc citou, eu já os conheço, inclusive, no BD tem lugares onde são usados,
agora sobre o caso atual, a questão é outra Crysostomo.

- O botão "localizar" está com macro, ok, mas se eu incluir na macro para ele fechar o outro formulário,
não funciona pra busca, eu testei e não retorna nada no formulário "Frm_Cadastro".
- Se eu tiro a macro e coloco um código pra fechar um form e abrir o outro e depois retornar a busca,
tbm não funciona, eu testei aqui.

Inclusive tem um botão aí ao lado do campo nome (...) que é onde eu vou usar o código que vc colocou
no botão "localizar". Sei que vc concorda que não fica muito legal abrir um formulário por cima do outro.

É isso fera.

Att,

meu amigo, acabei de fazer uma parte aqui no meu sistema , quer fazer teamView ,tenho 20minutos , ?
Acesso remoto

Vc incluiu o que e aonde pra fazer com que a busca retorne um resultado nobre?
Se não puder mexer no BD agora, tudo bem, quando vc tiver mais tempo.

Não uso teamview.

Att,

tem problema não é porque acho que tomei muito café e não estou te entendendo muito bem , se quiser ?

Vou tentar explicar de outra forma...

Tem o botão "localizar" no formulário "Frm_Cadastro".
Ele abre o formulário "localizarUsuarios", até aí beleza.
Quando eu clico em um nome na lista, ele fecha e volta abrir o formulário "Frm_Cadastro".

Isso resolve a questão de busca de um registro, legal.

O seu botão "localizar" tem uma macro pra abrir o formulário "localizarUsuarios", certo.

Só que quando a gente clica no botão, abre o formulário por cima do outro, preciso que
o formulário "Frm_Cadastro" feche quando o formulário "localizarUsuarios" abrir.

Ficou melhor agora?

Att,

vc deu uma olhadanos codigo que te passei?
podemos abrir o teamvew pq minha saida aqui foi cancelada, ai a gente aprende tudo junto

Lamento nobre, não uso teamview...

Posso até enviar o BD original por e-mail (por estar com 104mb), pra vc ver
entender melhor a necessidade, mas nada de acesso remoto Crysostomo.

Vc decide aí fera.

Att,

deixa eu dar uma olhadinha aqui na parte que eu fiz no seu bd , deixo ver se ele está no meu drive

coloquei o localizar usuários  nos 3 pontinhos (...)

drive.google.com/open?id=1SXzPL5xTPYiPvXGB95En5G-qr334CTuE

Estava faltando alguma solução no modo de abrir e fechar os forms e
fazer funcionar a busca, como eu disse... Agora tá show.

Amanhã eu coloco esses códigos nos devidos eventos do BD original e
finalizo o tópico se tudo funcionar ok

Muito agradecido enfim.

Att,

Crysostomo, bom dia,

Não tive sucesso ao transportar os códigos para o BD original nobre,
O formulário de pesquisa funciona bem, abrindo e fechando o outro,
mas quando clico em qualquer nome abre o formulário de cadastro
sem os dados.

Deixa um e-mail seu aqui que envio o BD original pra vc dar uma olhada.

Tbm estou aceitando sugestões fera...

Att,
Eriston Mattos.

Bon dia .Bom Como deu certo em uma parte , mas você colocando no seu original deu erro, pode ser algum código do seu original  que impede o outro funcionar.
Manda o bd pela nuvem apontando o erro , dando um tempo eu vejo.

Os objetos envolvidos no BD são "Frm_Cadastro" e "Frm_Localiza_Usuario1".

dropbox.com/s/m8vgdnpt9jgds6b/AGENDA%20CEREST%20-%202018.accdb?dl=1

Espero que não seja nada complexo enfim nobre.

Aguardo seu help

Att,

Alguma notícia boa aí nobre??

Att,

Tá vivo nobre Crysostomo?

Bom dia.

Att,

Fala colega , eu dei uma olhada nele rápido não entendi o porque dele não abrir com a busca , mais tarde vou olhar com calma .

Boa noite Crisostomo,

Se tiver tempo, dá uma olhada mesmo fera, amanhã já consigo apresentar algo a mais no trabalho enfim.
Ressaltando, os objetos são "Tbl_dados_usuario", "Frm_Cadastro" e "Frm_Localiza_Usuario1".

Abraço

Amigo boa noite, eu  não sei o que está acontecendo , qual o codigo que impede a  busca vou ate pedir ajuda ao colegas aqui , mas como  voce precisa dele amanha sugiro a fazer essa busca pelo BOOKMAN , no momento estou instalando o office 2010 para converter alguns arquivos para 2007, se voce estive ligado  a gnt faz hj. Qual é seu office?

Bom dia Crysostomo,

Não estava online aqui naquela hora, mas entendo que seu tempo é curto,
de boa, só não desista do caso, sei que tem muitos objetos, como as tabelas,
são várias, mas todas são necessárias, assim como o controle de guias que
tem 4 guias que funcionam entre si, todos os códigos VBA nos eventos são
usados e funcionam...
A ajuda do nobre Assis daqui sobre bloquear Data e Hora, tudo está funcionando.

Enfim, fico no aguardo de alguma novidade, e pesquisando onde puder claro.
Sobre o Office, minha versão é a 2007, mas posso alterar para o 2010 se isso
for ajudar, tenho até 2016 aqui no PC, só não instalado.

Muito bom dia enfim.
Att,

Bom dia....


Se cada aba é uma tabela, então terá que ter um Formulário principal na primeira aba e as demais abas subformulários nelas, relacionando entre pela chave primária ( tabela principal /Formulário principal) e chave estrangeira ( demais subtabelas/subformulários ).

Abrir até que abre, mas para fazer a filtragem a sintaxe do código e a lógica está ao meu ver errada. Mesmo clicando no CNS do usuario ( fazendo a busca tanto pelo CNS ou pelo nome do usuário ) os dados não migram para o Frm_cadastro.

Terá que ver a estrutura desse projeto.

Bons estudos.


OBS...isso é apenas uma sugestão minha pelo pouco que eu puder ver e analisar.

Só mexo o com 2007 só estava querendo instalar o Office 2010 ,mas cd corrompido e os que baixei naonfuncionam no meu PC, aí deu problema , tenho que atualizar o 2007 , triste .

Ola..

Faça algumas alterações e teste

Nos Tres pontinhos do frm_Cadastro altere para este

Código:

Private Sub txt_PesquisaUsuario1_Click()
    DoCmd.OpenForm "Frm_Localiza_Usuario1"
'    Forms!Frm_Cadastro.Visible = True
'
    Forms!Frm_Cadastro.Visible = False
   
End Sub

No Frm_Localiza_Usuario1 altere estes

Na origem da linha da List_Localiza_Usuario1 altere para:

Código:

SELECT Tbl_dados_usuario.CNS, Tbl_dados_usuario.Usuario FROM Tbl_dados_usuario ORDER BY Tbl_dados_usuario.Usuario;

E no evento ao clicar List_Localiza_Usuario1 altere para:

Código:

Forms!Frm_Cadastro.Visible = True
    'If CurrentProject.AllForms("Frm_Cadastro").IsLoaded = True Then
        Forms!Frm_Cadastro!txt_Usuario = List_Localiza_Usuario1.Column(1)
        Forms!Frm_Cadastro!txt_Usuario.SetFocus
        DoCmd.Close acForm, "Frm_Localiza_Usuario1"
    'End If

Aguardamos

Abraços

Bom a todos, vou respondendo por partes,

- Celso Roberto,
Sua dica não funcionou, primeiro que no Frm_Localiza_Usuario1 a cx de
texto deixa de buscar no lista o nome ao digitar.
O código pra origem da linha ficou incompleto depois de fazer a alteração.

Segundo, mesmo quando eu clico em qualquer nome na lista, ele abre o form
Frm_Cadastro com somente o campo nome preenchido, como se fosse um novo
usuário.


- Silvio,
Entendi o que disse, vou resumir o que pretendo:
- Essa agenda é para controlar o agendamento de usuários que são atendidos no
CEREST (Saúde do Trabalhador pelo SUS),
- Esse pode atendimento ocorrer por 3 vezes, uma é o acolhimento (primeiro),
onde eu digito os dados do atendimento, os dados do usuário (endereço etc), os
dados da empresa que o usuário trabalha e os dados do profissional que faz o primeiro
atendimento (acolhimento).
Por isso a caixa de controle tem 4 guias, Atendimento, Usuário, Empresa e Profissional.
Todos esses dados pertencem a uma tabela. Achei que se fosse 4 tabelas daria mais
trabalho relacionar os campos, até pq tem vários códigos (só olhar os eventos) e todos
são pra autopreencher na maioria e facilitar o uso.
- O segundo atendimento é uma tabela.
- E o terceiro atendimento será uma tabela que ainda vou criar.

Retornando ao caso aqui, seria legal ter uma forma de procurar o usuário caso os dados
já estejam no banco de dados, mas confesso, quando vejo subformulários em outros BD,
acho que deixam design grotesco.

Claro, se não conseguir resolver o caso aqui com os que sabem mais que eu, vou começar
do zero e dividir tudo em tabelas separadas. Coloco um botão pra uma chamar a outra nos
formulários, sei lá.

Por fim, o nobre Crysostomo, que tentou me ajudar, mas quase resolveu.

Att,

Olá..

Na origem da linha do Frm_Localiza_Usuario1 volte este:

Código:

SELECT Tbl_dados_usuario.CNS, Tbl_dados_usuario.Usuario FROM Tbl_dados_usuario WHERE (((Tbl_dados_usuario.Usuario) Like [Forms]![Frm_Localiza_Usuario1].[txt_Localiza_Usuario1] & "*")) ORDER BY Tbl_dados_usuario.[Usuario];

Como no a unica informação que existe no Frm_Localiza_Usuario1 é o nome eu pensei que seria só isto, então altere para este

Código:

Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Frm_Cadastro"
    stLinkCriteria = "[Usuario]='" & Me!List_Localiza_Usuario1.Column(1) & "'"
    'DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormReadOnly
    DoCmd.GoToControl "txt_Usuario"
    DoCmd.Close acForm, "Frm_Localiza_Usuario1"

Faça os testes e retorne

Abraços

Eriston...

Subformulários são simples de trabalhar, mas tem que ter paciência para molda-los como desejamos, eu particularmente, penso que no seu caso seria a melhor saída devido aos relacionamentos entre uma tabela principal e as demais subtabelas.

Pense no dia de amanhã ao buscar um histórico de um usuário do SUS ou algum outro tipo de busca, não ficaria mais fácil ?

Bom é a minha posição como desenvolvedor.

Bom dia caros,

Sim Silvio, entendo que a busca de um registro seria menos complicada, mas esse BD não é nada oficial, é somente uma forma de nós aqui do
CEREST termos os dados dos usuários que são atendidos agendados de forma mais prática, ainda que o trabalho que isso tá me dando não seja.

Celso Roberto, nobre, funcionou perfeitamente, só faltou falar. Agora só preciso alterar alguns nomes pra usá-lo no botão de busca pelo CNS, que
apesar de serem números, tbm é do tipo texto na tabela.

Crysostomo, fera, temos a solução enfim...

Muito agradecido aos colegas membros, resolvido com louvor.

Breve volto com mais dúvidas, claro.

Att,
Eriston Mattos.

Olá...

Ficamos felizes por ter ajudado.

O Fórum agradece o seu retorno.

Abraços e sucesso