[Resolvido]Form e Impressão Ref. Cruzada

Olá, baixei um exemplo, acho que foi aqui do forum mesmo,  de Relatório com formulário e Referência Cruzada, só que antes de tentar implementar em outro sistema que estou finalizando tava testando em um bd separado para poder entender como funciona. Entretanto tá dando "Erro em tempo de execução 91:  Variavel do Objeto ou Variavel do Bloco With não foi Definida". Nas Referências em Ferramentas do VBA do exemplo que baixei estão iguais ao BD de teste que estou usando. O erro aponta de saída para essa linha:

As variáveis na parte superior do código do formulário estão assim:

Option Compare Database

Const conTotalColumns = 1
Dim dbsReport As DAO.Database
Dim rstReport As DAO.Recordset
Dim intColumnCount As Integer
Dim lngRgColumnTotal(1 To conTotalColumns) As Long
Dim lngReportTotal As Long

Private Sub CabeçalhoDoRelatório_Format(Cancel As Integer, FormatCount As Integer)

rstReport.MoveFirst ' AQUI O ERRO DESTACA EM AMARELO
InitVars
End Sub


Bom, como trata-se de um bd bem complexo de analisar em poucas linhas, segue cópia em anexo para os colegas poderem verificar como está ficando minha adaptação. Para testar:

1º - Executar o Form: frmAbreTotalPedido (sem inserir datas), dai abre o frmTotalPedido com as informações;
2º - No frmTotalPedido clicar no botão Imprimir, nessa hora dá o ERRO.

Para testar NÃO estou tentando filtrar por data ainda, estou tentando imprimir todos os dados.

Agradeço.

ALAN

Alan,

Para mover para o primeiro registro (rstReport.MoveFirst), o recordset tem que estar aberto em algum momento.

Att,


Fim

Alexandre, acho que a abertura do recordset está no trecho abaixo:

Private Sub Report_Open(Cancel As Integer)
Dim rstReport As dao.Recordset

Dim intX As Integer
Dim qdf As QueryDef
Dim frm As Form

Set dbsReport = CurrentDb
'Set frm = Forms!frmAbreTotalPedido

Set qdf = dbsReport.QueryDefs("Consulta2")

'qdf.Parameters("Forms!frmAbreTotalPedido!txtDe") _
'= frm!txtDe
'qdf.Parameters("Forms!frmAbreTotalPedido!txtAte") _
'= frm!txtAte

Set rstReport = qdf.OpenRecordset() ' AQUI ESTÁ ABRINDO
intColumnCount = rstReport.Fields.Count


End Sub

ALAN

Galera, vou encerrar por aqui. De momento resolvi não utilizar esse tipo de exibição de dados direto no formulário. Em outra ocasião vou estuda-lo melhor para usa-lo sem problemas. Alexandre, obrigado pela atenção. Até mais...!!!

ALAN