DUVIDA SOBRE DATAREPORT E SEUS METODOS

USUARIO.EXCLUIDOS 19/09/2006 13:54:21
#172407
olá estou querendo fazer a seguinte sub:

Public Sub perguntaVisualizarImpressao(dataReport1 As dataReport, rs As ADODB.Recordset)

        With dataReport1
        
            Set .DataSource = rs
                .DataMember = ""
        
            Dim vresp As String
                vresp = MsgBox("Deseja visualizar impressão?", vbQuestion + vbYesNo + vbDefaultButton1)
        
                If vresp = vbYes Then
                    
                   .Show                   .Refresh
                   
                Else
                    .PrintReport
                End If
        
        End With


End Sub


como eu vou usar em quase todas as minhas telas, achei interessante fazer essa sub dentro de um módulo.bas

só que quando eu vou testar minha aplicação, aparece a seguinte mensagem:
"Method or data member not found"

essa mensagem se refere a instrução .Show
e realmente quando um ponto (.) para ver a lista de propriedades e métodos eu não encontro o método SHOW.

isso é normal ou devo fazer algo para o método Show aparecer
USUARIO.EXCLUIDOS 19/09/2006 14:10:12
#172412
Cara, pq tá usando o Show e Refresh na mesma linha? Não seria:

Public Sub perguntaVisualizarImpressao(dataReport1 As dataReport, rs As ADODB.Recordset)

        With dataReport1
       
            Set .DataSource = rs
                .DataMember = ""
       
            Dim vresp As String
                vresp = MsgBox("Deseja visualizar impressão?", vbQuestion + vbYesNo + vbDefaultButton1)
       
                If vresp = vbYes Then
                   
                   .Show
                   .Refresh
                   
                Else
                    .PrintReport
                End If
       
        End With


End Sub


Tente aí e qualquer coisa poste...flw
USUARIO.EXCLUIDOS 19/09/2006 14:29:51
#172421
cara eu dei control c control v e por isso o .Refresh ficou na mesma linha do .Show na hora de postar.
mas na minha aplicação o .Refresh está abaixo do .Show
e mesmo assim está dando erro
USUARIO.EXCLUIDOS 19/09/2006 14:37:30
#172423 Resposta escolhida
Citação:

ADEVALDOQUEIROZ escreveu:
cara eu dei control c control v e por isso o .Refresh ficou na mesma linha do .Show na hora de postar.
mas na minha aplicação o .Refresh está abaixo do .Show
e mesmo assim está dando erro



^^

Carinha, não sei se pode ser isso, mas não tem nenhum DataReport seu q se chame dataReport1? Talvez possa estar em conflito...
Se não der certo trocando o nome, tente mudar a referência de DataReport para Object:

Public Sub perguntaVisualizarImpressao(dataReport1 As Object, rs As ADODB.Recordset)
USUARIO.EXCLUIDOS 19/09/2006 14:50:22
#172428
valeu!!!
funcionou trocando a referência de dataReport para Object
Tópico encerrado , respostas não são mais permitidas
Voltar