فتح تقرير من قاعدة خارجية

[husseinharby]

السلام عليكم

اريد كود لفتح تقرير او نموذج من قاعدة بيانات خارجية عن طريق زر امر

[biskra]

جرب الكود التالي

Dim objAdb As Object
Set objAdb = CreateObject("Access.Application")
objAdb.OpenCurrentDatabase ("C:\Users\simba\Desktop\اسم و مسار قاعدة البيانات.mdb")
objAdb.DoCmd.OpenForm "اسم النموذج أو التقرير"

 

[husseinharby]

جربت الكود ولم يعمل

Dim objAdb As Object
Set objAdb = CreateObject("Access.Application")
objAdb.OpenCurrentDatabase ("F:\Revision.accdb")
objAdb.DoCmd.OpenReport "revision", acPreview

[biskra]

Dim objAdb As Object
Set objAdb = CreateObject("Access.Application")
objAdb.OpenCurrentDatabase ("F:\Revision.mdb")
objAdb.DoCmd.OpenReport "revision", acPreview

جرب الكود

[husseinharby]

مشكور اخي الغالي