مهام متعددة لنموذج واحد بزر واحد؟

[عبدالعزيز محمد]

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

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

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

نأمل أن يكون السؤال واضحا وعذرا لم ادرج مرفق ويكفيني كود يقوم بالمطلوب ولكن لو وجد مثال من عندكم يكون اسهل للفهم

ودمتم بخير وجزاكم الله عنا كل الخير.أوفيس 2010

 

 

[نور الدين وليد]

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

يمكنك عمل المطلوب باستخدام if
اريد مثال على السؤال وان شاء الله ارفق لك الحل

[عبدالعزيز محمد]

السلام عليكم

المطلوب بالمرفق

استخدم اوفيس2010

 

 

Aziz.rar

[نور الدين وليد]

تفضل 

 Aziz.rar

[أبو عبدالله الحلوانى]

تفضل هذا مثال لعله يوافق ما تريد

المرفق به مثال 2010  وآخر 2003 

لتعم الفائدة باذن الله

https://drive.google.com/file/d/0B3yVHfWpKqY3MGFIMG9sZklvUXM/view?usp=docslist_api

[عبدالعزيز محمد]

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

ليس هذا المطلوب اخواني بل يبقى النموذج فرعي كما في المثال المرفق وفق الله الجميع.

 

 

[أبو عبدالله الحلوانى]

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

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

التعليق لونه أخضر..

واعذرنى لانى لم أر مرفق حضرتك 

[رمهان]

مشاركة مع اعزائي وحسب فهمي

Private Sub cmd_Click()
If Me.Tab1sub.Visible = False Then Me.Tab1sub.Visible = True
Me.Tab1sub.Form.RecordsetType = IIf(cmd.Caption = "اضافة وتعديل", 0, 2)
If cmd.Caption = "اضافة وتعديل" Then Me.Tab1sub.SetFocus: DoCmd.GoToRecord , , acNewRec: Me.Tab1sub![NAME].SetFocus
cmd.Caption = IIf(cmd.Caption = "اضافة وتعديل", "بحث وفلترة", "اضافة وتعديل")
End Sub

بالتوفيق

Aziz.rar

[عبدالعزيز محمد]

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

الرد الأخير هو المطلوب بارك الله فيك .

ولكن أود تلوين الزر باللون الأحمر مثلا عند بحث وفلترة وباللون الأزرق عند اضافة وتعديل .

أما يا أخيأبو عبدالله الحلوانى لم استطع تحميل المفق بردك يبدو موقع التحميل يحتاج للتسجيل .

 

 

 

[رمهان]

اضف هذا السطر في نهاية الكود :

cmd.ForeColor = IIf(cmd.Caption = "اضافة وتعديل", vbBlue, vbRed)

بالتوفيق