Registros contendo cada um a última data de movimentação

Boa tarde pessoal,

Tenho um banco de dados Access 2010, com duas tabelas vinculadas, no qual, cada registro tem várias movimentações (um para muitos).

No entanto, preciso montar uma consulta para exportar para Excel, na qual tenha todos os registros e a data da última movimentação de cada um destes registros.

Como fazer esta consulta?

BOa noite
https://www.maximoaccess.com/t36323p9-resolvidoapos-filtrar-enviar-resultado-para-planilha-excel#248431

Obrigado Crysostomo,

Está dando alguns erros de depuração, mas vou tentar resolver.

No entanto, ainda não consegui gerar a consulta/relatório apenas com a data da última movimentação de cada registro.

Se puder ajudar, agradeço.

Bom dia pessoal...

Uma das dúvidas que tinha, no sentido de exportar o arquivo para excel, consegui através do código abaixo:

Private Sub Comando266_Click()

Dim objExcel As Object
Dim strPlanilha As String

On Error GoTo Fim

   Msg = "Deseja Exportar dados para Excel?"
   If MsgBox(Msg, vbQuestion + vbYesNo, "Confirme") = vbYes Then
   
     
       'Indica o local e o nome do arquivo exportado
       strPlanilha = CurrentProject.Path & "\Relatório de Atividades" & "_" & Format(Date, "dd-mm-yy") & " " & Format(Now, "hhmmss") & ".xls"
       'strPlanilha = "C:\SistemaImobiliaria\Exportados\" & "Relatório_de_Clientes" & "_" & Format(Date, "dd-mm-yy") & " " & Format(Now, "hhmmss") & ".xls"
       
       'Nome da consulta
       DoCmd.OutputTo acOutputQuery, "Cns_cgpc-relatorio", acFormatXLS, strPlanilha, 0
       
       'Ou tabela
       'DoCmd.OutputTo acOutputTable, "tblCliente", acFormatXLS, strPlanilha, 0
       
       'Cria o objeto
       Set objExcel = CreateObject("Excel.Application")
       
       'Esconde o arquivo
       objExcel.Visible = False
       
       'Cria o arquivo
       With objExcel
           .Workbooks.Open (strPlanilha)
           .Selection.CurrentRegion.Select
           .Selection.AutoFilter 'Já cria um auto-filtro na planilha Excel
           .Range("A1").Select
           .Workbooks(1).Close SaveChanges:=True
           .Quit
         
       'Abre o local de salvamento
       MsgBox "Exportado Com Sucesso...", vbInformation
       Shell "C:\WINDOWS\explorer.exe """ & CurrentProject.Path & "\" & "", vbNormalFocus
       
       End With
       
       Set objExcel = Nothing
       
   End If


Fim:
   SysCmd 3
   MsgBox Err.Number & " - " & Err.Description
   

End Sub


Fonte Youtube: Ms. Access – Exporta do Access Para o Excel – 3/3 (não postei o link do youtube porque neste espaço não tenho permissão, mas pelo nome vocês conseguem pesquisar)

Reitero o agradecimento ao Crysostomo, esclarecendo que utilizei este código pois pude acompanhar pelo vídeo, uma vez que não sei nada de código do access.

No entanto, ainda preciso de ajuda para constar a data da última movimentação de cada registro na consulta, visto que esta informação consta em tabela vinculada e quando acrescento "dt_movim" aparece todas as movimentações daquele registro e eu preciso apenas da data da última movimentação.

Se puderem ajudar nisso também, agradeço.

Deixe aqui a parte do seu bd