[Resolvido]Problema com pesquisa em sub form

num subform tem uma combo chamada códproduto a onde entro com codigo produto

num frmpesquisa tem uma cx listagem chamada ltxListaProdutos

com o seguinte codigo no evento ao clicar

Private Sub cmdCapturar_Click()
On Error Resume Next
Dim Linha As Integer
Linha = Me.ltxListaProdutos.ListIndex
If Selecionado = True Then
Forms!detalhepedido.códproduto.Value = Me.ltxListaProdutos.Column(0, Linha)
Forms!detalhepedido.Descricao.Value = Me.ltxListaProdutos.Column(1, Linha)
Forms!detalhepedido.custo.Value = Me.ltxListaProdutos.Column(2, Linha)
End If
DoCmd.Close acForm, "frmpesquisa"

End Sub

Mas não funciona por que?

Não seria melhor assim?

Forms!detalhepedido.códproduto.Value = Me.ltxListaProdutos.Column(0)
Forms!detalhepedido.códproduto.Value = Me.ltxListaProdutos.Column(1)
etc

Dê uma testada aí (testar e não meter a testa na parede )

vou tentar

tambem não deu resultado

Estranho, pois eu testei aqui com um campo no mesmo formulário e um campo em outro formulário e funfou legal:

Me.Texto2 = Me.Lista0.Column(1)
Forms!Formulário2!Texto2 = Me.Lista0.Column(1)

este campo esta no subformulario detalhepedido!tenho que referencia o subform

Não entendi bem. Qual campo está em qual subformulário que está em qual formulário mesmo?

Forms!NomeFormulário!detalhepedido.Form!códproduto.Value = Me.ltxListaProdutos.Column(0)

Parent!detalhepedido.Form!códproduto.Value = Me.ltxListaProdutos.Column(0)

Me.códproduto.Value = Forms!NomeFormulário!detalhepedido.Form!ltxListaProdutos.Column(0)

No exemplo que eu lhe enviei Agravina, no formulário Factur, mais propriamente no sub form, tem o exemplo que você quer, claro e transparente.

Se não me falha a memoria eu fiz esse modelo para o agravina e estava funcionando quando o fiz...
Algo deve ter sido modificado em um dos forms para que nao funcione ou nas tabelas do frm pesquisa.. (colunas etc.)

O frmpesquisa e uma lstBox baseada em uma tabela... ao clicar da list.. ela retorna valores ao formPrincipal... atraves daquele codigo que ele postou..
Estava funcionando perfeitamente Agravina

Se nao me engano.. e mais ou menos assim:

Private Sub ltxListaProdutos_DblClick(Cancel As Integer)
cmdCapturar_Click
End Sub

Ai este duplo click chama o evento que voce postou no código amigão...
Ve se o duplo click da lst esta ativado...

O Agravina às vezes altera , não faz cópia de segurança e depois volta com as mesmas questões. Se tiveres aí ainda o exemplo, agradeço que o envies Haryshon.

Abs

Nao o tenho mais Vieira.. mas e quase certo que ele tirou o Procedimento do Evento no Dbl_Click da lstBox...
Pois ele chama aquele codigo que ele postou...

Private Sub ltxListaProdutos_DblClick(Cancel As Integer)
cmdCapturar_Click
End Sub

Private Sub cmdCapturar_Click()
On Error Resume Next
Dim Linha As Integer
Linha = Me.ltxListaProdutos.ListIndex
If Selecionado = True Then
Forms!detalhepedido.códproduto.Value = Me.ltxListaProdutos.Column(0, Linha)
Forms!detalhepedido.Descricao.Value = Me.ltxListaProdutos.Column(1, Linha)
Forms!detalhepedido.custo.Value = Me.ltxListaProdutos.Column(2, Linha)
End If
DoCmd.Close acForm, "frmpesquisa"

End Sub

Gente neste PC não tenho o arquivo ,mas assim que chegar vou ver ,mas tenho impressão que realmente não coloquei nada no evento duplo clik da lisbox depois retorno aqui.

