اغلاق نموذج وفتح الاخر

[بوحمد]

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

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

مرفق طيه قاعدة بيانات للتطبيق عليها 

وتمت سالمين .  my12.rar

[husamwahab]

اخي العزيز لا يمكن تحميل ملفك ولكن على العموم

في حدث on click في زر الامر ضع الكود التالي

"اسم النموذج المراد فتحه"  DoCmd.OpenForm  

"اسم النموذج المراد اغلاقه"  ,DoCmd.Close acForm

ثم نفس الكود مع تغيير اسماء النماذج

ملاجظة : كود الفتح قبل كود الاغلاق وهذا اجباري

[بوحمد]

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

ملاحظة : انا اريد فتح نموذج حسب حقل ( ID ) المحدد لك شخص كما هو موضح بالمرفق 

my12.rar

[ابو جودي]

اتفضل طالبك يا استاذ

 

mydata-UP.rar

[بوحمد]

اشكرك اخوي محمد على المساعدة وبالفعل هذا هو المطلوب وجزاك الله خير .

[thamir1977]

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

يكفينا أمر إغلاق الفورم  بدون ذكر أسمه ثم أمر فتح فورم آخر 

مثال :

DoCmd.Close

 

DoCmd.OpenForm "main""

فالايعاز الأول يغلق الفورم الحالي والثاني يقوم بفتح الفورج الجديد بعد غلق القديم 

 

[ابو عارف]

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

للاغلاق نموذج الاول اولاً ثم فتح النموذج الثاني  عليك تعريف المتغير برقم ID  في نموذج الاول و ثم وضع اسم المتغير في الشرط بدل ID

لاحظ الكود

On Error Resume Next
Dim IDv As Integer
IDv = id
DoCmd.Close
DoCmd.OpenForm "form2", , , "[ID]=" & IDv