Relatório do access usando postgres

olá pessoal!


eu ja pesquisei até na deep web atras disso e não achei nada pra me ajudar além de links expirados, códigos que não funcionam e alguns virus em busca.

Se não me engano o próprio JPaulo postou algo do tipo, mas os links estão expirados, já usei a solução da propria microsoft, deu certo pra realizar a conexão e linkar o driver com o provider.

mas pra realizar consulta e inserts e tudo mais nunca dá certo.

Se eu postar o código ajuda?
Agradeço!

A final qual é a duvida?
E a mesma do outro post?
Se é para exportar de access para documento word ve

https://www.maximoaccess.com/t33953-resolvidoaccess-para-word-em-pasta-especifica

então preciso pelomenos listar os dados de um banco de dados postgres usando o access.

vc colocou esse link e lá tinha uma dúvida minha tb.

que tipo de biblioteca eu uso para o access aceitar o ( . ) como neste seu código na variável with:

Código:

Private Sub Comando906_Click()
Dim wdApl As Object
Set wdApl = CreateObject("Word.Application")
wdApl.Documents.Open FileName:=CurrentProject.Path & "\FormuláriosAuto\Despacho.doc"
With wdApl
.ActiveDocument.Bookmarks("Texto2").Select: .Selection.text = Nz(Forms![Termo recebimento inq].Rótulo615) 'Processo
.ActiveDocument.Bookmarks("Texto3").Select: .Selection.text = Nz(Forms![Termo recebimento inq].Texto741 & " " & Forms![Termo recebimento inq].Texto743 & " " & Forms![Termo recebimento inq].Texto744) 'Processo
.ActiveDocument.Bookmarks("Texto9").Select: .Selection.text = Nz(Forms![Termo recebimento inq].Texto741 & " " & Forms![Termo recebimento inq].Texto743 & " " & Forms![Termo recebimento inq].Texto744) 'Processo
.ActiveDocument.Bookmarks("Texto6").Select: .Selection.text = Nz(Forms![Termo recebimento inq].[Caixa de combinação305])
.ActiveDocument.Bookmarks("Texto10").Select: .Selection.text = Nz(Forms![Termo recebimento inq].[Caixa de combinação304])
.ActiveDocument.Bookmarks("Texto5").Select: .Selection.text = Nz(Forms![Termo recebimento inq].[Caixa de combinação669])
.ActiveDocument.Bookmarks("Texto13").Select: .Selection.text = Nz(Forms![Termo recebimento inq].[Caixa de combinação665])
.ActiveDocument.Bookmarks("Texto8").Select: .Selection.text = Nz(Forms![Termo recebimento inq].[Texto18])
.ActiveDocument.Bookmarks("Texto4").Select: .Selection.text = Nz(Forms![Termo recebimento inq].[CP])
.ActiveDocument.Bookmarks("Texto11").Select: .Selection.text = Nz(Forms![Termo recebimento inq].[postocp])
.ActiveDocument.Bookmarks("Texto12").Select: .Selection.text = Nz(Forms![Termo recebimento inq].[CaixaCombinação907])
.ActiveDocument.SaveAs CurrentProject.Path & "\Inquéritos\" & Nz(Replace(Me!Rótulo615, "/", "_")) & " - Distribuição" & ".doc"
.ActiveDocument.Close
.Quit
End With
Set wdApl = Nothing
MsgBox "''Distribuição'' gerado em Word com sucesso na pasta ''Inquéritos''.", vbInformation, "Aviso"
Me.Comando909.Visible = True
End Sub

Lembrando que a dúvida em relação ao postgres é a fundamental, mas por favor,ja tentei e não consigo atribuir somente (.) pra concatenar métodos "
.ActiveDocument.Bookmarks
.ActiveDocument.SaveAs
.ActiveDocument.Close