Caro agravina.. va se acostumando a ler os codigos e seguir os passos dele assim sempre encontrara o erro

pode se notar que aquele codigo que postou nao pertencia ao click da lst... Leia sempre o procedimento do evento.. e siga os passos do código.. assim podera achar quando existirem erros..

Ate mais

Harysohn,fiz como disse,mas ainda não acertei posso mandar para vc dar uma olhada?

Vou dar uma saida ,vou deixar o link mais tarde volto ok!

http://www.speedyshare.com/files/28824481/bd.rar

Realmente meu caro.. voce mudou algumas coisas no exemplo que te enviei...
Voce quer abrir o frmPesquisa quando?
Quando Clicar na combo no Sub Form???

Estou aguardando

Ola pode ser na combo, pode ser num botão no form como acha melhor?

Amiguinho.. Voce tem que saber o quer realmente...
Dias atras no fizemos aquela combo para preencher a linha...
Agora com isso voce muda tudo....

Afinal... Voce quer preencher o registro pela combo no Sub Form?? ou pelo FrmPesquisa...???

Pelos 2 fica dificil... Voce tem que realmente saber o que quer antes de fazer as alteracoes..

Ou de um jeito ou de outro...

Qual quer?

O Agravina não tem a experiência necessária. Faz o que tem que ser feito, ou seja o correcto.

O Agravina deve fazer uma cópia de segurança da BD para não andar sempre a perguntar a mesma coisa

Como disse meu amigo ,tem pouco experiencia , e pouco que sei apredendo aqui!

E nós encantados por ajudar, mas faça por favor uma cópia da BD. Assim, se tornara a errar, tem sempre a possibilidade de ver o que foi feito anteriormente.

Vamos la amiguinho...
Esta pronto??

gostaria de preencher pela combo do subform!

Vamos por parte Ok!
Primeiro amiguinho...
Voce esta enviando os valores para um SubForn (detalhepedido)
Entao no código voce tem que especificar todo o caminho onde esta o Sub form.. e não apena o nome do subform
Vejamos:
Voce escreveu assim:
Forms!detalhepedido.códproduto.Value = Me.ltxListaProdutos.Column(0, Linha)
Quando seria assim:
Forms!FrmCompra.detalhepedido.Form!códproduto.Value = Me.ltxListaProdutos.Column(0, Linha)
Ou seja.. voce esta falando que quer manda a informacao, para o SubForm "detalhePedido"que esta dentro do FormCompra

Bem.. Faca isso com as demais linhas.. correspondendo com a devida coluna da ltxProdutos

Outra Coisa...
Voce está selecionando uma linha... Então no módulo do form tem que ter a váriavel para essa seleção...
No seu codigo nao tem.. Entao aplique:

Option Compare Database
Dim Selecionado

Outra coisa.. Voce tem que informar que esse seleção da linha é verdadeira pois o código checa isso..
Entao.. No evento ao clicar da LtxProdutos
Adicione...
Selecionado = True 'Aqui confirma a selecão como verdadeira

Voce pode observar que no código ele checa essa informação.. Veja

Private Sub cmdCapturar_Click()
On Error Resume Next
Dim Linha As Integer
Linha = Me.ltxListaProdutos.ListIndex
If Selecionado = True Then 'Aqui ele fala que se a selecao for verdadeira.. corre o codigo
Forms!FrmCompra.detalhepedido.Form!códproduto.Value = Me.ltxListaProdutos.Column(0, Linha)
End If
DoCmd.Close acForm, "frmpesquisa"

Entao como nao tinha essa informacao.. ele ignorava a linha seguinte..

E isso..
Creio que esta bem explicado..
Aplique ai.. qualquer coisa apite..

Abraços
End Sub

Outro detalhe importante...
Mude no subform a Combo... Voce nao precisa mais delas e dos códigos que ela tem apos atualizar...
pois o frmpesquisa ja popula a linha...

