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

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

السلام عليكم انا مع ما تفضل به الاستاذ خالد ويسرني ان اشارك بشيء مما مررت به : المحلات التجارية اما ان تمتهن بيع الجملة وإما التفريد وهي ما يهمنا هنا ، وقد يوجد من يجمع بينهما لنضرب مثلا : محلات بيع الحلويات ، ولنأخذ نوع من الحلويات وهي اصابع الشيكولا ، فهي تتوفر بالكرتون الذي يحتوي على 12 علبة وفي كل علبة 24 اصبعا . فمحلات الجملة تبيع بالكرتون والعلبة .. وهنا يكون تعاملنا مع الصنف الأصغر ومحلات التجزئة تبيع بالعلبة والحبة .. وهنا سيكون تعاملنا مع الصنف الأصغر .... في محلات الجملة حين نمرر قارىء الباركود على باركود الكرتون مباع سوف يسجل 12 علبة في العدد ، ومثلها في المشتريات عند الادخال للمستودع وقس على ذلك محلات التجزئة : عند ادخال العلبة سوف يسجل 24 اصبع شيكولا ,, وعند ادخال الاصبع سوف يسجل اصبعا واحدا الخلاصة : يجب اعتماد حقل واحد يحتوي على وحدة معينة من الصنف ، هي التي يتم التعامل معها .

وده شرح فيديو لعله يفيد بشئ

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

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

الذي اعرفه CancelEvent تستخدم عادة في حدث قبل التحديث حين لا يتحقق شرط ما .. يتم إلغاء الإجراء ( البيانات المدخلة) .. ويمتنع التحديث اما Exit sub فهي عند عدم تحقق الشرط تلغي الإجراء وتتيح القفز الى اجراء آخر داخل الحدث

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

تسلم يداك تقول العرب : إذا جاء سيل الله بطل سيل معقل ..

جرب المرفق لعله يكون المطلوب عمل الفراز.accdb واذا ترغب تشغيل الفرز فقط من خلال زر الامر الفراز احذف الكود الموجود في حدث بعد التحديث لمبربع التحرير والسرد cmbLocation

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

رائع استاذنا الفاضل ولكن عند فتح النموذج تكون النتيجة Record 1 Of 1 Records مهما كان عدد السجلات وبعد التنقل للسجل التالي يعطي النتيجة الصحيحة وبعد اضافة Me.RecordsetClone.MoveLast قبل الكود تكون النتيجة Record 1 Of 4 Records مطابق للعدد الكلي للسجلات

لا اعلم اذا كان فهمي صحيح جرب الملف المرفق Database1121.accdb

السلام عليكم اخواني. حسب خبرتي المتواضعة هذا الكود تابع لبرنامج Dbpix 20. . وهذا رابط الشركة. http://www.ammara.com أتمنى أن يكون فيه إفادة.

واذا اردت ان تعرف سبب الخطأ ، اي لماذا كان يعمل على اكسس 2003 ولم يعمل على اكسس 2016 : جعفر

Exit sub

احسنت استاذنا @ابوخليل وهذا الامر شاهدتة لدى احد مستخدمي برنامجنا الاصدار بيتا 4 وهو متخصص في بيع التمور يقوم بتسجيل الوحدة الاصغر مغلف وليس كرتون مع اننا اتحنا له استخدام اي منهما

