[Resolvido]Formulário buscar dados em outra tabela

Boa tarde a todos

Gostaria novamente de uma ajuda, seria o seguinte.

No meu form. caixa, dar dois clique no campo SaidaValorVenda e buscar em outra tabela os valores de dois campos VlrCusto e a descrição do produto, que abra um form. com os dois valores (descrição do produto e o VlrCusto).



Sou grato pela atenção de todos.

Boa tarde Naldo

Pode-me explicar um pouco melhor? São duas tabelas diferentes? Estão ligadas entre si? Dê detalhes

Naldo pelo que entendi voce tem esses dois valores Vlr Custo e Descricao em outro Form certo?
Bem... Voce tem alguma ID nessa linha onde quer fazer o click para abrir o form que ira fazer a pesquisa, filtrado?

porque seria assim
Clique no Campo.... Pega a ID dessa linha e abre o form que vai pesquisar o produto...
O Form abrira filtrado com o produto para o qual quer fazer a pesquisa.. e no evento ao fechar deste form..
Forms!NomedoFormCaixa.SaidaValorVenda.Value = NomeDoCampoNoFormdePesquisa.Value

Se a linha da caixa SaidaValorVenda estiver em um subform:

Forms!NomedoFormCaixa.NomeSubForm.Form!SaidaValorVenda.Value = NomeDoCampoNoFormdePesquisa.Value

Vou explicar melhor



Tenho a tabela EntradaDetalhe, ao atualizar a mesma o valor do campo ProdutoVVenda é inserido em um Formulário Produtos no campo ProdutoVCusto através de uma consulta AtualizacaoEntradas, até ai tudo certinho.



O que eu gostaria de realizar é o seguinte

Tenho um formulário de nome caixa que realizo as saída dos produtos, neste mesmo formulário(Caixa) tenho o campo de nome SaidaValorVenda, gostaria de dar dois chiques no campo(SaidaValorVenda) , e abrir um novo forme que eu criei com o nome de CltValorDeCusto e com os capo EntradaProduto que é o id, ProdutoDescricao que é descrição do produto, ValorCompra que é o valor do produto compra(Custo) apareça em ao abrir o formulário CltValorDeCusto em um PopUp .



Espero ter conseguido passar o que eu preciso.



Sou muito grato pela atenção Vieira e Harysohn

Seria algo assim?

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "nomedoform"

stLinkCriteria = "[NomeCampo]=" & "'" & Me![NomeCampo] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Se vai levar os valores para o form que vai abrir.. creio que seria como o viera falou..
se os valores retornarao do form... poderia usar o exemplo do vieira para abrir o form...
e o codigo que esta la acima para retornar os valores..
Forms!NomedoForm.... etc

Boa noite
O formulário abre e exibe valores , mas não filtra o valor que esta no campo ao envento dbl click, o que poderia ser?

teria que ver amigo..
como e esse relacionamento
se o form que abre e ligado a tabela desse form do click..

Poderia colocar seu BD que olhamos.. ou envie Harysohn@hotmail.com

Saudações

Testou a dica do Vieria?

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "nomedoform"

stLinkCriteria = "[NomeCampo]=" & "'" & Me![NomeCampo] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Ok enviado par seu e-mail

Da erro, não acha o campo
stLinkCriteria = "[EntradaValorCompra]=" & "'" & Me![EntradaValorCompra] & "'"
não acha o valor
Private Sub SaidaValorVenda_DblClick(Cancel As Integer)
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ValorDeCusto"
stLinkCriteria = "[EntradaValorCompra]=" & "'" & Me![EntradaValorCompra] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

Naldo.. voce so me mandou o aplicativo.. o Back End onde fica as tabelas nao estao aqui.. assim nao da pra ver nada

Enviei novo e-mail

Vamos la Naldo....
Inseri este código no Dbl_Click do campo Valor Unitário
'***********************ESTA É A SOLUÇAO****************************************
On Error GoTo ERRO
Dim filtro As String
Dim msg
filtro = "[ProdutoCodigo] = " & Str(Me.CodProd)
If Not IsNull(Me.ProdutoDescricao) Then
msg = MsgBox("AQUI PODE COLOCAR SUA MENSAGEM, CASO NAO QUEIRA APAGE ESTA LINHA E O DIM msg la acima", vbOKOnly + vbCritical, "AVISO")
DoCmd.OpenForm "ValorDeCusto", acViewNormal, , filtro, , acDialog
Else
msg = MsgBox("Selcione o Produto !!!", vbOKOnly + vbCritical, "ATENÇÃO")
Exit_ERRO:
Exit Sub
ERRO:
msg = MsgBox("Verifique se foi adicionado um registro na Venda !!!", vbOKOnly + vbCritical, "ERRO")
Resume Exit_ERRO
End If
'******************************************************************************************************

Para isso:

Inseri na consulta do Form ValorDeCusto'(CltValorDeCusto) o campo: ProdutoCodigo , porque o filtro tem que ter como identificar o produto que esta sendo pesquisado, observe a linha para isso na solucao la acima
filtro = "]ProdutoCodigo] = " & Str(Me.CodProd)

No Form frmgradecaixarapido, coloquei uma caixa texto (CodProd), acoplada ao campo CodigoProduto, que é utilizada na comparacao acima
No Form ValorDeCusto uma Caixa texto acoplada ao CodigoProduto

Ha algumas mensagens que pode alterar a seu gosto...

Segue o link, não utilize este exemplo como o seu aplicativo, pois retirei referencias e desabilitei alguns codigos para que eu pudesse testar aqui
****Use apenas a Solução
http://dl.dropbox.com/u/26441349/Naldo.rar
Bom trabalho

Não esquecer o Resolvido

OFórum agradece o retorno..

Saudações

Sera que me podes ajudar? Estu com um problema semelhante.

Fala amigão qual o seu problema?

Boa tarde,

sou novato e tenho pouco conhecimento no access, esse site tem me ajudado muito.

Bom, tenho duas tabelas, uma chamada estoque (onde ficaram gravados os lançamentos) e outra chamada TblCadProd (onde está cadastrado os produtos), tenho um form onde faço os lançamentos de entrada e saída de produtos, esses lançamentos ficam gravados na tabela estoque.

Cada produto tem um codigo, esse codigo é utilizado nas duas tabelas.

Tenho um botão que abre um relatório baseado na consulta de um codigo do produto lançado (que está lançado na tabela estoque).

O meu problema começa aqui, eu preciso de um codigo vba/sql (ou instrução rsrs) que faça a mesma consulta, porém se não tiver lançamento (no caso na tabela estoque), abra o relatorio apenas com os dados do mesmo produto (codigo) que constam na TblCadProd, alguém poderia me ajudar?


Ricardo