Entao nessa caixa texto que vai ficar no lugar da combo.. coloque:

Private Sub códproduto_GotFocus()
DoCmd.OpenForm "FrmPesquisa"
End Sub

Assim quando voce clicar encima do campo Codproduto.. ele ja abre o frmPesquisa

na questão do modulo devo criar um modulo?

nao.. amiguinho.. quando eu flo módulo do form.. e onde estao os códigos.. no modulo..
nos eventos...
Veja la
esta explicado acima...
as alteracoes nos codigos que enviou...
Faça assim: No frmPesquisa.. apague todos os códigos e cole esses:

Option Compare Database
Dim Selecionado

Private Sub cmdCapturar_Click()
On Error Resume Next
Dim Linha As Integer
Linha = Me.ltxListaProdutos.ListIndex
If Selecionado = True Then
Forms!FrmCompra.detalhepedido.Form!códproduto.Value = Me.ltxListaProdutos.Column(0, Linha)
'*************Colque as demais linha que quer que sejam inseridas no subform
End If
DoCmd.Close acForm, "frmpesquisa"
End Sub

Private Sub ltxListaProdutos_Click()
Selecionado = True
End Sub
Private Sub ltxListaProdutos_DblClick(Cancel As Integer)
cmdCapturar_Click
End Sub


NO subForm detalhepedido:

Option Compare Database
Private Sub Comando29_Click()
DoCmd.GoToRecord , , acNewRec
End Sub

Private Sub códproduto_GotFocus()
DoCmd.OpenForm "FrmPesquisa"
End Sub
Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub
Private Sub quant_AfterUpdate()
Me.subtotal = quant * Me.custo
End Sub

No FrmCompra..
Clique na Combox...e de um click no botao direito do mouse.. No menu qua vai aparecer va em:

Alterar.. e altere para:
Caixa de texto

Abraços

veja o código aqui não esta funcionando

Option Compare Database

Private Sub cmdCapturar_Click()

On Error Resume Next
Dim Linha As Integer
Linha = Me.ltxListaProdutos.ListIndex
If selecionado = True Then
Forms!FrmCompra.detalhepedido.Form!códproduto.Value = Me.ltxListaProdutos.Column(0, Linha)
Forms!FrmCompra.detalhepedido.Form!descrição.Value = Me.ltxListaProdutos.Column(1, Linha)
Forms!FrmCompra.detalhepedido.Form!custo.Value = Me.ltxListaProdutos.Column(2, Linha)
End If
DoCmd.Close acForm, "frmpesquisa"

End Sub

Private Sub ltxListaProdutos_DblClick(Cancel As Integer)
selecionado = True 'Aqui confirma a selecão como verdadeira
End Sub

agravina..
Eu te passei todos os códigos ai acima..

Cole-os como estao ai...

Abraços

Option Compare Database
Dim Selecionado 'Voce se esqueceu dessa linha

Private Sub cmdCapturar_Click()

On Error Resume Next
Dim Linha As Integer
Linha = Me.ltxListaProdutos.ListIndex
If selecionado = True Then
Forms!FrmCompra.detalhepedido.Form!códproduto.Value = Me.ltxListaProdutos.Column(0, Linha)
Forms!FrmCompra.detalhepedido.Form!descrição.Value = Me.ltxListaProdutos.Column(1, Linha)
Forms!FrmCompra.detalhepedido.Form!custo.Value = Me.ltxListaProdutos.Column(2, Linha)
End If
DoCmd.Close acForm, "frmpesquisa"

End Sub

Private Sub ltxListaProdutos_DblClick(Cancel As Integer)
selecionado = True 'Aqui confirma a selecão como verdadeira
End Sub

Harisohn ,corrigi e funcionou, surgiu mais uma duvida ,notei que o campo codproduto ao receber foco abre formpesquisa certo
mas e se eu souber o codigo e quizer digitar? então deixei o campo como combo e retirei o evento ao receber foco e coloquei um botão para abrir o frmpesquisa ,mas o problema é que ao digitar direto o codigo a combo só retorna o codproduto e sua descrição os demais campos não por que?

