Em formulário funciona, em Relatório não, baseado em consulta de ref cruzada

Amigos, tentei usar o mesmo código que usei para um formulário, num relatório baseado em consulta de referencia cruzada, passou a dar o seguinte erro:

Na linha:

Set rs = Me.RecordsetClone "Método ou membro de dados não encontrado."


O código que tentei adaptar do formulário para o relatório ficou assim:


Private Sub Report_Load()

Dim rs As Recordset, I As Integer
Dim strtotal As String

Set rs = Me.RecordsetClone

With rs

For I = 0 To .Fields.Count - 1

Me("uc" & I).ControlSource = .Fields(I).Name
Me("u" & I).Caption = .Fields(I).Name

Me("uc" & I).Visible = True
Me("u" & I).Visible = True

strtotal = "= Sum([" & .Fields(I).Name & "]*1)"
Me("t" & I).ControlSource = strtotal

Me.Requery

Next I

End With

rs.Close

Set rs = Nothing


Exit_Report_Load:
Exit Sub

Err_Report_Load:

MsgBox Err.Description

Resume Exit_Report_Load


End Sub

Pesquisei muito e tentei usar os outros tipos Me.RecordSource, RecordLocks e os outros mas não funcionou.
Agradeço se puderem me dar mais essa dica.

Muito obrigado!

Lárimer

Amigos, continuando o post anterior, quando mudo de

Set rs = Me.REcordsetClone

para

Set rs = Me.REcordset

Dá um erro "Este recurso está disponível somente em ADP."

??

Alguém pode dar uma pista?

Obrigado!
Lárimer

Estou "chutando" que o erro está na declaração de variáveis . . .

Mas no material que pesquisei vejo exemplos usando recordset em relatórios....

Lárimer

Veja se ajuda;

Obrigado JPaulo!

O exemplo que vc sugeriu tem o mesmo efeito, mas é bem mais estruturado.

No meu caso estou executando apenas um loop para detectar o número de campos gerados pela consulta, pq só há esse relatório no aplicativo.

Não estou sabendo declarar a variável mas vou estudar mais o seu exemplo.

Muito obrigado!

Lárimer