[Resolvido]Pesquisa em formulario de dados

Ola amigos,


Talvez eu esteja chuvendo no molhado, mas já dei uma olha no forum e não achei nada parecido com que preciso fazer. E gostaria que voces me ajudassem por favor.

Tenho um formulario já com dados exemplo:

Codigo - Nome - item1 - item2
001 - Antonio
002 - Jose
003 - Paulo
004 - Cintia
005 - Paula

A apresentação deve ser da seguinte forma:

Codigo: (assim que eu coloque o codigo ele deve ir para o codigo correspondente ou informar codigo inexistente, nunca cadastra um novo)
Nome: (Preencher assim que eu digite o codigo)
Item 1: (A ser prenchido no ato da digitação)
Item 2: (A ser Prenchido no ato da digitação)


Deste já agradeço,



Aiv Antonio

Ola,



Obrigado pela dica vou testar.


Grato,



Aiv Antonio

Certo. Retorne dizendo se deu certo para fecharmos o tópico ou prosseguir com as dicas.

Amigo,

Não sei se não entendi direito o exemplo só que esta dando erro. Voce poderia detalhar mais por favor.


Grato,



Aiv Antonio

Nomes em azul são os campos na tabela, nomes em vermelho é o nome da tabela de onde vem os dados e nomes em verde são os campos do formulário que pegará os dados dos respectivos campos da tabela aonde o código seja igual ao código do campo no formulário.

If DCount("Código", "NomeTabela", "Código=" & Me!CampoCódigoDoForm) <= 0 Then
MsgBox "Código inexistente", vbOkOnly + vbExclamation, "Erro"
Else
Me.Campo1 = DLookup("Campo1DaTabela", "NomeTabela", "Código=" & Me!CampoCódigoDoForm)
Me.Campo2 = DLookup("Campo2DaTabela", "NomeTabela", "Código=" & Me!CampoCódigoDoForm)
Me.Campo3 = DLookup("Campo3DaTabela", "NomeTabela", "Código=" & Me!CampoCódigoDoForm)
...
End If

Será que esta dando errado por que a tabela de pesquisa e edição e a mesma?

Pois fiz assim:

Private Sub Texto20_BeforeUpdate(Cancel As Integer)

If DCount("CD_INSC", "N Medio - Correção", "CD_INSC=" & Me!Texto20) <= 0 Then
MsgBox "Código inexistente", vbOKOnly + vbExclamation, "Erro"
Else
Me.CD_INSC = DLookup("CD_INSC", "N Medio - Correção", "Código=" & Me!CD_INSC)
Me.CD_NOME = DLookup("CD_NOME", "N Medio - Correção", "Código=" & Me!CD_NOME)
Me.CD_CODCAR = DLookup("CD_CODCAR", "N Medio - Correção", "Código=" & Me!CD_CODCAR)

End If

End Sub



Aiv Antonio

Compacte uma cópia em zip e coloque para a gente dar uma olhada. Na página aonde você digita a mensagem tem opção de anexar o arquivo aqui mesmo no forum.

Segue o BANCO DE DADOS EM ANEXO E O FORMULARIO N Medio correção.



Grato,



Aiv Antonio

Cadê o anexo? Aqui não me apareceu nada.

O site ta retornando erro no envio do arquivo, tem algum e-mail que possa estar passando?


Aiv Antonio

Envie para ccsregistros@gmail.com. Só não prometo olhar ainda hoje, devido o avançar da hora.

Boa Noite, como estou inciando agora no acess estou com algumas dificuldades. Tenho um formulario cadastro de pacientes. Coloquei um botao de pesquisa. So que nao consegui realizar a pesquisa como pretendo. Gostaria, se possivel, de alguma opiniao de qual a melhor maneira de fazer isso. Pensei que apos clicar no botao de pesquisa abra um formulario com os campos, Cod_prec, Nome_pac e CPF. Ao preencher qualquer um destes ele localize o registros pra mim, e eu selecione o que eu quero. E o formulario seja carregado com todos os dados do paciente selecionado. Quando eu falo selecionar por que podem existir varios pacientes com mesmo Cod_Prec, nomes nem tanto, e CPF so um. Porem nem todos tem CPF, por isso a pesquisa por um destes tres campos.

Olá Natalison. Dê uma olhada nesse exemplo: http://dl.dropbox.com/u/5454503/LocalizarQualquerParte.mdb

Bom dia, Perfeito. O exemplo que voce mandou ja adaptei. Ficou otima a pesquisa. Porem, nao sei como faco pra quando selecionar o registro correto ele carregar todas as informacoes no cadastro de paciente.

Explique-me melhor o que pretende, pois começamos por uma coisa rsrsrs e já estamos avançar para outra. Deixa ver se eu percebi; Você quer descarregar as informações do formulário1 numa ficha de clientes?

Meu amigo, so perturbo. Eu tenho um cadastro de pacientes. Para selecionar determiando paciente, para editar, ou consultar era nexessario ir na barra de rolagem ate encontrar determinado paciente. Com a ajuda de voces, coloquei uma consulta em outro pequeno formulario, ficou otimo, por que posso pesquisar por 4 campos. Ficou Excelente esta pesquisa. Porem, ao encontrar o paciente e sair deste formulario de pesquisa nao consigo carregar os dados no formulario paciente, para fazer a edicao ou consultar o que pretendo. Sera que deu pra entender? Obrigado mais uma vez

Acho que o amigo quer dar dois cliques em uma linha e carregar os dados em um formulário. Poderia ser no duplo clique do campo código:

DoCmd.OpenForm "NomeDoFormulário"
Forms!NomeDoFormulário!Código = Me.Código
Forms!NomeDoFormulário!Campo2 = DLookup("NomeCampo2", "NomeTabela", "Código=" & Me.Código)
Forms!NomeDoFormulário!Campo3 = DLookup("NomeCampo3", "NomeTabela", "Código=" & Me.Código)
...

Vou agora para uma reunião de trabalho. Logo que chegue vamos tentar ver isso.

Se o formulário aonde irá editar o registro já estiver aberto, não precisa da linha que o abre. Pode ficar assim:


Forms!NomeDoFormulário!Código = Me.Código
Forms!NomeDoFormulário!Campo2 = DLookup("NomeCampo2", "NomeTabela", "Código=" & Me.Código)
Forms!NomeDoFormulário!Campo3 = DLookup("NomeCampo3", "NomeTabela", "Código=" & Me.Código)
...

Olha esse exemplo aqui que o Vieira me ajudou a elaborar.

Nela usa-se a caixa de listagem para os dados aparece nos campos do formulário e também tem a caixa de texto para efetuar a pesquisa na caixa de listagem, caso Você tenha muitos registros.

De um olhada é diferente do que Você pediu. Mais dê uma olhada.

Link Baixar:
http://dl.dropbox.com/u/8157744/Rogielwith.rar

Origem:
http://maximoaccess.forumeiros.com/t1299-sistema-de-controle-de-pagamento

Acho que nao fui claro na minha colocacao. A pesquisa ta funcionando perfeito. Apos clicar duas vezes, quero sair do formulario de pesquisa e retornar pro formulario paciente que ja esta aberto, pois e neste formulario que esta o botao de comando da pesquisa. So que quando retornar para este formulario ele esteja localizado neste registro, com todos os dados, para que o usuario faca o que quiser alterar, imprimir, ou...... Eu tentei usar o GotoRecord mais me enrolei todo ele ta tentando gravar novamente o mesmo registro e a tabela nao permite... que e o correto.

Criquio desculpa que só agora reparei que postei aqui e era no tópico do Agravina. Estava com pressa de sair para a reunião e tive essa falha. Desculpa.

Criquio, fiz exatamente como me orientou. Porem, ele tenta gravar como um novo registro e da duplicidade.

Se o formulario estiver vazio, ou seja, novo registro e eu fizer a pesquisa e retornar ele carrega o formulario paciente sem problemas. Porem, se eu estiver em qualquer registro, ele da erro nesta linha

Forms!Paciente!Codigo_Paciente = Me.Codigo_Paciente

Para edição, talvez foosse melhor usar um formulário desvinculado e fazer a gravação dos novos dados por RecordSet ou UPDATE em sql. Para isso, basta fazer uma cópia do formulário e desvincular form e campos. Depois inserir um botão para atualizar os dados.

Seria mais ou menos isso no clique do botão:

CurrentDb.Execute "UPDATE NomeTabela SET Campo1='" & Me.txtCampo1 & "', Campo2='" & Me.txtCampo2 & "', Campo3='" & Me.txtCampo3 & "', Campo4='" & Me.txtCampo & "' WHERE Código = " & Me!txtCódigo & ";"
MsgBox "Registro alterado com sucesso.", vbOKOnly + vbInformation, "Atualizado"

Vieira, sem problemas. Acontece

Criquio, eu entendi bem o que voce falou. Porem, eu acho que o meu caso e bem mais simples, o que eu precisava mesmo era que ao sair da pesquisa o meu formulario paciente estivesse localizado no registro que eu selecionei na pesquisa. Por que a edicao e outras coisas que faco no formulario ja estao funcionando. O meu unico problema e esse. No formulario paciente tenho um botao de pesquisa, que abre um formualrio onde pesquiso com 4 campos, ao localizar o paciente que desejo, gostaria de retornar ao formulario paciente, que ainda esta aberto, e ele estivesse com os dados do registro que selecionei. Por exemplo, quero localizar um paciente pelo CPF, clico no botao pesquisa, ele abre o formulario pesquisa, digito o CPF , verifico que aquele paciente ja esta cadastrado, saio da pesquisa e retorno para o formulario paciente, com o formulario carregado com os dados deste paciente. A partir dai, altero, imprimo, .... isto ja funciona

Amigos peco socorro. Nao consegui resolver meu problema, ja tentei e nada....

É que não entendemos muito bem ainda o que precisas. Você tem os registros e quer pesquisar se esses registros contem alguns dados?

Nao. Eu tenho uma tabela de pacientes. Tenho um formulario pacientes. Neste formulario coloquei a pesquisa que o amigo me passou e adaptei para o meu formulario. Esta pesquisa e um formulario a parte o qual eu pesquiso por 4 campos. No formulario paciente eu tenho um botao de comando que ao clicar ele abre a pesquisa.

Ao pesquisar por qualquer um dos 4 campos o usuario possa localizar o paciente (Isto ja esta pronto e perfeito)

O que eu quero, ao clicar 2 vezes sobre o nome do paciente localizdo pela pesquisa, eu retorne pro formulario paciente, que ainda se encontra aberto (nao preciso abri-lo)e o formulario paciente esteja com os dados do paciente selecionado na pesquisa. Sendo assim , o usuario pode editar, imprimir.....

Como sou novo na area. Imaginei que fosse somente localizar o registro selecionado na tabela paciente e carregar o formulario paciente, porem usei recordset e outros recursos mais nada deu certo.

Criquio, sera que consegui ser mais claro agora? Sera que tem como me ajudar?

Boa Noite. Eu consegui resolver.

Faltou o Resolvido. Eu coloco.