[Resolvido]Formulário de pesquisa

Estou querendo fazer um formulário de pesquisa e como estou a muito tempo sem usar o access, não estou lembrando como fazer.

Tenho uma tabela chamada Candidatos e nela existe um campo chamado CPF.

Gostaria de fazer um formulário de pesquisa que quando eu digitasse o CPF, eu pudesse ver registro completo referente ao CPF digitado.

Estou usando o access 2007.

Olá! Seria algo assim no evento "Após atualizar" do campo do CPF?

Me.RecordSource = "SELECT * FROM NomeDaTabela WHERE CPF='" & Me.CampoCPFDoForm & "'"

Bom dia Criquio!!!

Esses são os procedimentos que eu fiz. Veja se é assim mesmo:

1. Criei uma consulta com as informações que eu preciso;

2. Criei um relatório baseado na consulta que fiz;

3. Criei um formulário para montar a pesquisa;

4. Dentro do formulário de pesquisa criei uma caixa de combinação chamada CPF (minha chave primária da tabela principal);

Agora gostaria de apertar um botão para aparecer o relatório com as informações apenas do cpf informado no formulário de pesquisa.

Essa é a minha dúvida....

Talvez assim?

DoCmd.OpenReport "NomeDoRelatório", acViewPreview, , "CPF='" & Me.CPF & "'"

Coloquei esse evento na propriedade ao clicar no botão de comando que eu inseri no formulário e me deu a seguinte informação:

Não pode localizar 'DoCmd'

Será que alguém pode me ajudar?

Talvez assim?

DoCmd.OpenReport "NomeDoRelatório", acViewPreview, , "CPF=" & me!CPF

Se você estiver usando máscara de entrada que salva os caracteres "." e "/", tente colocar assim: DoCmd.OpenReport "NomeDoRelatório", acViewPreview, , "CPF=''" & me!CPF & "'"

A pesar de você ter digitado só números, ele irá entender que o campo tem caracteres do tipo string.

Se der erro novamente, copie a linha que está dando o erro, ou melhor, o procedimento inteiro e cole aqui para podermos ajudar melhor.

Abraços.

Comecei a fazer novamente, sendo que de um modo diferente. Vejam se me entendem:

1. Fiz um formulário e nele criei uma caixa de combinação (Combinação0) com origem dos dados no campo CPF de um formulário chamado Candidatos.

2. Criei um botão de navegação (Comando0);

3. No evento ao clicar do botão de comando, eu escrevi:

Private Sub Comando0_Click()

On Error GoTo Err_Consultar_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Candidato"

stLinkCriteria = "[CPF]=" & "'" & Me![Combinação0] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Consultar_Click:
Exit Sub

Err_Consultar_Click:
MsgBox Err.Description
Resume Exit_Consultar_Click
End Sub


Eu tinha a esperança que abrisse o registro no formulário Candidato referente ao CPF escolhido na caixa de combinação, mas não está acontecendo nada. Me entendem? Podem me ajudar?

Boa noite Luciana, olha se e isso que vc quer..

Matheus, ainda não é isso. Estou tentando postar um BD com minha duvida mas não estou conseguindo. Como faço para anexar o arquivo aqui?

Está aparecendo a seguinte msg:

O arquivo adicionado não é valido: um erro ocorreu enquanto o arquivo estava sendo enviado..

Duvidas desse tipo:

Luciana vc descreveu que quer visualizar dados através do CPF. Então neste modelo que te mandei, usei um código para que na caixa consulta vc digita o CPF e os campos abaixo exibem o registro daquele cpf.. Eu fiz um modelo simples mais e fácil de adaptar.. Tenta bosta uma pate de seu bd... Vc esta colocando no formato ZIP..?

Acabei de colocar Matheus. Eu quero escolher o CPF no formulário pesquisa e quando apertar o botão "Comando0" quero que apareça os dados referentes aquele CPF no formulário "Candidatos". Entendeu?

https://dl.dropboxusercontent.com/u/90217826/Teste.zip

Kayan, obrigada por estar me ajudando.

Escolhi o CPF, apertei o botão de comando e nada aconteceu. Só o botão fechar que funcionou.

Agora parece que não tem nenhum problema. Tente este.

faça um botão e ajuste a seu programa

Private Sub bt_Cnpj_Click()
Dim strSearch As String
Dim mysql As String, MyCriteria As String, MyRecordSource As String
strSearch = InputBox$("Para consultar digite o CNPJ (somente números sem os pontos e a barra)", "Consultas por CNPJ")
   If Not IsNull(strSearch) Then
       If Len(strSearch) > 0 Then
       DoCmd.OpenForm "frmCliente", A_NORMAL, , "[CNPJcli] Like '*" & strSearch & "*'", A_EDIT, A_NORMAL
       mysql = "SELECT * FROM tblClientes WHERE "
       MyCriteria = ""
           If Me.RecordsetClone.RecordCount = 0 Then
           MsgBox "C N P J    N Ã O    C A D A S T R A D O ! ", 16, "frmClienteCsCnpj - CONFECÇÃO"
           End If
       End If
   End If
