أبوبسمله

وفين ثمن المرتجع 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 ظهر الخطأ التالى مع نموذج به حقل ترقيم وعند استعمال الكود مره اخرى فى نموذجبه كمبوبوكس ومربع نص فقط لا يقوم بمسح البيانات فهل تتشرح لنا اخى الحبيب طريقه عمل الكود فضلا منك وليس امرا جزاك الله اخى على مشاركتك لنا وتعليمنا

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

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

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

الحمدلله اللذى بنعمته تتم الصالحات اخى صالح @ابوآمنة تم تفادى الخطأ بفضل الله ثم بفضل اساتذتنا الافاضل @jjafferr و @kaser906 من الرابط التالى 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 يالاضافه للرابط التالى https://it.toolbox.com/blogs/marvinmatey/function-for-resetting-controls-on-an-access-form-051314 تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

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

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