Bom dia a todos!
Estou a mais de 2 semanas tentando achar uma solução para PESQUISA utilizando USERFORM, segue a descrição:
Eu adaptei os "USERFORM" de cadastro do Tomás Vásquez para minhas necessidades, ficou "show de bola", mas não consigo adaptar OS "USERFORM" de pesquisa utilizando o listbox ou listview.
segue o link do google drive com a planilha:
https://drive.google.com/file/d/0B8vdxq ... sp=sharing
Eu tentei usar o seguinte arquivo do Tomás Vásquez para pesquisa, mas não obtive sucesso:
http://www.tomasvasquez.com.br/blog/mic ... sa-parte-2
Descrição do que desejo:
Gostaria que retornasse ao listbox ou listview somente as colunas "B" (Nome/Razão Social) e "L" (Término do Enunciado 22/PGE), mas só retorne as linhas que tenham "Sim" na coluna "K" (Enunciado 22/PGE), ou seja, eu quero que aparece no listbox ou listview somente as coluna "B" e "L" e o filtro seria se fosse o valor fosse "Sim" na coluna "K".
Desde já agradecio!
André Rodrigues
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Ajuda com PESQUISA utilizando USERFORM
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Ter Ago 05, 2014 10:02 am
Re: Ajuda com PESQUISA utilizando USERFORM
Estou com dificuldades com este user form de PESQUISA Também
No meu caso, o micro que pretendo utilizar possui o office 2010 64bits instalado sem possibilidade de instalar outro,
Quando clico no botão de pesquisa e le retorna a msg
Erro em tempo de execução '3706':
Provedor não encontrado. É possível que ele não esteja instalado corretamente.
Estive analisando o código e vi que o problema ocorre quando ele rodar a sub "PopularCidades()"
acho que o provedor "Microsoft.JET.OLEDB.4.0" (a qual acho que só funciona no office 32bits) não estão instalado na minha máquina
e a outra que funciona no 64bits (“Microsoft.ACE.OLEDB.12.0”) se não me engano, não tenho permissão de instalar por restrições do servidor,
isto é, não tenho permissão para instalar.
Tem como fazer o mesmo procedimento utilizando outro procedimento. o atual é este:
Private Sub PopulaCidades()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As String
Set conn = New ADODB.Connection
With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.ConnectionString = "Data Source=" & caminhoArquivoDados & ";Extended Properties=Excel 8.0;"
.Open
End With
sql = "SELECT DISTINCT Cidade FROM [Fornecedores$]"
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = conn
.Open sql, conn, adOpenDynamic, _
adLockBatchOptimistic
End With
Do While Not rst.EOF
If Not IsNull(rst(0).Value) Then
lstCidades.AddItem rst(0).Value
End If
rst.MoveNext
Loop
' Fecha o conjunto de registros.
Set rst = Nothing
' Fecha a conexão.
conn.Close
End Sub
Desde já agradeço.
No meu caso, o micro que pretendo utilizar possui o office 2010 64bits instalado sem possibilidade de instalar outro,
Quando clico no botão de pesquisa e le retorna a msg
Erro em tempo de execução '3706':
Provedor não encontrado. É possível que ele não esteja instalado corretamente.
Estive analisando o código e vi que o problema ocorre quando ele rodar a sub "PopularCidades()"
acho que o provedor "Microsoft.JET.OLEDB.4.0" (a qual acho que só funciona no office 32bits) não estão instalado na minha máquina
e a outra que funciona no 64bits (“Microsoft.ACE.OLEDB.12.0”) se não me engano, não tenho permissão de instalar por restrições do servidor,
isto é, não tenho permissão para instalar.
Tem como fazer o mesmo procedimento utilizando outro procedimento. o atual é este:
Private Sub PopulaCidades()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As String
Set conn = New ADODB.Connection
With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.ConnectionString = "Data Source=" & caminhoArquivoDados & ";Extended Properties=Excel 8.0;"
.Open
End With
sql = "SELECT DISTINCT Cidade FROM [Fornecedores$]"
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = conn
.Open sql, conn, adOpenDynamic, _
adLockBatchOptimistic
End With
Do While Not rst.EOF
If Not IsNull(rst(0).Value) Then
lstCidades.AddItem rst(0).Value
End If
rst.MoveNext
Loop
' Fecha o conjunto de registros.
Set rst = Nothing
' Fecha a conexão.
conn.Close
End Sub
Desde já agradeço.