Este fórum está sendo desativado

[AMORIM123]

Olá galera!
Meu nome é Rafael ...mais um novato aqui do forúm e de vba...
Me cadastrei no fórum com objetivo de conseguir ajuda..portanto quem estiver disponível e puder ajudar..já sou muito grato!


Estou tentando programar um “duplo click” na tela de pesquisa do meu formulário, cujos dados após a pesquisa, no meu banco de dados access, lista todas as informações no meu listbox (Name: lista_empresas).

Meu loop de pesquisa tá rodando legal, todas as informações conforme o filtro estão sendo exibidas no meu listbox, porém o problema está ocorrendo no duplo click, pois quando clico em uma das linhas das informações que constam no meu listbox, elas não preenchem no meu formulário com as instruções dadas de preenchimento e nem mesmo pede pra depurar nem dar erro nem nada...não sei o que fazer..quem puder ajudar..muito obg!!

Em anexo consta o projeto para realização de testes!



1 – Código de Pesquisa + sua respectiva conexão

1.1 - Código de Pesquisa
Private Sub btn_pesquisar_Click()
With conectar
If Me.txt_buscar.Text = "" Then
.listartabela ("SELECT * FROM BD_DOSSIE")
Else
.listartabela ("SELECT * FROM BD_DOSSIE WHERE RAZAO LIKE '%" & Me.txt_buscar.Text & "%'")
End If
Me.lista_empresas.Clear
Do While Not .rs.EOF()
Me.lista_empresas.AddItem .rs("RAZAO")
Me.lista_empresas.List(Me.lista_empresas.ListCount - 1, 1) = .rs("NOME")
Me.lista_empresas.List(Me.lista_empresas.ListCount - 1, 2) = .rs("CNPJ")
.rs.MoveNext
Loop
End With
End Sub
1.2 - conexão
Function listartabela(consultasql As String)
Set rs = New ADODB.Recordset
conectar.conexao
rs.Open consultasql, conectar.cn
End Function


2 – Código do duplo Click + sua respectiva conexão

2.1 – Código do Duplo click
Private Sub btn_pesquisar_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

With conectar
.buscar ("BD_DOSSIE")
.rs.Find "RAZAO ='" & Trim(Me.lista_empresas.Column(0)) & "'"

Me.txt_razao_social.Text = .rs.Fields("RAZAO")
Me.txt_nome_fantasia.Text = .rs.Fields("NOME")
Me.txt_cnpj.Text = .rs.Fields("CNPJ")
Me.txt_ie.Text = .rs.Fields("IE")
Me.txt_im.Text = .rs.Fields("IM")
Me.txt_cnae.Text = .rs.Fields("CNAEPRINCIPAL")
Me.txt_contato1.Text = .rs.Fields("TELI")
Me.txt_contato2.Text = .rs.Fields("TELII")
Me.txt_contato3.Text = .rs.Fields("TELIII")
Me.txt_email.Text = .rs.Fields("EMAIL")

Me.txt_tip_ap_mensal.Text = .rs.Fields("TIPODEAP_MENSAL")
Me.txt_pis.Text = .rs.Fields("ALIQUOTAPIS")
Me.txt_cofins.Text = .rs.Fields("ALIQUOTACOFINS")
Me.txt_ipi.Text = .rs.Fields("ALIQUOTAIPI")
Me.txt_cons_mensal.Text = .rs.Fields("CONSIDERACOES")

Me.txt_tip_ap_tri.Text = .rs.Fields("TIPODEAP_TRIMESTRAL")
Me.txt_pres_irpj.Text = .rs.Fields("PRESUNCAOIRPJ")
Me.txt_pres_csll.Text = .rs.Fields("PRESUNCAOCSLL")
Me.txt_ali_irpj.Text = .rs.Fields("ALIQUOTAIRPJ")
Me.txt_ali_csll.Text = .rs.Fields("ALIQUOTACSLL")
Me.txt_cons_tri.Text = .rs.Fields("CONSIDERACOESI")

Me.txt_cnpj_simples.Text = .rs.Fields("CNPJ_SIMPLES")
Me.txt_cpf_simples.Text = .rs.Fields("CPF_SIMPLES")
Me.txt_cod_simples.Text = .rs.Fields("COD_ACESSO")
Me.txt_cnae1.Text = .rs.Fields("CNAEI")
Me.txt_anexo1.Text = .rs.Fields("ANEXOI")
Me.txt_cnae2.Text = .rs.Fields("CNAEII")
Me.txt_anexo2.Text = .rs.Fields("ANEXOII")
Me.txt_cnae3.Text = .rs.Fields("CNAEIII")
Me.txt_anexo3.Text = .rs.Fields("ANEXOIII")
Me.txt_cnae4.Text = .rs.Fields("CNAEIV")
Me.txt_anexo4.Text = .rs.Fields("ANEXOIV")
Me.txt_cnae5.Text = .rs.Fields("CNAEV")
Me.txt_anexo5.Text = .rs.Fields("ANEXOV")
Me.txt_cnae6.Text = .rs.Fields("CNAEVI")
Me.txt_anexo6.Text = .rs.Fields("ANEXOVI")
Me.txt_cons_simples.Text = .rs.Fields("CONSIDERACOESII")

Me.opt_sim.Value = .rs.Fields("CREDENCIAMENTO")
Me.opt_nao.Value = .rs.Fields("CREDENCIAMENTO")
Me.txt_cons_sefaz.Text = .rs.Fields("CONSIDERACOESIII")

Me.txt_prefeitura.Text = .rs.Fields("PREFEITURA")
Me.txt_login.Text = .rs.Fields("LOGIN")
Me.txt_senha.Text = .rs.Fields("SENHA")
Me.txt_cons_sefin.Text = .rs.Fields("CONSIDERACOESIV")

Me.btn_editar.Enabled = True
Me.btn_excluir.Enabled = True
Me.btn_salvar.Enabled = False

Me.MultiPage1.Value = 0

End With
End Sub

2.2 – Conexão
Function buscar(tabela As String)
Set rs = New ADODB.Recordset
conectar.conexao
rs.Open tabela, conectar.cn, adOpenKeyset, adLockOptimistic, adCmdTable
If rs.EOF Or rs.BOF Then Exit Function
End Function

[babdallas]

O evento doubleclick estava no botão pesquisar e não na listbox. Veja se isso resolve.

[AMORIM123]

tava aqui revisando o código e realmente vacilei neste momento!
muito obrigado meu amigo baddallas!