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

وعليكم السلام ورحمة الله وبركاته

ضع الكود التالي في حدث زر الأمر:

Private Sub أمر6_Click()
	Dim app As Access.Application
	Set app = CreateObject("Access.Application")
	app.OpenCurrentDatabase (CurrentProject.Path & "\ser.mdb")
	app.DoCmd.OpenForm "serv", , , "num = " & Me.num
	app.Visible = True
End Sub

والله أعلم.

ولا أروع من هذا خبير.. عاشت الايادي.

وكما قالت الاخت الفاضلة "زهرة" المنتدى مفيش مستحيل في الاكسس.

وكمان مفيش مستحيل في هذا المنتدى.

بارك الله فيك اخي احمد مبارك الكود رائع وشغال وهذا هو المطلوب ... ولكن هل استطيع من خلال التغيير في الكود تحديد مسار قاعدة البيانات التي يتم فتحها

بارك الله في علمك ....

أخى الحبيب أحمد مبارك ..

سلمت يمينك .. الله عليك.

تحياتى

محمد ندا