|
|
Postada em 20/07/2006 14:12 hs
Caros amigos, estou querendo usar como base de relatorio o proprio relatorio do access, pois já tenho um pronto aki, só que quero usar em um sistema separado do access, da mesma forma que usamos hj com o DataReport, ou Crystal Report, mas só que quero usar o do access, alguem tem algum arquivo que possa me ajudar a fazer esse incremento em meu sistema?
A conexão com o banco de dados Access já esta pronto, portanto fiz o relatorio dentro do proprio access, a unica coisa que quero é saber como que eu faço para abrir esse relatorio dentro do meu sitema, sem ter que abrir o access e visualizar o relatorio la no access..
---------------------------------
Valmir Ferreira Rocha
Sistemas de Informação
---------------------------------
|
|
|
|
|
|
|
|
Postada em 20/07/2006 14:15 hs
tenta esta dica colega: t+ |
|
|
|
|
|
Postada em 20/07/2006 15:54 hs
Amigo, até q isso funciona, mas gostaria de fazer a Visualização primeiro.. |
|
|
|
|
|
Postada em 20/07/2006 16:58 hs
Caros Amigos, acabei de descobri, para visualizar o relatorio é necessario a seguinte rotina.
strDbName = "Caminho do Bando de dados.mdb"
Set RelatorioAccess = GetObject(strDbName, "Access.Application")
strReportName = "Nome do Relatorio"
With RelatorioAccess
.Visible = True 'Habilita a Visualização do Relatorio
.DoCmd.OpenReport strReportName, acViewPreview, "" 'Puxa o relatório para ser mostrado na tela
.DoCmd.Maximize 'Maximiniza o relatório
End With
---------------------------------
Valmir Ferreira Rocha
Sistemas de Informação
---------------------------------
|
|
|
|
|
|
Postada em 20/07/2006 17:42 hs
valmir, é o alexandre blz, é o seguinte se seu cliente nao tiver access nao funciona ok, uso o crystal |
|
|
|
>>|Bedin|<<
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 20/07/2006 20:55 hs
Amigos, oq vcs acham dessa rotina?!...
Private Sub IMPRIMIR_Click()
strDbName = "C:ALUNOSBanco_Escola.mdb"
If MsgBox("Deseja Vizualizar o Boletim antes de Imprimir?", vbYesNo) = vbYes Then
Set RelatorioAccess = GetObject(strDbName, "Access.Application")
strReportName = "ALUNO"
With RelatorioAccess
.Visible = True
.DoCmd.OpenReport strReportName, acViewPreview, ""
.DoCmd.Maximize
End With
Else
Set RelatorioAccess = CreateObject("Access.Application")
With RelatorioAccess
.OpenCurrentDatabase filepath:="C:ALUNOSBanco_Escola.mdb"
.DoCmd.OpenReport ReportName:="ALUNO"
End With
MsgBox "Boletim impresso com Sucesso!", vbInformation
End If
End Sub
Fiz meio na correia mas deu certo!!!
b3d1n
|
|
|
|
