kaser906

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

السلام عليكم ورحمة الله وبركاتة الموضوع الذي أطرحه الآن كنت طرحته من قبل مدة طويلة من الزمن في أحد المنتديات وحصلت على إجابه لكنها غير فعالة وغير مرضية حيث كانت تعتمد على إغلاق النموذج وإعادة فتحه من جديد الموضوع باختصار كما هو موضح بالصورة المرفقة المطلوب عند الضغط على زر الأمر يتم إيقاف تنشيط ازرار التنقل بالنموذج وعند الضغط على زر الأمر الأخر يتم تنشيطها من جديد enbld.rar

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

رائع يعطيك العافيه استاذ لا زلت انتظر شرح تحويل جملة sql إلى كود

يعطيك العافية أستاذ شفان

ممتاز مشكور ورحم الله والديك هذا هو المطلوب

الله يعطيك العافية استاذي الكريم عند التعديل على السجلات يعمل الكود بشكل ممتاز لكن تظهر مشكلة عند إضافة سجل جديد انظر الصورة

بالضبط استاذ جعفر هو هذا المطلوب

نعم استاذ

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

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

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

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

السلام عليكم ورحمة الله وبركاتة المثال المرفق قام بعمله الأستاذ جعفر ( حفظه الله ورعاه ) وهو يحنوي على كود خلف زر أمر أعمل السجلات Dim rst As DAO.Recordset Dim rstSUB As DAO.Recordset 'نجهز الجدول لإدخال بيانات رقم المقعد Set rst = CurrentDb.OpenRecordset("Select * From Tabl_bus") 'نقرأ بيانات النموذج الفرعي Set rstSUB = Me.Forme_Sub_Itinerary.Form.RecordsetClone rstSUB.MoveLast: rstSUB.MoveFirst RCsub = rstSUB.RecordCount 'نقرأ كل سجل من سجلات النموذج الفرعي For j = 1 To RCsub 'اذا يوجد علامة صح في حقل "اعمل التغييرات" فقم بحذف السجلات السابقة لهذا الخط ، واعمله من جديد If rstSUB!Do_Changes = -1 Then 'نحذف سجلات رقم المقعد من الجدول mySQL = "DELETE Tabl_bus.Num_Itinerary_ID, Tabl_bus.Num_Itinerary, Tabl_bus.Num_rihla, Tabl_bus.*" mySQL = mySQL & " FROM Tabl_bus" mySQL = mySQL & " WHERE Num_Itinerary_ID=" & rstSUB!Auto_ID mySQL = mySQL & " AND Num_Itinerary=" & rstSUB!Num_Itinerary mySQL = mySQL & " AND Num_rihla=" & rstSUB!Num_rihla CurrentDb.Execute mySQL 'نقوم بتغيير حقل "اعمل التغييرات" ونزيل الصح منها rstSUB.Edit rstSUB!Do_Changes = 0 rstSUB.Update 'نعمل سجلات رقم المقعد في الجدول For i = 1 To rstSUB!Number_seats rst.addnew rst!Num_Itinerary_ID = rstSUB!Auto_ID rst!Num_Itinerary = rstSUB!Num_Itinerary rst!Num_rihla = rstSUB!Num_rihla rst![Chair_ No] = i rst.Update Next i End If 'rstSUB rstSUB.MoveNext Next j 'احذف البيانات من ذاكرة الكمبيوتر rst.Close: Set rst = Nothing rstSUB.Close: Set rstSUB = Nothing End Sub الكود ممتاز لكني اريد عدم حذف السجلات بالجدول Tabl_bus اذا كانت موجوده لأن الحقل Auto_id مرتبط بجدول أخر وعند حذفه سيحذف السجلات من الجدول الأخر بكامله ما أريده عند ادخال عدد المقاعد والنقر على زر الأمر اعمل السجلات قراءة الجدول Tabl_bus هل يحتوي على سجلات بنفس القيم المدخله اذا كان لا يدخل سجلات جديده اذا كان نعم يوجد سجلات يقارنها برقم عدد المقاعد هل هي أكبر أم أصغر اذا كانت اصغر يضيف السجلات المتبقيه أذا كانت السجلات بالجدول Tabl_bus أكبر من الرقم المدخل يقوم بحذف السجلات الزائده حسب رقم Auto_ id من الأكبر إلى الأصغر أرجو أن يكون شرح المطلوب واضح 806.1.AAddseat.rar

