[Resolvido]Caixa de Combinação com Link para formulário de pesquisa

Boa tarde,

Estou desenvolvendo um sistema contábil, na verdade já postei outras duvidas sobre este sistema aqui no fórum. Nele desenvolvi 3 formulários para o lançamento das contas. São 3 os formulários, no primeiro (frm_contas_movimento) a um sub-formulário (frm_contas_apuracao) e no sub-formulário existe uma caixa de combinação (txt_contas_apuracao_nivel5). Nesta caixa de combinação ao clicar leva a um formulário de pesquisa (frm_pesquisa_contas_apuracao) que ao escolher a conta correta preenche o campo da caixa de combinação do sub-formulário. A necessidade de desenvolvimento desta forma é que possuímos no plano de contas, contas semelhantes diferenciadas somente pela classificação do plano de contas.

O código que estou utilizando no formulário de pesquisa (frm_pesquisa_contas_apuracao), vinculado ao sub-formulário (frm_contas_apuracao):

Código:


Private Sub lst_contas_nivel5_Click()
DoCmd.OpenForm "[Forms]![frm_contas_apuracao]![txt_contas_apuracao_nivel5.Column(0)]", acNormal, "", "[tbl_contas_apuracao_nivel5]=[Forms]![frm_pesquisa_contas_apuracao]![txt_contas_apuracao_nivel5]", , acNormal
DoCmd.Close acForm, "frm_pesquisa_contas_apuracao"
End Sub



Peço a ajuda de vocês mais uma vez, a dois dias estou tentando vincular o formulário de pesquisa ao sub-formulário, para que quando selecionada a opção no formulário de pesquisa, ele atualize o sub-formulário. Abaixo link com o banco.

https://mega.co.nz/#F!LJYDXIqb!zHoSOvq_KczMRCIpc1VJPw

Grato,

Olá, às vezes com uma busca aqui no fórum tem o que pretendemos.
Veja se link abaixo ajuda:
http://www.usandoaccess.com.br/tutoriais/referenciar-formularios-e-relatorios-propriedades.asp?id=1
Abraço

Obrigado,

Mas o que eu quero não é exatamente isso. O que preciso é ao clicar na caixa de combinação, ela encontre uma caixa de listagem e ao selecionar o item na caixa de listagem, ela leve a informação para a caixa de combinação. Agradeço a ajuda de qualquer pessoa, esse projeto facilitará muitíssimo meu trabalho.


Grato,

Olá, veja se ajuda:
http://www.scriptbrasil.com.br/forum/topic/149153-resolvidorelacionar-3-combobox/
http://www.usandoaccess.com.br/dicas/dicas-praticas-de-access-parte-5.asp (dica 48)
http://www.tomasvasquez.com.br/blog/microsoft-office/vba-criando-combobox-encadeados
Abraço

Olá Darlan Sandro, como ficou a situação?
Os utilizadores do fórum merecem e agradecem o retorno.

Caso seja o caso, não se esqueça de dar o tópico como resolvido, veja link abaixo como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

Bom dia,

Desculpe-me Teixeira, mas resolvi o problema, usando o script do link abaixo (Copiar e colar no browser):

scriptbrasil.com.br/forum/topic/149153-resolvidorelacionar-3-combobox  

Consegui modifica-lo, abaixo segue o código modificado.

Código:



 If Not IsNull(Me.lst_pesquisa.Column(0)) Then
       Forms!frm_contas!contasid = Me.lst_pesquisa.Column(0)
       Forms!frm_contas!contas = Me.lst_pesquisa.Column(1)
       DoCmd.Close
    Else
       MsgBox "Não escolheu a contas na listagem.", vbCritical, ""
    End If



Olá Darlan Sandro,
Obrigado pelo retorno, os utilizadores do fórum agradecem.
Nota: Editei sua mensagem, não são permitidos links externos, deve-se retirar http(s):\\www assim já é permitido.
Abraço