[Resolvido]Salvar o item selecionado na caixa listagem da pesquisa no sub form Detalhes do Pedido!!!

Boa tarde!

Olá, sou novo no fórum e no BD do ACCESS, mas diante mão quero parabenizar os idealizadores e todos participantes do fórum pelo excelente trabalho aqui realizado em poucos dias de participação conseguir resolver várias questões que tinha sem solução, porém como sempre algumas insistem em não funcionar.

1º - A caixa de texto da pesquisa está selecionando a palavra digitada enquanto o usuário executa a digitação o que está causando a sobreposição das letras/caracteres logo a caixa fica com a ultima letra digitada, como resolver isso? ex. tubo ao término da digitação fica só (O)!!!

2º - É relacionada ao titulo do tópico, como faço para que o item selecionado na caixa de listagem dessa mesma pesquisa salve o item em questão no meu subform Detalhes do Pedido?

Obs. Uso o evento double_click!!  

Uso o Office profissional plus 2013!

Desde já grato a todos que puderem ajudar!!!!

Sobre a primeira pergunta: qual são os eventos da sua caixa de texto?

Sobre a segunda pergunta:
Pode colocar, no evento de duplo clique algo semelhante ao abaixo:

Código:

forms!Formulario!SubFormulario.CampoSubformulario.value = Me.SuaCaixadeListagem.value

Olá Thiago, grato pela ajuda, porém não conseguir fazer funcionar será que pequei na escrita do código?
obs. Devo fazer uma linha de código para cada caixa a ser referenciada no subform?

Option Compare Database
Dim VarEspaço
Private Sub cxlt_pesquisarprecoestoqueprod_DblClick(Cancel As Integer)
Forms!frm_pedido!frm_detalhes_do_pedido.txt_cod.Value = Me.cxlt_pesquisarprecoestoqueprod.Value
   'DoCmd.OpenForm "frm_detalhespedido", acNormal, "", "[txtCODIGODTVENDA]=[forms]![frm_CXLTFORNECEDOR]![cxlt_pesquisarprecoestoqueprod]", , acNormal
        DoCmd.Close acForm, "frm_pesquisarprecoestoqueprod"
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
   VarEspaço = 1
End If
End Sub

Private Sub Form_Open(Cancel As Integer)
Me.txt_pesquisarprecoestoqueprod.SetFocus
End Sub

Private Sub txt_pesquisarprecoestoqueprod_Change()
If VarEspaço = 1 Then
   VarEspaço = 0
Else
  Me.Recalc
       Dim ws As Object
           Set ws = CreateObject("WScript.shell")
               ws.SendKeys "{f2}"
End If
End Sub

Está dando alguma mensagem de erro? O que não está funcionando?

Bom dia....apenas um pitaco...

1º - A caixa de texto da pesquisa está selecionando a palavra digitada enquanto o usuário executa a digitação o que está causando a sobreposição das letras/caracteres logo a caixa fica com a ultima letra digitada, como resolver isso? ex. tubo ao término da digitação fica só (O)!!!

Resp. Nos eventos Atual e ao carregar experimente o seguinte comando:

Me.KeyPreview = True

2º - É relacionada ao titulo do tópico, como faço para que o item selecionado na caixa de listagem dessa mesma pesquisa salve o item em questão no meu subform Detalhes do Pedido?

Forms!FormularioPrincipal!SubFormulario!CampoSubFormulario= Me.Sualistbox.Column(3) "Coluna da listbox em que o campo do subformulário vai receber o valor"

Olá, pessoal me perdoem minha ignorância mais não conseguir fazer funcionar.

obs. a contagem da caixa de listagem é igual a das colunas das consultas começa em zero ou é do um ?
Está mim retornando este erro "tempo de execução 2465", O sistema não localizou o campo frm_detalhesdopedido

Forms!frm_pedido!frm_detalhespedido!txtPRODUTODT =Me.cxlt_pesquisarprecoestoqueprod.Column(2)  

se contar como as consultas está na coluna (1); se não está na coluna(2)
está é a configuração das posições
1cm;10cm;2cm;2cm;2cm;2cm
cod: produto: .......etc

Grato, desde já agradecido pelas respostas e paciência de todos!!!!

