• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Preview an Access Database Report

Preview an Access Database Report

Preview an Access Database Report

Rate Preview an Access Database Report

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    Dim oAccess As Object 'Access.Application
    
    On Error GoTo ErrFailed
    AccessShowReport = ""
    'Create Access
    Set oAccess = CreateObject("Access.Application")
    'Open Database
    oAccess.OpenCurrentDatabase sAccessDBPath
    'Open report
    oAccess.DoCmd.OpenReport sReportName, 0 'acViewNormal
    'Show Access Report
    oAccess.Visible = True
    oAccess.CloseCurrentDatabase
    Set oAccess = Nothing
    Exit Function

ErrFailed:
    Debug.Print Err.Description
    Debug.Assert False
    AccessShowReport = Err.Description
    If oAccess Is Nothing = False Then
        oAccess.CloseCurrentDatabase
        Set oAccess = Nothing
    End If
End Function