Alimentar função a partir de uma Consulta

Boa noite

Atenção - Não tem a função toda ....

A parte que está a vermelho funciona bem se for alimentada pela tabela "tblmovimento".

Mas eu queria alimentar a mesma a partir de uma consulta.

Pergunto: Como tem de ficar a função para ser alimentada por uma consulta

 ' Autor JPaulo

   Dim Num As Long, X As Integer, S As String
   Dim Ws As Workspace, DB As Database, T As Recordset
   Set Ws = DBEngine.Workspaces(0)
   Set DB = Ws.Databases(0)
   
   Set T = DB.OpenRecordset("select * from tblmovimento where [Historico]='" & Me.TxtDoc & "' AND " & "Rubrica ='" & Me.Rubrica & "'AND " & "Entidade ='" & Me.Entidade & "' AND " & "idcaixa =" & Me.TxtIDCaixa & "")

up

Olá Assis, tente assim:

Crie uma consulta da tblMovimento , com os os filtros pretendidos, pode dar o nome qrymovimento

No código:

Set T = DB.OpenRecordset("select * from qrymovimento")

Abraço