[Ahmed_Mansoor]

أهلا أخي الكريم , هذا كود الفورم بعد التعديل , إمسح كود الفورم وإستبدله بهذا الكود ثم نفذ , هذه الطريقه التي أعرفها :

PHP كود :

Dim db As Database
Dim rs As Recordset

Dim AppAccess As Object


Private Sub Command1_Click()

Set AppAccess = CreateObject("Access.Application")

AppAccess.Visible = True

AppAccess.OpenCurrentDatabase App.Path + "\compny.mdb", False

AppAccess.DoCmd.OpenForm "Form1", acNormal

End Sub

Private Sub Command9_Click()

AppAccess.Quit

Set AppAccess = Nothing

End

End Sub