End Sub

Bom dia Luciana,

No arquivo que você disponibilizou já esta acontecendo o que você quer. Selecionar o CPF na caixa de combinação e ao clicar o botão de comando abrir o formulário no CPF selecionado. Testei e funciona normal.

De todo modo, dá uma olhada no formulário FormCandidatos2.


Nivaldo.

Bom dia!!!

Nivaldo, no formulário teste não está funcionando. Eu teclo o botão "Comando0" e nada acontece. Ja o campo que colocou no formulário "FormCandidatos2" funciona direitinho. Era isso que eu queria, mas em um formulário a parte que penso em colocar como formulário inicial do banco de dados.

Será que no meu não está funcionando por problemas no meu Access 2007? Se vc puder, teste novamente por favor!!!!!

Ola Luciana,só pode ter algum problema no teu access,todos os modelos estão funcionando perfeitamente,o teu modelo inicial também esta do jeito que queres,tente em outro computador pra tirar a dúvida.

Abraços.

Nivaldo, já abri em tres computadores diferentes. Todos com access 2007 e o formulário "Pesquisa" não funciona, apenas o formulário que você criou. O que faço? Já estou aqui choranando, deseperada.....    

Kaynan, o que faço.... Tem alguma sugestão????

https://dl.dropboxusercontent.com/u/90217826/Teste1.zip

Teste agora.

Kaynan, testei e nada. Quando escolho o CPF no formulário pesquisa, não abre o registro referente ao CPF informado no formulário "Candidato".

Desculpe mas aqui o exemplo do Kaynan esta funcional....

Luciana,

Faça o teste com esse, por favor.

Apague todos os outros de teste que você baixou.

Até.

Ah!

Só uma perguntinha, seu access está habilitado para confiar em macros???

Julio, ta sim, pois já fiz alguns macros que deram certo. Nesse seu exemplo só aparece o campo o formulário de pesquisa com um campo CPF. Eu escolho o CPF e nada acontece. Vc realmente não colocou nenhum botão de comando? Já tentei em vários computadores e nada. Não sei mais o que fazer....

Vocês estão com o access 2007? Estou pensando em desinstalar e instalar novamente. Mas já tentei em tantos computadores e nada até agora....

Olá Luciana!

Eu coloquei o comando direto no campo, no evento após atualizar. Deveria abrir o outro formulário.

Mas vamos lá. Esta sua instalação do Access é nova? Está atualizada? Tem versões diferentes nas máquinas que tem o access 2007?

É impossível não funcionar já que as macros estão habilitadas.

Estou desconfiando das referências do VBA mas acho isso meio difícil. Mas para conferirmos, você poderia copia tela das suas referências e nos encaminhar. É uma tela igual a que mostro abaixo:





Para chegar até ela, abra o construtor VBA (Alt+F11), clique em Ferramentas e depois Referências.

Aperte Alt GR + Print Scrn e carregue a imagem aqui utilizando o ícone da barra de menu Hospedar uma imagem.

Aguardamos.

Abraços.

Julio, vc tem sido um anjo do access!!!!!! kkkkkkkkkkkk

Depois que vc me falou sobre o access está habilitado para o macro, eu prestei atenção e percebi que quando abro o Access aparece um aviso de segurança:

"Certos itens do conteúdo do banco de dados foram desabilitados."

Cliquei ali e pedi para habilitar esse conteúdo.

Sabe o que aconteceu? DEU CERTO!!!!! FUNCIONOU!!!!!

Agora vou pegar as configurações do modelo que recebi e passar para o BD no qual estou trabalhando.

Acho que já posso dar como problema resolvido.

Mas em breve estarei de volta porque estou só começando a montar o BD.

Valeu pela atenção de todas e mil desculpas pelo incomodo. Sou mesmo uma novata!!!!

Abraços

Olá Luciana,

Obrigado pelo anjo. Normalmente me chamam de demoniozinho (brincadeira dos meus amigos).

Já que o problema era esse, então não se esqueça de manter habilitado a confiança da suas macros.

Acesse o Botão do Office no Access, Opções do Access, Central de Confiabilidade, botão Configurações da Central de Confiabilidade e depois Configurações de Macro. Vai aparecer uma janela igual a de baixo.

Selecione "Habilitar todas as macros". Assim você não terá problemas com este banco novamente.





Abraços.

Valeu "Anjo" Julio!!!!

Acabei de fazer isso.... agora vou tentar colocar aquela configuração no meu BD.

Abraços e até muitoooooo breve. kkkkkk