Pessoal analisando aqui agora, será que por ser uma cx.combinação vinculada a tabela cadastro de produto ele esteja dando o erro, será que se eu mudar para caixa de texto ele aceite o comando, com relação ao comando para resolver a sobreposição não deu muito certo, pois os eventos que mencionou só existem no formulário é assim mesmo

Seria ( e o é ) mais fácil, postar partes do sistema aqui para lhe ajudarmos. Caso contrário ficamos apenas no " imaginário " de como seria.

Seja bem detalhista, passo a passo, quando postar o sistema para lhe ajudarmos.

Grato.

Boa noite, desculpa a demora em retornar com o banco de dados, não consigo fazer uma cópia completa do mesmo vem faltando formulários e consultas não sei qual o motivo disso, porém vai uma versão quase completa espero que possa ser suficiente para que consigamos solucionar o problema, grato a todos pela paciência e disposição em ajudar!!!

Meu problema esta igual seu qdo eu escolho algo na caixa de mensagem ele não joga o item na inclusão do formulario.

Alguem puder nos ajudar obrigado tambem ^^

Ricardo bom dia.

Que salada de frutas está o sistema.    A parte de busca já está pronta, precisei refazer praticamente tudo.

Quanto a acrescentar dados no duplo click no subformulário pedido, terá que tirar todas as combobox que lá tem na tblsubpedido. Se tiver combobox não será muito fácil popular o subformulário com dados.

Por enquanto, vai ajustando o que eu fiz, para as busca,altere os nomes conforme eu estou te passando e inclusive a consulta que gera a listbox.

Bons estudos.

Opa que bom que foi possível ser modificado, Silvio quem está aprendendo faz essas misturas louca que viu ai kkkk, ainda bem que existem os mestres para nos corrigir, fico muito grato por ter a sua ajuda, não vou puder olhar agora mais assim que chegar em casa baixo o aquivo e coloco a mão na massa.

Obs. A questão da sobreposição dos caracteres digitados na caixa de pesquisa está resolvida, porém para salvar no meu sub form dtpedido não funcionou ou eu não sei como fazer até porque não compreendi muito bem o código, pois tentei levá-lo a outras caixas de pesquisa com suas respectivas consultas e não funciona, apenas com a consulta que criou é que funciona, ficaria muito grato se pude-se explicar o principio desse código utilizado, desde já grato pela solução da sobreposição e por toda a atenção e disposição em solucionar esta questão!!!!

Olá, boa noite pessoal não dei retorno ainda devido está com problemas na minha máquina, por esse motivo não estou trabalhando na solução do problema, logo que concerte eu retorno ao tópico como resolvido!! Caso eu consiga resolver!

Olá pessoal peço desculpa ai pela demora em responder, conseguir resolver a questão da inclusão do item através da caixa de pesquisa após substituir as caixas de combinação por caixa de texto tudo funciona valeu pela dica "SILVO", além do código é claro! percebi que por ter configurado minhas tabelas estou tendo problemas para a escrita no "VBA" , pois gera conflito de comandos que foram determinados na tabela e o mesmos no "VBA" logo se quer codificar no VBA não crie regras nas suas planilhas, agora faz todo sentido as dicas incansáveis sobre não criar campos calculados nas suas tabelas e outros mais. Sei que deve existir maneiras de programação para que ambos os procedimentos coexistam sem maiores problemas mais meu conhecimento ainda não me permite essa façanha! Chega de delongas... O fato de ter criado a integridade referencial com alguns campos que tiveram que ser mudado para que funciona-se tudo me lava à perda de dados considerareis o que não posso fazer devido ao sistema já está rodando, pergunto tem como mudar as caixas de combinação por cx texto sem a quebra da integridade e que venha a funcionar? Apos testes percebi um pequeno inconveniente se alguns dos campos da caixa de pesquisa estiverem vazios o access retorna um erro, tem como solucionar isso ou tem que está todos os campos preenchidos mesmo?

OBS. Devo encerrar o tópico como solucionado? caso não possa ser respondido essas novas dúvidas no mesmo, neste caso teria que abrir um novo tópico?

Grato a todos que se dispuseram a ajudar!!!!!!

Obrigado pela ajuda de todos!!!!