السلام عليكم 🙂 هناك الكثير من الميزات/الاوامر التي يعطينا برنامج الاكسس ، والتي يمكن ان نعمل لها بديل ، ولكن يكون هناك فرق في سرعة تنفيذ كودنا مقارنة مع الكود الاصل من الاكسس !! مثل القائمة المختصرة التي تظهر لنا بالنقر على زر الفأرة الايمن ، والتي بها يمكننا ان نستغني عن الكثير الاوامر ، مثل الفرز والتصفية بأنواعه ، ولكن وللأسف الشديد ، فأنا ارى ان 99.99% من البرامج ، يتم حذف هذه القائمة وعدم تفعيلها ، والسبب ان المستخدم يستطيع ان يدخل في تصميم النموذج من خلال هذه الاوامر(في الدائرة الحمراء) : و . ويضطر المبرمج ان يعوض بقية الاوامر في القائمة ، بمجموعة من الازرار ، او بطرق مختلفة !! ----------------------------------------------------------------------------------------------- الاكسس يسمح لنا ان نعمل قوائم مختصرة Shortcut Menu والتابعة لمجموعة CommandBars ، حسب احتياجنا ، ونختار ما نضعه فيها 🙂 هناك 3 انواع من هذه القوائم : الثابته ، والمؤقته ، والمؤقته التي تحتاج الى كود. الثابته: وهي التي عندما نعملها ، تصبح مستقله عن الكود ، وتُحفظ وتبقى في قاعدة البيانات بعد إغلاقها ، ويمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى ، بإستخدام : . ونختارها في النموذج : . او التقرير : . هذا مثال لعمل الكود الاساس لعمل قائمة قطع/نسخ/لصق : Option Compare Database Option Explicit Dim cmb As Object Dim cmbCtrl As Object Dim cmbName As String ' ' ' to use: ' Dim cbr As Commandbar ' Dim cbrButton as CommandbarControl ' ' we have to select in the References: ' Microsoft Office xx.x Object Library ' Public Function SCM_Copy(Optional DeleteMe As Boolean = False) On Error Resume Next 'If menu with same name exists delete cmbName = "cmb_Copy" CommandBars(cmbName).Delete If DeleteMe = True Then Exit Function If Err.Number <> 0 Then Err.Clear Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False) With cmb .Controls.Add msoControlButton, 21, , , False ' Cut .Controls.Add msoControlButton, 19, , , False ' Copy .Controls.Add msoControlButton, 22, , , False ' Paste End With Set cmb = Nothing End Function . وشرح الكود : 1. اسم القائمة المختصرة ، والتي سوف نختارها في النموذج او التقرير ، 2. هذه المجموعة الاساس منبثقة Popup ، 3. بينما هذه المجموعات عبارة عن ازرار Buttons ، وقد تكون قائمة منسدلة Combobox ، او نص Edit نُدخل فيه قيمة معينة للتصفية مثلا ، 4. هل هذه القائمة مؤقته ؟ False معناها ثابته وتُحفظ في قاعدة البيانات ، بينما True معناها انها مؤقته وتعمل لما ننادي الوحدة النمطية/الكود ، 5. هذه ارقام كل امر ، وملف الاكسل المرفق من مايكروسوفت فيه جدول يضم جميع ارقام الاوامر للاكسس 2010 () ، 6. اذا اردنا ان نحذف هذه القائمة ، فننادي الوحدة النمطية بضم True في امر المناداة المؤقته: ونستعمل True في مكان الرقم 4 اعلاه. وهي التي عندما نعملها ، لا تصبح مستقله عن الكود ، ولا تبقى في قاعدة البيانات بعد إغلاقها ، ولا يمكننا ان نستوردها في قاعدة بيانات اخرى عندما نستورد احد/جميع كائنات قاعدة البيانات الآخرى (كما هو الحال مع القائمة الثابته) ، ويجب ان نستخدم "حدث فتح" النموذج/التقرير لعملها واستخدامها في النموذج/التقرير ، و "حدث اغلاق" النموذج/التقرير لحذفها ، طيب ، خلونا نعمل هذه القائمة : Public Function SCM_Copy_Sort(Optional DeleteMe As Boolean = False) On Error Resume Next 'If menu with same name exists delete cmbName = "cmb_Copy_Sort" CommandBars(cmbName).Delete If Err.Number <> 0 Then Err.Clear Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, False) With cmb Set cmbCtrl = .Controls.Add(msoControlButton, 21, , , False) ' Cut cmbCtrl.Caption = "Cut..." cmbCtrl.FaceId = 21 Set cmbCtrl = .Controls.Add(msoControlButton, 19, , , False) ' Copy cmbCtrl.Caption = "Copy..." cmbCtrl.FaceId = 19 Set cmbCtrl = .Controls.Add(msoControlButton, 22, , , False) ' Paste cmbCtrl.Caption = "Paste..." cmbCtrl.FaceId = 22 Set cmbCtrl = .Controls.Add(msoControlButton, 210, , , False) 'Sort Ascending cmbCtrl.BeginGroup = True cmbCtrl.Caption = "فرز تصاعدي..." cmbCtrl.FaceId = 210 Set cmbCtrl = .Controls.Add(msoControlButton, 211, , , False) 'Sort Decending cmbCtrl.Caption = "فرز تنازلي..." cmbCtrl.FaceId = 211 End With Set cmb = Nothing End Function . وشرح الكود: احنا توسعنا في الكود الاساسي ، واضفنا له : 1. تسمية اختيارية غير الافتراضية ، لاحظ في الصورة اعلاه اني استعملت الانجليزي والعربي ، 3. وهو لعمل خط فاصل في الصورة بين مجموعة قطع/نسخ/لصق ومجموعة فرز تصاعدي/تنازلي ، . 2. ممكن ان نبدل الصورة الافتراضية التي تيجي مع الرقم ، بتبديل هذا الرقم (لاحظ صورة الاسهم للتصاعدي/التنازلي) : . ومرفق ارقام جميع الصور الموجودة في الاكسس : . . . . . . . . . . . في قاعدة البيانات المرفقة myRight_Click.mdb ، بالاضافة الى القوائم الثابته اعلاه ، تم اضافة هذه القائمة ايضا : . والتقرير يحتوي على القائمة المؤقته التالية : . - ملف الاكسل myList.xlsx ، اخترت فيه اهم القوائم في وجهة نظري ، - ملف الاكسل AccessControls_2010.xlsx ، من مايكروسوفت ، يحتوي على جميع الاوامر 🙂 جعفر المصادر: http://dev-soln.com/access-shortcut-right-click-tool/ https://www.experts-exchange.com/articles/12904/Understanding-and-using-CommandBars-Part-II-Creating-your-own.html https://filedb.experts-exchange.com/incoming/2014/02_w06/833359/CommandBars-II.mdb https://www.experts-exchange.com/articles/18341/CommandBars-Part-III-Using-Built-in-Shortcut-Menus.html http://www.skrol29.com/us/vtools.php AccessControls_2010.xlsx myList.xlsx myRight_Click.zip

