Viewing Access Reports in VB
Viewing Access Reports in VB
(OP)
I don't have Crystal Reports, and Data Reports in VB is rubbish. Does anyone know if you can create reports in Access 97 and then call them from VB6? If so how....
Are you a
Computer / IT professional?
Join Tek-Tips Forums!
Computer / IT professional?
Join Tek-Tips Forums!
- Talk With Other Members
- Be Notified Of Responses
To Your Posts - Keyword Search
- One-Click Access To Your
Favorite Forums - Automated Signatures
On Your Posts - Best Of All, It's Free!
*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.
Talk To Other Members
RE: Viewing Access Reports in VB
Private Declare Function apiSetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal ncmdshow As Long) As Long
Private Const SW_MAXIMIZE = 3
Public Sub CreateReport()
Dim objAccess As New Access.Application
Set objAccess = New Access.Application
With objAccess
.OpenCurrentDatabase ("{path of database}")
.DoCmd.OpenReport rptName, 2
.DoCmd.SelectObject 3, rptName
.DoCmd.Maximize
lngret = apiSetForegroundWindow(.hWndAccessApp)
lngret = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)
lngret = apiShowWindow(.hWndAccessApp, SW_MAXIMIZE)
End With
End sub