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

[hamdynose]

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

بارك الله فيكم جميعا برجاء حل هذة المشكلة 

عند فتح قاعدة بيانات ثانية من قاعدة بيانات اولى وضعت الكود التالى 

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

ولكن القاعدة الثانية دائما تظهر خلف القاعدة الاولى

من فضلكم اريد ان تظهر القاعدة الثانية امام القاعدة الاولى 

ولكم الف شكر 

 

تم تعديل مارس 5, 2022 بواسطه jjafferr
استعمال <> من القائمة ، ثم وضع الكود في نافذته

[jjafferr]

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

 

اضف هذا السطر في نهاية الكود (هكذا موجود في كود كتبته يوم من الايام ، بس ما فيه ملاحظة في الكود ، فلا اعرف اذا يعمل العمل الذي تريده) :

app.UserControl = True

 

جعفر

[hamdynose]

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

لم يعمل 

[jjafferr]

 

رجاء مراجعة هذا الرابط ، فيه الاكواد المطلوبة

 

جعفر