اعرض الملف البرنامج الطبي الشامل برنامج للمراكز الطبيه يشمل الاستعلامات والمختبر وقسم الحسابات واقسام اخرى صاحب الملف الدكتور جمال راجح تمت الاضافه 24 مار, 2019 الاقسام قسم الأكسيس

وايديك استاذ @فايز.. ومبارك عليك الشهر الحقيقة كنت مستعجلة وعملت الكود في زر الفراز وايضا في حدث بعد التحديث للقائمة المنسدلة cmbLocation وكان الافضل في حالة تكرار كود معين ان نشير اليه فقط بدون اعادة كتابتة مادام الامر ضمن نفس النموذج اي ممكن استبدال الكود للقائمة cmbLocation cmdFilter_Click بدلا من Dim myfilter As String myfilter = "[year_1]='" & [cmbLocation] & "'" Me.frmOrder.Form.Filter = myfilter Me.frmOrder.Form.FilterOn = True ولا توجد مشكله في ترك الامر بدون تعديل الملف بعد التعديل عمل الفراز.accdb

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

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

لا يوجد ضمن الحقول في الجداول اسم الطبيب وتخصصه .. أين هي ؟؟

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

وانا اذا فهمي صحيح ، اعمل حقل Label اسمه R ، واستعمل هذا الكود : Private Sub Form_Current() Me.R.Caption = "Record " & CurrentRecord & " Of " & RecordsetClone.RecordCount & " Records" End Sub جعفر

الاخ العزيز @أحمد الفلاحجى الفديو رائع وهناك شرح للاصناف في الدقيقة 6 كما ان الادخال يكون لكلا الوحدتبن معا في الدقيقة 30

هممم هذا السؤال صعب الاجابة عليه !! فإذا عملت تصفية للحقل1 ، فعدد السجلات وترتيبها سيختلف من انك اذا عملت تصفية للحقل2 ، واذا عملت تصفية عن طريق الحقلين ، فهذا ترتيب آخر ، واحلاها ، انك بعد ان تعمل كل هذه التصفيات ، تقوم بعمل فرز تصاعدي عن حقل آخر 🙂 جعفر

وعليكم السلام 🙂 ممكن نستخدم الطريقة اللي في الصورة المرفقة ، . ولكن مع التغيير التالي: مجموع علامات الصح Section_A: iif([Section]=-1,1,0) مجموع بدون علامة صح Section_B: iif([Section]=0,1,0) جعفر