يعطيك العافية أخي الكريم تم اخذ الفكرة من اجابتك وتطبيقها بوجود رقم وفريد وأعطت نتيجة ممتازة شكرا لك

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

ليس هذا هو المطلوب المطلوب تصفية مربع القائمة من الأرقام التي تم تسجيلها بالنموذج حسب التوضيح بالصورة

السلام عليكم ورحمة الله وبركاتة بالمرفق نموذج يوجد به مربع تحرير وسرد المطلوب عدم ظهور القيمة التي يتم اختيارها من مربع التحرير والسرد بالقائمة عند ادخال سجل جديد combo.rar

السلام عليكم ورحمة الله وبركاتة أولاً : أشكرك أخي أبو أدم على طرح الموضوع وأوافقك الرأي من حيث المبدأ ثانياً : هنا أتكلم عن نفسي قبل طرح موضوع مساعده أو إستفسار أقوم بالبحث في المنتدى فتظهر لي عشرات أن لم تكن مئات المواضيع والبحث بين كل هذه المواضيع سيأخذ وقت ليس بالقصير ( ولا ضير في ذلك بالنسبة لطالب العلم والتعلم ) عندما أدخل الى أحد المواضيع أجد أن المشاركة لاتمت إلى ما قمت بالبحث عنه بصله لا أعلم هل حساسية البحث عن الكلمات غير دقيق في محرك البحث أم أن اسلوبي في انتقاء الكلمات المناسبة لموضوع البحث هي السبب أعتقد هنا يأتي دور إدارة المنتدى في تنقيح بعض عناوين المشاركات وأحيانا أبحث وأجد الموضوع المطلوب وفكرته مشابهه لما أريد ولكن تظهر بعض العقبات في تطبيق الفكرة على ما احتاجه أتمنى أن يوضع شرح مصور ومطعم ببعض الأمثله للبحث في المنتدى ويتم تثبيته أخيراً أخي أبو أدم لا أرى ضير في طرح الموضوع ولو كان قد تم التطرق لمثله من قبل لعل الحل يكون بأسلوب وفكره مختلفه وهذا يزيدنا نحن المتطفلين على عالم البرمجه علماً وخبره وإن لم يتحقق ذلك يكفي أن نسعد بتواصلكم اساتذتنا عندما توجيبون السائل أو توجهونه الى الموضوع المناسب

تسلم استاذ رحم الله والديك هذا هو المطلوب

السلام عليكم ورحمة الله وبركاتة اريد بالمرفق مثلا عند ادخال رقم 10 في النموذج بالحقل A يتم النظر بالجدول هل رقم 10 موجود بالحقل A اذا لم يكن موجود يتم ترقيم الحقل B ابتداء من رقم 1 وعند ادخال سجل جديد بالرقم 10 في الحقل ِA يتم ترقيم الحقل B بالرقم 2 وعند ادخال رقم 11 بالحقل A يتم ترقيم الحقل B من البداية بالرقم 1 وهكذا الى مالا نهاية Auotonember.rar

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

ههههههههههههههههههههههههههههه الطلب كان من البداية لكن أنت شكلك غفلت عنه أو حاولت تتغافل تم إكمال الطلب رحم الله والديك ما قصرت

تسلم استاذ العلاقة كانت كلها خطأ من الأساس تم إعادة ضبط العلاقة الآن اعطيتني نصف الحل بقي النصف الاخر الملف بالمرفق بعد إعادة ضبط العلاقة 806.AAddseat.rar

Up