نجوم المشاركات

السلام عليكم بعد ان قارنت الجدولين Fathers و Sons ، رأيت ان معظم الحقول تحمل نفس البيانات ، باستثناء اسم الاسم (اسم الاب في جدول الاباء ، واسم الابن في جدول الابناء) ، فقمت بنسخ الاستعلام السابق ، وعمل استعلامين منه ، واحد للأب والاخر للابن ، وبتعديل اسم خانة الاسم ، حققت التالي: . والمهم عندي هنا هو ، اننا نستطيع تعديل البيانات (وليس قراءتها فقط) . فعند منادات الاب ، نستخدم استعلام الاباء ، وعند منادات الابن ، نستخدم استعلام الابناء والكود التالي يوضح الطريقة Private Sub chk_Father_Click() If Me.chk_Father = -1 Then Me.cmd_son = "" Me.RecordSource = "qry_Fathers" Else Me.RecordSource = "qry_Sons" End If Me.Requery End Sub Private Sub cmd_FatherNum_AfterUpdate() Me.chk_Father = -1 Me.cmd_son.Requery Call chk_Father_Click End Sub Private Sub cmd_son_AfterUpdate() Me.chk_Father = 0 Call chk_Father_Click End Sub Private Sub Form_Load() Call chk_Father_Click End Sub . وقد استفدت من مرفق اخي صالح ، واستخدمت حقلي البحث منه جعفر 479.Fiamlies.accdb.zip

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

قريبا ان شاء الله مع الشرح = = = = = = = ‏الثلاثاء‏ 21‏/11‏/1432هـ الموافق ‏18‏/10‏/2011م نظام المستوعات و متابعة المخزون الفكرة من اعداد اخي اسامة العضو في هذا المنتدى هو نظام اكسل يهدف لحساب حركة المخزون لعدد 4 عمليات وهي (استلام + صرف + ارجاع + شطب) المميزات و الخصائص 1. يمكن تسجيل عدة مستخدمين للملف تصل الى 11 مستخدم 2. يمكن تسجيل اضناف او مواد حتى 9000 صنف او مادة 3. قائمة المواد المخزنة مع ملخص بياناتها 4. كل الحركات المسجلة للمواد 5. نموذج خاص لإضافة أي مواد جديدة 6. نموذج للبحث في قائمة المواد 7. البحث خلال فترة محددة عن أي مادة اسماء المستخدمين وكلمات المرور الحالية هي: Admin = 123 موظف 2 = 22 Super_Stores.rar

السلام عليكم محتاج ملف اكسس او اكسل يعمل علئ تنبيه او تذكير بقروب انتهئ تاريخ لكن لم اجد في كل المواقع وانا عندي اشياء مثل ايجار البيت او استمارة السيارة او انتها تجديد الاقامه او في اشياء الواحد ينساهئ اريد ان اضع لها تنبيهات باليوم والساعه كمان

بارك الله بك اخي الكريم زوهير هو المطلوب بالضبط تقبل تحياتي

السلام عليك اليك الحل لعله المطلوب تغيير كلمة المرور.rar

تفضل If Not IsNull(DLookup("Daleel_Calc", "TBL2", "Daleel_Calc=form!Daleel_Calc and Type=form!Type And Mostnd_Num=form!Mostnd_Num")) Then Undo Beep MsgBox "لايمكن ادخال هذا الرقم لانه مدخل سابقا" End If Prog24_25.rar

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

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

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

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

الفخر لي انا بالاجابة على احد اعلام المنتدى جعفر

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