تحديد النوع يسجل آليا بمجرد ادخال كود الصنف _ بل ان جميع البيانات تدخل آليا _ ليس للبائع صلاحية ادخال او تعديل اي شيء غالبا الحقل الوحيد الذي يمكنه التعديل عليه ويظهر امامه في الشاشة هو : عدد المباع

ولو ارفقت مثال لكن اسهل الرد على مشاركتك

اخى وحبيبى واستاذى العزيز محمد انت على راسى واهل الصعيد كلهم وكل عام وانتم وجميع المسلمين والمؤمنين طيبين وتقبل الله منكم الصيام والقيام والقرآن انا لا اغضب من اخوتى واساتذتى فهم يامرونى امر والله يعننى على التنفيذ باذن الله احبك الذى احببتنا فيه وجعلنا فى ظله يوم لا ظل الا ظله انا معك المعلومات كثيره ولذلك تعمل الشاى والقهوه وتيجى جمبنا انا واخى واستاذى الحبيب خالد @kha9009lid فنحن من محبى الشغل على مهل 😀 اهو ربنا يعينك وتستفاد منه باكبر قدر ممكن ان شاء الله ونسال الله انا ينفعنا واياكم مما علمنا من فضله وعلمه انه هو العليم الحكيم منور اخى ومعلمنا الجليل @ابوخليل وكل عام وانتم بخير

تفضل لا داعي لذلك الكود الطويل . هذا الكود يقوم بالمطلوب ملاحظة: عليك نقل نفس تسمية اوراق العمل الى الكومبوبكس دون اضافة حتى لا تظهر رسالة خطأ لقد صححت ورقتين و انت قم بالباقي شششششش.xlsm

لا أستطيع الاختيار الا اذا وردت فى جملة كاملة

حول الحقل من رقم الى نص مختصر 222.accdb

أهلين أخي أبو عبد الله مازلت لم أتوصل إلى ذلك بعد

باذن الله استاذي محمد سلامة

الحل الاتصال بمبرمج القاعدة للحصول على كلمة المرور

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

ماشاء الله تبارك الله أخي @أبو إبراهيم الغامدي وكل عام وانت بخير

في الاساس برنامج نقطة بيع الذي عملته لمبيعات التجزئة لمتاجر وانشطة صغيرة ندخل في الموضوع اغلب الاصناف يتم توريدها بالكرتون ويتم ترميزها برمز الكرتون لمبيعات كرتون وترمز بالعلبة للبيع المفرد وهو الاكثر مبيعا الترميز فقط للاصناف الجديدة التي لم يسبق ترميزها الاصناف بالكرتون عند بيعها بالكرتون لا توجد هنا اي مشكلة اما اذا اردنا ان نفتح كرتون لبيع مفرد او تلف لبعض العبوات في الكرتون او تلف التغليف الخارجي للكرتون فلدينا شاشة تفريد الاصناف يتم فيها اختيار الصنف ( الكرتون ) والصنف المفرد ثم النقر على امر تفريد فيتم زيادة كمية الصنف علبه او وحدة بعدد العلب الموجودة في الكرتون اي ان اضافة الاصناف المفردة تكون لدينا من خلال فاتورة المشتريات مباشرة او من خلال شاشة تفريد صنف اما الصنف كرتون فيكون فقط من شاشة فاتورة مشتريات اي صنف يتم تفريدة يتم نقل تكاليفة الى صنف مفرد وتنقص كميتة من رمز كرتون مثلا لدينا 10 كراتين ماء صفا 200 مل تم تفريد كرتون واحد يكون المتبقي 9 كراتين وفي خانة ملاحظات كرتون 1 تم التفريد وتزيد كمية علبة ماء صفا بمقدار 48 علبة على العموم البرنامج في مرحلة التجربة في بيئة عمل فعلية وهناك العديد من الملاحظات التي لم يتسع وقتي لمعالجتها بسبب الاوضاع الحالية والمزاج الغير مواتي وتقبل اطيب تحياتي

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

هلا اخي تفضل TEST5.accdb

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

