أبوبسمله

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

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

بعد اذن اخى واستاذى @د.كاف يار اتفضل اخى وبالتوفيق ان شاء الله Pupil Names_UPDate.accdb

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

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

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

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

وعليكم السلام اتفضل اخى عسى ان اكون فهمت طلبك يوضع الكود التالى فى حدث عند الفتح او التحميل docmd.Maximize بالتوفيق ان شاء الله 3-7-0.rar

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

اخى الفاضل ممكن تطلع على الرابط التالى سوف يفيدك باذن الله تعالى http://arabteam2000-forum.com/index.php?/topic/35237-الأسس-العلمية-لقواعد-البيانات/&do=findComment&comment=169444 وتمنياتى لك وللجميع بالتوفيق

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

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

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

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

انا الذى عليه شكركم اخوانى واساتذتى بارك الله فيكم اضافه جميله باستخدام تاج الترقيم اخى صالح @ابوآمنة ولكن ايضا يضيف السجل الفارغ برقمه والكود التالى بدون استخدام التاجات خالص فالمشاركه السابقه لى Dim ctl As Control On Error Resume Next For Each ctl In Me.Controls If ctl.ControlType = acComboBox Or ctl.ControlType = acTextBox Then 'Add other control types here ctl.Value = "" End If Next ctl Set ctl = Nothing DoCmd.GoToRecord , , acNewRec فقمت باستخدام حذف السجل الفارغ المضاف واعاده الفهرسه هذا ما توصلت اليه حتى لا يكون هناك سجلات فارغه وجزاهم الله خيرا اساتذتنا ومعلمينا فى اول تعديل لظهور الخطأ وشغال تمام وملاحظتك لى عندما قلت لم يشتغل معى وارفقت مثالك اتضح لى الخطأ ما بين مثالى الذى اعمل عليه ومثالك المرفق وننتظر صاحب السؤال ليقول هل تم تجربه الاكواد ع قاعده البيانات الخاصه به وهل تم طلبه تمتعت واستفدت كثيرا من مشاركتكم معى وانتظر ايضا اخى على @Ali Sadiq للتعقيب وشرح كوده فضلا لا امرا وهل فعلا محتاج التاج كما اشتغل معى بوضع التاجات ام هناك شىء لم افهمه وارجو منكم قبول عذرى وجهلى فمازلت اتعلم واحاول ان افهم منكم اخوانى واساتذتى بارك الله فيكم وجزاكم الله كل خير تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق بالنجاح احبكم فالله

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

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

وانا اضم صوتى مع اخوانى الافاضل فى انتظار توضيح ذلك ؟ جزاك الله خيرا تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

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

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

توصل بالسلامه ان شاء الله اخى صالح جزاك الله خيرا فى ملحوظه مهمه : بان الكود يعمل لدى لان حقل الترقيم التلقائى بالكود وليس ترقيم تلقائى كما بمثالك اخى صالح جزاك الله خيرا اخى @kaser906 على مشاركتك لنا قد افرغ النص بالتاج اخى كاسر @kaser906 مع الابقاء على حقل الرقم بالفعل والكود التالى الذى توصلت اليه يقوم بنفس العمل يقوم بتفريغ النصوص ما عدا حقل الترقيم وكذلك من غير وضع التاجات فى حين هناك الكثير من مربعات النص ثم الذهاب لسجل جديد Dim ctl As Control On Error Resume Next For Each ctl In Me.Controls If ctl.ControlType = acComboBox Or ctl.ControlType = acTextBox Then 'Add other control types here ctl.Value = "" End If Next ctl Set ctl = Nothing DoCmd.GoToRecord , , acNewRec ولكن يفرغ الحقول وينشىء حقل فارغ واخر تعديل لى مع الترقيم التلقائى مع مثال اخى صالح @ابوآمنة Dim ctl As Control On Error Resume Next For Each ctl In Me.Controls If ctl.ControlType = acComboBox Or ctl.ControlType = acTextBox Then 'Add other control types here ctl.Value = "" End If Next ctl Set ctl = Nothing Me.RecordSource = "" DoCmd.SetWarnings False DoCmd.RunSQL "DELETE Temp3.f1, Temp3.f2, Temp3.F3, Temp3.ID FROM Temp3 WHERE (((Temp3.f1) Is Null)) OR (((Temp3.f2) Is Null)) OR (((Temp3.F3) Is Null));" DoCmd.RunSQL "DROP INDEX ID ON Temp3;" DoCmd.RunSQL "alter table Temp3 drop ID;" DoCmd.RunSQL "alter table Temp3 Add column ID autoincrement;" DoCmd.RunSQL "CREATE UNIQUE INDEX ID on Temp3(ID) ;" DoCmd.SetWarnings True Me.RecordSource = "Temp3" DoCmd.GoToRecord , , acNewRec وفى انتظار شروحاتكم مرفق المثال تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق تفريغ الحقول(1).mdb

اخى صالح جزاك الله خيرا قمت بالتجربه على النوذج به حقل الكمبو ومربع النص فقط وعمل بنجاح اما النموذج اللذى به حقل الترقيم لم يعمل ويعطى الخطأ التالى الغريب فالامر ان كود اخى على @Ali Sadiq قد عمل بعض وضع رقم 1 فالتاج تقبلوا تحياتى وفى انتظار اخى صالح @ابوآمنة لرؤيه هذا الخطأ مع العلم بان هذه الطريقه مرهقه ايضا فلدى اكثر من 10 مربعات نص + 2 كومبو جزاكم الله خيرا اخوانى واساتذتى اخى صالح بالنسبه للكود التالى الذى وضعته لمعالجه الخطأ اللذى يظهر يعمل بنجاح لدى على جميع الحقول فى النموذجين الذى به ترقيم والنموذج الفارغ On Error GoTo Err_Handler Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acComboBox Or ctl.ControlType = acTextBox Then 'Add other control types here ctl.Value = "" End If Next ctl Exit_Handler: Set ctl = Nothing Exit Sub Err_Handler: ' Use next line for debugging ' MsgBox "Error " & Err.Number & " - " & Err.Description Resume Exit_Handler

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

نفس رساله الخطا اخى الفاضل يوليوس تقبل تحياتى اخى الفاضل

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