Agravina.. eu apaguei os códigos antigos que tinham na sua combo.. no evento afterUpdate da combo...

Mas eu vou adiantar.. vai encontrar um problema ai...
se colocar o botao pesquisar.. nao sei se o frm pesquisa vai enteder qual a linha que quer adicionar o registro entendeu...
Com o clique fica facil.. ele adiciona na linha que clica...
ma e se tiver mais de uma linha.. Como o form pesquisa vai identificar qual a linha...

Entendeu?

Agravina..
Esses sao os códigos da combo

Private Sub códproduto_AfterUpdate()
Me.descrição = Me.códproduto.Column(1)
Me.embalagem = Me.códproduto.Column(2)
Me.custo = Me.códproduto.Column(3)
Me.custounitario = Me.códproduto.Column(5)
End Sub


Amiguinho quando algo nao da certo.. voce tem que tentar encontrar o que falta...
Como eu pensei que voce so iria usar o frm pesquisa.. no códido que coloquei ai.. apaguei esses..

Abraços

na verdade pensei assim nõa sei se é possivel

codproduto se eu souber digito direto o codigo na combo que popula os dados ,mas nao sei o codigo ai abro formpesquisa e capturo codigo é possivel isso?

coloque no evento da combo


Private Sub códproduto_AfterUpdate()
Me.descrição = Me.códproduto.Column(1)
Me.embalagem = Me.códproduto.Column(2)
Me.custo = Me.códproduto.Column(3)
Me.custounitario = Me.códproduto.Column(5)
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
End Sub

Essas duas linha em vermerlho, depois que a combo preenche a linha, vai salvar o registro e passar para a próxima linha...
Porque isso?
porque se voce colocar um código pela combo e depois clicar no bt do frmpesquisa.. ele vai substituir os codigos digitados na combo
Entendeu..
Entao com essas duas linhas nao tera este problema...

Faça isso

Mais um detalhe.. va no seu subform..
em propriedade e ative..
Barras de rolagem: Somente vertica...

senão.. nao irá conseguir iserir muitas linha na venda..

Abraços

E de retorno..

Aqui ta dando tudo certo
Clicando na Combo
Digitando na Combo
e pelo frmpesquisa

E ajuste o seu frmPesquisa... ele esta horrivel... aumente o espaco da coluna onde vai a descricao dos produtos..
Desative o contador de registros e o seletor de registros do lado...

Saudações

Pronto Haryshn ,funcionou muito obrigado pela sua atenção ,valeu !

O Fórum agradece o retorno...
Boa noite

Alterei o título para que fique mais compreensível em termos de busca.

Pessoal por que no frmpesquisa, o campo destinado ao nome fornecedor apareçe o numero ao enves do nome?

É simples Agravina...

Voce mexe demais em seu banco... muda tudo..
nao guarda um backup
Se importa apenas com a estetica...

Como quer que aparece o nome do fornecedor... se nao tem nenhuma tabela relacionada??????
Voce fica mudando.. apagando campos, renomeando, copiando tabelas e colando..
e se esquece do Fundalmental... os relacionamentos...Mas nao basta que façamos voce tem que ir treinando

Veja ai.. abra o frm pesquisa e veja se apareceu o nome dos fornecedores..

https://www.dropbox.com/home/Public?select=Agravina.rar

E depois veja o relacionamento

Harysohn,não consigo baixar o arquivo acima o dropox pede login

Colocaste mal na Drop, colocas-te na Public e não na partilhada. Eu vou ver isso.

Não consigo identificar pois tem vários Agravina, mas nenhum do mês 06. Verifica isso haryshon

Devo ter excluido enquanto estava organizando o Drop..

Segue link

http://dl.dropbox.com/u/26441349/bd.rar

Saudações

harysohn tem como atualizar o link acima da erro

http://dl.dropbox.com/u/26441349/Agravina.rar

Estude bem

Bom trabalho