تفارير اكسس مع فشول بيسك

'Form Code

Private Sub Command1_Click()

Dim ac As Access.Application

Set ac = New Access.Application

ac.OpenCurrentDatabase ("c:\myDir\myDBFileName.mdb")

ac.DoCmd.OpenReport "Catalog", acViewNormal

ac.CloseCurrentDatabase

End Sub

السلام عليكم

لك الشكر awadiah

و ان شاء الله ساحول و اخبرك بما توصلت الية

ابارهيم الطيب

السودان الخرطوم