Valla denemedim ama elimde bir kod var. Bi dene istersen :wink: Dim objAccess As Object Private Sub Command1_Click Dim dbName As String Dim rptName As String Dim Preview As Long Const acNormal = 0 Const acPreview = 2 dbName = &quot;D:\PathToDB\db1. mdb&quot; rptName = &quot;MyReportName&quot; Preview = acPreview 'acNormal With objAccess. OpenCurrentDatabase filepath:=dbName If Preview = acPreview Then. Visible = True. DoCmd. OpenReport rptName, Preview Else. DoCmd. OpenReport rptName End If End With End Sub Private Sub Form_Load Set objAccess = CreateObject End Sub Private Sub Form_Unload On Error Resume Next objAccess. Quit On Error GoTo 0 Set objAccess = Nothing End Sub

Arkadaslar access te bir rapor hazirladim. Bu raporu vb den nasil çagiracagim?