وعليكم السلام اخى واستاذى العزيز @أبو عبدالله الحلوانى كل عام وانت بخير منور الموقع مشاركه مع اخى الفاضل @ابو تراب جزاه الله خيرا لعل هذا الشرح يفيدك ايضا جزاه الله خيرا استاذ محمد فؤاد http://arabteam2000-forum.com/index.php?/topic/125583-كيف-تبني-برنامج-مخازن-ومبيعات-بطريقة-صحيحة-؟؟/ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

هلا اخي هذا ليس اجابة عن سؤالك ولكم حبيت اشاركك تصميم مراقبة المخزون (متجر بيع بالتجزئة) Inventory Control (Retail Store) لعلى فيه بعض الافكار http://www.databaseanswers.org/data_models/inventory_control_for_retail/index.htm بالتوفيق

انت لم تقل انك تريد كل الكلمات على كل حال حاري العمل على استخراج الكل لكن بداية هل تريد ان تكون النتيجة في خلية واحدة اما كل كلمة في خلية في البداية الكل مجتمعين الكود Option Explicit Function Text_ALL(rng As Range) Dim i%, x$ With CreateObject("VbScript.RegExp") .Global = True .Pattern = "([\u0621-\u064A]+)" If Not (.Test(rng.Value)) Then _ Text_ALL = vbNullString: Exit Function For i = 0 To .Execute(rng.Value).Count - 1 x = x & " " & .Execute(rng.Value)(i).Value Next i Text_ALL = x End With End Function الملف separate_names_new.xlsm

والآن اجيب على اسئلتك: 1. هناك نوعين من Recordset ، نوع يخص DAO وآخر يخص ADO ، ومع تشابههما ، إلا ان هناك الكثير من الاوامر التي تختلف بينهم ، فإذا لم نخصص نوع الـ Recordset ، فالاكسس يستعمل مكتبة الاولى في القائمة ، مثلا ، في الصور التالية ، مكتبة ADO قبل مكتبة DAO ، فعند كتابة Recordset فقط ، فالاكسس يعتبرها تابعه لـ ADO: في الاكسس 2003 . وفي الاكسس 2010 فما فوق تم دمج مكتبة DAO في MS Office 14 Access Database engine object . 2. هذا امر OpenRecordset ، فيه عدة اختيارات ، والمبرمج اختار هذه لأسبابه ، ويمكنك الاستغناء عن الجزئين الاخيرين منها ، حيث هذا يكفي: (Set rst = db.OpenRecordset(strSQL . 3. المؤشر في سجلات Recordset يكون كما في القائمة التالية: BOF Record1 Record2 .. .. EOF حيث BOF = Begining Of File EOF = End Of File فإذا كنا على BOF او EOF فلا يوجد هناك سجلات ، فالسطر معناه ، اننا مادمنا لسنا قبل بداية ولا بعد نهاية الـ Recordset ، فقم بالخطوة التالية ، 4. انتقل الى اول سجل تصادفه (رجاء متابعة النقطة التالية) ، 5. اذا اردنا ان نجعل الـ Recordset بالكامل في ذاكرة الكمبيوتر ، فعلينا ان نأخذ المؤشر الى آخر سجل ، ثم عندما نأخذ المؤشر الى اول سجل ، فيعرف البرنامج عدد سجلات هذا الـ Recordset ، بينما في الرقم#4 اعلاه ، فنحن طلبنا منه البدء من اول سطر وبدون معرفة عدد السجلات ، والنقطتين معناها سطر جديد في الكود ، يعني: بدل كتابة For i = 1 To RC childrst.Delete childrst.MoveNext Next i يمكننا كتابة For i = 1 To RC: childrst.Delete : childrst.MoveNext : Next i . ولكننا اذا عملنا هذا الشيء لكل الكود ، فلن نعرف كيف نتصيد الخطأ ، ولا نستطيع استعمال Goto ، فنحن نستعمله في نطاق نعمل انه لن تكون لدينا اخطاء فيه جعفر

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

المطلوب غير واضح بالضبط ولكن انظر التعديل على المرفق آمل اني حققت مطلوبك أما المنازل العشرية في الحقول اولا اذهب الى الجدول وغير في خصائص الحقل المطلوب : حجم الحقل= مزدوج تنسيق= ثابت أو قياسي المنازل العشرية= 2 ثم غير في خصائص حقل النموذج : لسان التبويب تنسيق تنسيق= ثابت أو قياسي ( حسب ما اخترته في الجدول ) x.rar