السلام عليكم أخي محمد انا لن اتطرق لطريقة عمل النموذج الجديد ، "لأننا" لم نلحظ المشكلة في النموذج الاصل ولكني دخلت في كود Combopn_AfterUpdate : pn = DLookup("pn", "code", "[pn]=forms!frm_dataentry!Combopn") size = DLookup("Size", "code", "[pn]=forms!frm_dataentry!Combopn") vendor = DLookup("Vendor", "code", "[pn]=forms!frm_dataentry!Combopn") Description = DLookup("Description", "code", "[pn]=forms!frm_dataentry!Combopn") Maxrl = DLookup("Maxrl", "code", "[pn]=forms!frm_dataentry!Combopn") Maxrlegyptair = DLookup("Maxrlegyptair", "code", "[pn]=forms!frm_dataentry!Combopn") ACType = DLookup("actype", "code", "[pn]=forms!frm_dataentry!Combopn") Pos = DLookup("pos", "code", "[pn]=forms!frm_dataentry!Combopn") BiasRadial = DLookup("biasradial", "code", "[pn]=forms!frm_dataentry!Combopn") code = DLookup("code", "code", "[pn]=forms!frm_dataentry!Combopn") لاحظت انك تنادي الجدول (اي تعمل استعلام للجدول) 10 مرات !! انا دائما لما اعمل برامجي ، اعمل البرنامج على اساس انه سيكون عبارة عن جزئين ، الواجهة FE ، والجداول BE ، وان الجداول BE ، ستكون في شبكة ، وان الواجهة FE ستكون لأكثر من مستخدم. لهذا السبب ، فيجب ان نقلل الزحمة في الشبكة ، وذلك بتقليل زيارة/استعلام الجداول قدر الإمكان ، وعند كل زيارة ، يجب ان نأخذ اكبر كمية من البيانات المطلوبة ، ثم نتعامل معها محليا في FE. لذلك ، فانا هنا اعطيك احد البدائل (والتي لا يعرفها الكثير ، لأنها تعمل على الاكسس 2003 فما فوق) ، فالكود التالي ، يقوم بزيارة/استعلام الجدول عن طريق DLookup مرة واحدة ، ويأخذ 10 بيانات مرة واحدة ، فلذا يمكن ان يستبدل كودك اعلاه: Dim x() As String A = Nz(DLookup("[pn] & '|' & [Size] & '|' & [Vendor] & '|' & [Description] & '|' & [Maxrl] & '|' & [Maxrlegyptair] & '|' & [actype] & '|' & [pos] & '|' & [biasradial] & '|' & [code]", "code", "[pn]=forms!frm_dataentry!Combopn"),"|||||||||") 'ويمكن استعمال اي شيء بدل عن | فمثلا الفاصلة 'A حتى اذا لم هناك قيمة للمتغير Nz نستعمل الدالة 'عدد مرات وضع العلامة | في نهاية السطر ، يكون نفس عددها في المعادلة 'لهذا السبب نرى اننا وضعنا 9 منها في نهاية السطر x = Split(A, "|") ' For i = LBound(x) To UBound(x) ' Debug.Print x(i) ' Next i Me.pn = x(0) Me.size = x(1) Me.vendor = x(2) Me.Description = x(3) Me.Maxrl = x(4) Me.Maxrlegyptair = x(5) Me.ACType = x(6) Me.Pos = x(7) Me.BiasRadial = x(8) Me.code = x(9) جعفر

السلام عليكم اخواني الاعزاء قام الاخ esam2008/ بالسؤال عن كيفية حفظ ورقة واحدة من ملف عمله بملف ومجلد مستقلين ،،،، المشاركة على الرابط http://www.officena.net/ib/index.php?showtopic=30308&pid=151662&st=0&#entry151662 وفي بداية الأمر ولعدم اختمار الفكرة في ذهني اعتقدت أنه يريد ترحيل البيانات التي بهذه الورقة فقط ،،، ولكن خطرت هذه الفكرة وهي كيف يمكن أن يتم الحفظ باسم لجميع أوراق العمل بالمصنف الحالي على شكل ملفات مستقلة في مجلد مستقل يحمل اسم الملف الأصلي ،،، أتمنى أن يستفيد الجميع منه ... ZEZO SAVE AS ALL.rar