[Resolvido]Usando o codigo para pesquisar num mesmo formulario

Bom dia

Eu criei esse topico com objetivo de aprender a criar um forma rapida de pesquisa.
Eu atualmente tem um banco de dados que tem cadastro de cliente, pagamentos, despesas e recibo.
Duvida: No cadastro de cliente em baixo dos campos criei uma ListBox ai quando eu salvo os dados são atualizado na hora. Mais eu que saber como que eu faço para quando eu quiser eu editar os ados do cliente clicando apena uma vex na listBox.
Sendo que usei o codigo abaixo e deu erro:
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = " Empresas"
stLinkCriteria = "[Inscrição]=" & Me![Lista2]
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, ("PesquisaCidade"), acSavePrompt

Não entendi Rogiel. Você não tem esse exemplo já consigo?

Sim, Mais o exemplo é em outro formulario ( que quando eu clico no botão editar ele abre outro formulario eu ckico no nome do cliente e aabre o cadastro de cliente com os dados cliente selecionado), ai quero que ele funcione no prorpio cadastro de cliente ( coloquei esse codigo e quando eu clico dá erro).

Rogiel faça-me um esquema, porque não estou a conseguir entender????. Se é noutro formulário, basta mudar o nome dos objectos.

De uma olhada.

Vamos ver

você quer a pesquisa pelo campo CEP, certo!

Então

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "NomeFormulário"
stLinkCriteria = "[CEP]=" & Me![NomedaLIsta]
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, ("Pesquisanome"), acSavePrompt

Olhada o erro que esta acontecendo.

Rogiel

Mande a bd em 2003 para o meu email, pois só com a bd posso corrigir esse erro.

Já enviei.

Qual é o formulário(s)?

O Cadastro de Cliente.

Rogiel

Realmente não dá para perceber, porque repare no código que você tem:


Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Cadastro de Clientes" ....Este Form já está aberto
stLinkCriteria = "[Codigo]=" & Me![Lista62]....?????????????????Mas que form abre com
lista 62????
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, (""), acSavePrompt....Que form fecha??????

Mais vamos supor que tiramos essa parte: stDocName = "Cadastro de Clientes".
Ainda continua dando erro.

tudo bem, mas você quer fazer o quê? A Lista 62 está inserida em algum form? è que com esse código você não está a chamar nada? Será que me fiz entender?

E você tente explicar-me o melhor possível o que pretende com isto?

Sabe a caixa de Listagem?
Então no formulario Cadastro de Clientes quando eu clicar num nome da caixa de listagens os dados desse cliente aparecer nos campos acima.

Amigo Rogiel

Já entendi o que você quer e não pode ser feito assim. O código que você estava a postar era para abrir um form com uma listbox e pesquisar para abrir o registo correspondente no formulário. Ora isso estava bem se a lista 62 estivesse num form externo e não está.

O que você precisa é criar uma nova lista que busque o registo no formulário assim:

http://dl.dropbox.com/u/8157744/rog2.mdb

Muito Obrigado Vieira, vc tirou mais um duvida que eu tinha, muito obrigado.

Abraço e bom trabalho Rogiel.