preciso de ajuda com esse codigo vba excel para buscar dados do no Access
esta dando( erro de tempo de execução '13')
(tipos incopativeis)
nessa parte do codigo: Set consulta = banco.OpenRecordset(comandoSQL)
vou disponabilisar o codigo toda tauvez alguem acha o erro
lembrado( cad_bd.mdb) e o meu banco de dados access
Private Sub btfiltrar_Click()
Dim data_ini As Date
Dim data_fin As Date
dim banco As Database
dim consulta As Recordset
Set banco = OpenDatabase(ActiveWorkbook.Path & "\cad_bd.mdb")
data_ini = Format(Me.txt_data_inicial, "mm/dd/yyyy")
data_fin = Format(Me.txt_data_final, "mm/dd/yyyy")
If Me.txt_data_final = "" Or Me.txt_data_inicial = "" Then
MsgBox "selecione duas datas para aplicar filtro", vbInformation
Exit Sub
End If
Dim comandoSQL As String
comandoSQL = "select Cadastro from tabela_clientes where Cadastro Between #" & data_ini & "# And #" & data_fin & "#"
Set banco = OpenDatabase(ActiveWorkbook.Path & "\cad_bd.mdb")
'aqui que o aparece o erro
Set consulta = banco.OpenRecordset(comandoSQL)
ListView1.ListItems.Clear
While Not consulta.EOF
Set List = ListView1.ListItems.Add(text:=consulta(0))
List.SubItems(1) = consulta(1)
List.SubItems(2) = consulta(2)
List.SubItems(3) = consulta(3)
List.SubItems(4) = consulta(7)
List.SubItems(5) = consulta(8)
List.SubItems(6) = consulta(9)
List.SubItems(7) = consulta(10)
List.SubItems(8) = consulta(11)
List.SubItems(9) = consulta(12)
consulta.MoveNext
Wend
'Me.lbl_registros = ListView1.ListItems.Count
Set banco = Nothing
Set consulta = Nothing
End Sub
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
preciso de ajuda com esse codigo vba excel para buscar dados do no Access
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Seg Ago 03, 2020 10:20 pm
-
- Manda bem
- Mensagens: 107
- Registrado em: Qua Nov 29, 2017 11:51 am
- Localização: Fortaleza - CE
Re: preciso de ajuda com esse codigo vba excel para buscar dados do no Access
Fernando,
Bom dia!
Sem seu arquivos fica muito complexo ajudar. Tenta alterar as linhas abaixo para ver se dá certo:
Para:
Bom dia!
Sem seu arquivos fica muito complexo ajudar. Tenta alterar as linhas abaixo para ver se dá certo:
Código: Selecionar todos
data_ini = Format(Me.txt_data_inicial, "mm/dd/yyyy")
data_fin = Format(Me.txt_data_final, "mm/dd/yyyy")
Código: Selecionar todos
data_ini = CDate(Me.txt_data_inicial)
data_fin = CDate(Me.txt_data_final)
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: preciso de ajuda com esse codigo vba excel para buscar dados do no Access
Como estádefinido o campo Cadastro no Access