[Resolvido]Auto completar um campo em meu formulário apos verificação

Boa tarde,

Sou novo em access preciso muito da ajuda de todos, tenho um bd em access com um formulário e relatórios já criados, gostaria que quando eu digitasse o nome caso já exista o mesmo nome a minha tabela ele complete todos os campos automáticos, como bd é atendimento de paciente as vezes eles retornam 3 a 5 vezes por semana e toda vez preciso cadastrar de novo porque precisa alterar a data e hora de atendimento.

Agradeço a todos

Abraços

Olá watsonitu,

Olha o simples:

Coloque este código em um botão de pesquisa ou no evento AfterUpdate de um combobox em um formulário acoplado à tabela de origem:

Dim strNome As String

strNome = Forms!NomedoFormulário!Nome (Se for caixa de texto)

ou

strNome = me.cboNome.Column(0) 'Se o campo Nome na tabela for o da primeira coluna, segunda coluna será 1 e assim por diante (Isto se na propriedade da sua combobox a origem for uma tabela. Caso seja uma lista de valores, somente o 0(zero). Fica assim, me.cboNome.Column(0).

me.Recordsource = "SELECT * FROM SuaTabela WHERE Nome = '" & strNome & "'"

Ola good guy,

Fico grato pela ajuda mas fiz da maneira que me passou e nada aconteceu, não sei se me expressei direito,

queria quando eu digitar o nome no campo nome se o mesmo já existir cadastrado em minha tabela, queira que o sistema pegasse os outros campos como (ex. endereço, rg, cpf, data de nasc, etc ) e completasse automaticamente assim como um novo registro em nova data.


Obrigado,

Olá watsonitu,

Ainda não ficou claro. Você poderia filtrar esses campos a partir da digitação de uma palavra-chave em um campo do tipo textbox e surgirem os demais campos depois em uma listbox etc. Posta o seu bd para eu dar uma olhada e ver exatamente o que vc quer.

Boa tarde,

Obrigado pela ajuda, na verdade acho que expliquei errado, desculpe o erro eu preciso que quando eu digitar o nome caso já exista na minha tabela ele complete os outros campos no meu formulário mesmo, porque quando o paciente retorna no consultório eu preciso imprimir a ficha de atendimento novamente

Estou postando aqui o BD

https://drive.google.com/file/d/0B2WonZN-0HnDTFJIa0FZQ09POGc/view?usp=sharing

Estou muito agradecido pela ajuda

Abç,

Olá watsonitu,


Veja no anexo como deveria ser sem macro só com código. Veja bem não alterei sua fonte de registro. Se alguma função não funcionar não foi por minha causa. Só mexi no código de abertura do formulário Cadastro.

Obrigado a todos do forum pela ajuda fico muito feliz em poder contar com todos

Abraços

Olá watsonitu,

O fórum todo agradece.



"O temor do Senhor é o princípio da sabedoria; têm bom entendimento todos os que cumprem os seus preceitos; o seu louvor subsiste para sempre."(Salmos 111.10 - v. João Ferreira de Almeida)

Se quiser aprender mais adquira os meus dois livros DOMINE O ACCESS VBA e TÉCNICAS ESPECIAIS DE ACCESS VBA e você vai aprender isto e muito mais.

Editora Livrorama(DOMINE ...):
www.livrorama.com.br

Editora Ciência Moderna(TÉCNICAS...):
www.lcm.com.br


Um grande abraço.

"O temor do Senhor(respeito pela Palavra de Deus, leitura e obediência) é o princípio do conhecimento" (Prov. 1.7)
Disse Jesus: "E conhecereis a Verdade e a Verdade vos libertará". (Jo 8.32)
Disse Jesus: “Eu sou a luz do mundo; aquele que me segue, não andará em trevas, mas terá a luz da vida.” (Jo. 8.12)