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....
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS Contact USThanks. We have received your request and will respond promptly. Come Join Us!Are you a
Computer / IT professional? Join Tek-Tips Forums!
*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail. Posting Guidelines |
Viewing Access Reports in VB
|
Viewing Access Reports in VBViewing 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....
Red Flag SubmittedThank you for helping keep Tek-Tips Forums free from inappropriate posts. Reply To This ThreadPosting in the Tek-Tips forums is a member-only feature.Click Here to join Tek-Tips and talk with other members! Already a Member? Login |
Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.
Here's Why Members Love Tek-Tips Forums:
Register now while it's still free!
Already a member? Close this window and log in.
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