[Resolvido]Após Pesquisar, retornar em formulário

Bom dia Amigos desse forum,

Com a dificuldade do dia a dia, estou tendo a necessidade de alterar a forma de como pesquiso as informações, pois sabemos que o tempo é precioso e dependendo do recurso que temos, ajuda muito no resultado final.

Por isso, estou precisando que ao pesquisar um local, no formulário Pesq_Local, me retorne dentro dentro do formulário entrega as duas informações de nome e quantidade, iniciando o registro.

E dando continuidade ao registro , quando pesquisar no formulário Pesq_Produto, inicie a inclusão dos produtos, onde nesta operação o sistema irá incluir vários produtos após a pesquisa desejada dentro do form Detalhe_entrega.

Colegas ficarei muito grato pela ajuda, pois estarei aplicando isso no aplicativo que uso em meu local de trabalho.

Por isso segue exemplo simples.


Campos.

Bom dia...

Veja se é isto que estas a necessitar.

Bons estudos

Bom dia Silvio,

Faz algum tempo que não falamos em,

Olha, é isso mesmo que preciso, vou adaptá-lo em meu aplicativo, aí é só trabalhar...

Fico muito grato por sua disponibilidade,

Um forte abraço, força e saúde, pra ti.

Campos.

Bom dia....

Fica atento as mudanças que eu fiz.

Abraços, o fórum agradece o retorno !

Bom dia Silvio

Estou usando o exemplo que você postou e estou tendo um pequeno problema

Abro o Forms de Pesquisa e Na caixa de Listagem aparece meus clientes por nome, mas assim que começo a digitar na textobox o nome do cliente a caixa de listagem começa a mostrar apenas os cpf dos clientes. clicar duas vezes sobre o cpf ele retorna para meu form principal com o nome do cliente.

O que eu fiz de errado? já bati cabeça aqui e não achei o erro

Bom dia Leandro....

Poste parte dele aqui para analisarmos..


Abraços

Bom dia Silvio

Os eventos que estão no meu Forms de pesquisa estão abaixo, acredito que o erro esteja no evento Alterar do TxtNome, mas não consigo identificar o erro.

Private Sub LstNome_DblClick(Cancel As Integer)
Forms!FPedidos!NomeCliente = Me.LstNome.Column(0)
DoCmd.Close acForm, "FPesqNome", acSavePrompt
End Sub

Private Sub TxtNome_Change()
Dim C As String, X As String

X = Me.TxtNome.Text

C = " where NomeCliente like '*" & X & "*' ORDER BY NomeCliente"

Me.LstNome.RowSource = " select * from Clientes" & C
End Sub

Private Sub TxtNome_GotFocus()
On Error Resume Next
TxtNome.SelStart = 0
TxtNome.SelLength = Len(TxtNome.Text)
End Sub

Private Sub TxtNome_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode >= 190 And KeyCode <= 191 And KeyCode <= 193 And KeyCode <= 220 Then
KeyCode = 0
Else
Exit Sub
End If
End Sub

Não sei se interfere em algo, mas os campos da minha tabela cliente na ordem são
Codigo
Cpf
NomeCliente

Agradeço a ajuda.

Bom dia...

Na sua Me.LstNome, deverá conter os 3 campos
Codigo
Cpf
NomeCliente

Sendo que nas propriedades da lstnome, aba formato / largura de colunas.... deverá estar assim:

para mostrar apenas o nome na lista: 0cm;0cm;4cm

Outra coisa que pode ser....
Forms!FPedidos!NomeCliente = Me.LstNome.Column(0)
em destaque vermelho, note que você posicionou a coluna zero (0) para referencia. Provavelmente essa coluna deve ser a do código.
Veja na consulta que gera lista onde está posicionado o nome do cliente...e corrija. Provavelmente, deve estar na coluna 2

codigo coluna zero
cpf coluna um
nome coluna dois

Bons estudos a ti.

Silvio

Bom dia Silvio


realmente a questão de colunas na lista resolveu o meu meu problema. porém agora quando entro na tela de pesquisa a lista aparece vazia, ela apenas me traz os nomes quando eu começo a digitar na caixa de texto.

Poste o projeto aqui para eu dar uma olhada nele.

segue o projeto

o problema esta no frmpedido ao tentar localizar os clientes

a tela de pesquisa é assim mesmo, ela vai filtrando a medida que se vai digitando.

Porém você cometeu um erro aqui.

Vai no frmpesqnome em modo desing.
Clica na sua lstnome.
Vai na folha de propriedades da mesma.
Aba Formato
número de colunas= 2
Largura de colunas ( aqui que você errou ) deixa em : 0cm;4cm

Fique atento....

Abraços

Ok Muito obrigado