Data Report

[ricardo.frias 0]

Galera, estou tentando fazer uma impressão usando o Data Report, a primeira vez ele abre e imprime, mas se eu chamo um outro relatório logo em seguida da o erro:

 

Nao é possivel alterar a propriedade ActiveConnection de um objeto Recordset que tenha um objeto Comman como sua origem

 

Esse código esta num módulo:

Public Function Imprimir(consulta As String)

 

'CONECTA AO BANCO DE DADOS

'cn.Open ConectaAccess

 

With cmd

.ActiveConnection = cn

.CommandType = adCmdText

.CommandText = consulta

.Execute

End With

 

With rs

.ActiveConnection = cn

.CursorLocation = adUseClient

.Open cmd

End With

 

Dim q As Integer

Dim i As Integer

Dim x As Integer

Dim z As Integer

 

x = 0: q = 0: z = 0

 

With dtrLocalCobranca

.Hide

Set .DataSource = rs

.DataMember = ""

With .Sections("Section1").Controls

For i = 1 To .Count

If TypeOf .item(i) Is RptTextBox Then

.item(i).DataMember = ""

.item(i).DataField = rs(z).Name

z = z + 1

End If

Next i

End With

.Refresh

.PrintReport

End With

 

rs.Close

 

End Function

Eu chamo a função la do meu menu passando o SELECT:

Call Imprimir("Select cd_grupo , nm_grupo from tblGrupo")

Alguém sabe como resolver isso?

 

Valeu

 

Frias

[Luizgrs 0]

Os objetos cmd,rs estão sendo declarados fora dessa função não?Tenta fechar eles antes de usá-los.