عبدالعزيز محمد قام بنشر سبتمبر 1, 2015 قام بنشر سبتمبر 1, 2015 السلام عليكم ورحمة الله لدي قاعدة بيانات لعملي وهي كبيرة الحجم وذات خصوصية ولكن السؤال كالتالي:كيف يمكننا من جعل زر واحد يقوم بفتح نموذج مرة للإضافة والتعديل ومرة أخرى للقراءة فقط وهذا النموذج هو نموذج فرعي في نموذج رئيسي ولكن ليس هناك ارتباط بين النموذجين ولا وجود لعلاقة بينهما. كما أود أن يكون فتح النموذج الفرعي مرة يكون للإضافة ومرة أخرى للقراءة بزر واحد مع اختلاف تسمية الزر بحيث يتضح من تسمية ولون الزر هل هو للإضافة أو للقراءة. نأمل أن يكون السؤال واضحا وعذرا لم ادرج مرفق ويكفيني كود يقوم بالمطلوب ولكن لو وجد مثال من عندكم يكون اسهل للفهم ودمتم بخير وجزاكم الله عنا كل الخير.أوفيس 2010
نور الدين وليد قام بنشر سبتمبر 1, 2015 قام بنشر سبتمبر 1, 2015 هلا وضحت متى يكون الزر يفتح النموذج للاضافة ومتى يقتح للتعديل وهكذا يمكنك عمل المطلوب باستخدام ifاريد مثال على السؤال وان شاء الله ارفق لك الحل
عبدالعزيز محمد قام بنشر سبتمبر 1, 2015 الكاتب قام بنشر سبتمبر 1, 2015 السلام عليكم المطلوب بالمرفق استخدم اوفيس2010 Aziz.rar
أبو عبدالله الحلوانى قام بنشر سبتمبر 1, 2015 قام بنشر سبتمبر 1, 2015 تفضل هذا مثال لعله يوافق ما تريد المرفق به مثال 2010 وآخر 2003 لتعم الفائدة باذن الله https://drive.google.com/file/d/0B3yVHfWpKqY3MGFIMG9sZklvUXM/view?usp=docslist_api
عبدالعزيز محمد قام بنشر سبتمبر 1, 2015 الكاتب قام بنشر سبتمبر 1, 2015 السلام عليكم ورحمة الله ليس هذا المطلوب اخواني بل يبقى النموذج فرعي كما في المثال المرفق وفق الله الجميع.
أبو عبدالله الحلوانى قام بنشر سبتمبر 1, 2015 قام بنشر سبتمبر 1, 2015 وعليكم السلام ورحمة الله استاذ عزيز لو فتحت حضرتك الكود ستجد فى نهايته تعليق لطريقة التحكم بالنموذج الفرعى التعليق لونه أخضر.. واعذرنى لانى لم أر مرفق حضرتك
رمهان قام بنشر سبتمبر 1, 2015 قام بنشر سبتمبر 1, 2015 مشاركة مع اعزائي وحسب فهمي 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
عبدالعزيز محمد قام بنشر سبتمبر 2, 2015 الكاتب قام بنشر سبتمبر 2, 2015 السلام عليكم ورحمة الله الرد الأخير هو المطلوب بارك الله فيك . ولكن أود تلوين الزر باللون الأحمر مثلا عند بحث وفلترة وباللون الأزرق عند اضافة وتعديل . أما يا أخيأبو عبدالله الحلوانى لم استطع تحميل المفق بردك يبدو موقع التحميل يحتاج للتسجيل .
رمهان قام بنشر سبتمبر 2, 2015 قام بنشر سبتمبر 2, 2015 اضف هذا السطر في نهاية الكود : cmd.ForeColor = IIf(cmd.Caption = "اضافة وتعديل", vbBlue, vbRed) بالتوفيق 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.