أبو آدم

أخوتي الأعزاء Bluemind و نور الرياض الآن الصورة واضحة شكرا للتوضيح جزيتم خيرا

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

أخي العزيز طبعا لا مانع ابدأ بانشاء القاعدة ونتابع معك خطوة بخطوة ولله الفضل وهو المستعان

بارك الله بك أللهم علمنا ما ينفعنا وانفعنا بما علمتنا

أخي أبا محمد إن كنت قد أحسنت الفهم عنك فهذا ما تريد نقدا >>> بدون إظهار الشيك شيك >>> إظهار صورة الشيك تفضل ووافني بالنتيجة ... NA_Tips_Voucher_3.rar

أخي العزيز بالتجربة جملة SQL تفي بالغرض (وبحدود طلبك) إن كنت قد أحسنت الفهم عنك Private Sub Command20_Click() DoCmd.RunSQL "UPDATE data, elem_eldrsy SET data.Cod_asas = [elem_eldrsy].[Cod_elem_eldrsy] " & vbCrLf & _ "WHERE (((data.ELSF)<>6));" End Sub جرب ووافني بالنتيجة ....

اللهم آمين جزاك الله عني خير الجزاء ، بما أحسنت من الدعاء والحمد لله الذي بفضله تقضى الحاجات (تمت الإ جابة )

أخي أبا محمد هذا كلا لا داعي له ، نحن هنا متطوعون ولوجه الله تعالى لمساعدة طلاب العلم بما يفتح الله به علينا ، أحيانا يأذن الله فنفلح ، وإلا فنحن وإياكم طلاب علم يخدم بعضنا بعضا . ولك مني أن لك علي وعلى إخوتك أن تسأل ما تشاء متى تشاء. تفرغت الليلة للإجابة على سؤالك بما فتح الله علي التزمت بالشرط الذي ذكرت جرب رقم السند 10 و أنظر النتيجة ..... ثم جرب رقم السند 11 وأنظر النتيجة .... !!!! ثم إطلع على الكود في التقرير ووافني بالنتيجة .... ولي عندك ..... أن تدعوا لي بظهر الغيب دعوة طيبة يرفع الله بها عني ما ابتلاني به من مرض NA_Tips_Voucher_2.rar

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

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

أخي العزيز كنت أتطلع للأفضل لك ، ولكن لا بأس لكل إمرئ فيما يحاول مذهب عدلت الكود كما تريد ، جربه لأنني لم أجربه ، ووافني بالنتيجة ..... Sub MuProc() 'This code was written and Generated by Nart Lebzo for Officena Forum 'http://www.officena.net 'E-mail: nartlebzo@gmail.com On Error GoTo Err_MyProc Dim db As DAO.Database Dim rst As DAO.Recordset Dim rst1 As DAO.Recordset Set db = Access.Application.CurrentDb Set rst = db.OpenRecordset("data", dbOpenDynaset) Set rst1 = db.OpenRecordset("elem_eldrsy", dbOpenDynaset) If rst!ELSF <> 6 Then With rst .MoveLast .MoveFirst Do While .EOF = False .Edit !Cod_asas = (rst1!Cod_elem_eldrsy) !up = True .Update .MoveNext Loop End With End If Exit_MyProc: Set rst = Nothing Set db = Nothing Exit Sub Err_MyProc: MsgBox Err.Description Resume Exit_MyProc End Sub والله أعلم

أخي وأستاذي محمد طاهر جزيتم خيرا على هذه الجهود الجبارة للارتقاء بمستوى الموقع ، ،، كل جديد يزيدنا فخرا وتمسكا بهذا الموقع الرائع ، وسيبقى لنا بيتا وملاذا طيبا وبوابة شامخة لطلاب العلم بإذن الله أخي العزيز عند لصق كلمات عربية من ضمن الكود في محرر الكود تظهر على شكل أرقام ؟؟؟ !!! If rst!Cod_asas = rst1!Cod_elem_eldrsy And rst!up = True Then MsgBox "&#218;&#227;&#225;&#237;&#201; &#199;&#225;&#202;&#209;&#205;&#237;&#225; &#202;&#227;&#202; &#211;&#199;&#200;&#222;&#199; &#161; &#199;&#225;&#211;&#228;&#201; &#199;&#225;&#207;&#209;&#199;&#211;&#237;&#201; &#225;&#227; &#202;&#228;&#202;&#229;&#237; &#200;&#218;&#207;", vbCritical, "&#202;&#205;&#220;&#220;&#220;&#220;&#208;&#237;&#209;" GoTo Exit_MyProc End If فما الحل ؟؟؟ علمونا مما علمكم الله

المشكلة ما زالت قائمة

أخي العزيز التطبيق المعدل مرفق أطلع على الجدول data قبل أي إجراء قم بتنفيذ عملية الترفيع للسنة الدراسية الجديدة من النموذج Form أعد الاطلاع على الجدول data بعد اجراء الترفيع حاول تنفيذ الترفيع مرة أخرى ... وتحقق من النتائج !!! كنت أجرب الكود لمدة ساعتين وفكرت في جميع الاحتمالات ... الامور جيدة وأظن انها تحقق الغاية بشكل ممتاز لست مطلعا على كامل التطبيق لديك ولست على دراية بتحليلك للنظام ، ولكن أظن أنه قد يلزمك نقل الطلاب المتخرجين من الجدول لجدول جديد يشمل معلومات الخريجين !!! جرب وتمهل ووافني بالنتيجة .... والله أعلم NA_Upgrade.rar

أخي العزيز مصطفي إسمح لي أن اتدخل قليلا في التطبيق فقد أنشأت لك الكود التالي لتنفيذ عملية الترفيع وفق اجراءات وضوابط أولية يمكن أن نضيف اليها ما يلزم Sub MyProc() 'This code was written and Generated by Nart Lebzo for Officena Forum 'http://www.officena.net 'Copyright 2011. All Rights Reserve 'E-mail: nartlebzo@gmail.com On Error GoTo Err_MyProc Dim db As DAO.Database Dim rst As DAO.Recordset Dim rst1 As DAO.Recordset Set db = Access.Application.CurrentDb Set rst = db.OpenRecordset("data", dbOpenDynaset) Set rst1 = db.OpenRecordset("elem_eldrsy", dbOpenDynaset) If rst!Cod_asas = rst1!Cod_elem_eldrsy And rst!up = True Then MsgBox "عملية الترفيع تمت سابقا " GoTo Exit_MyProc End If With rst .MoveLast .MoveFirst Do While .EOF = False .Edit !ELSF = (!ELSF) - 1 !Cod_asas = (rst1!Cod_elem_eldrsy) !up = True .Update .MoveNext Loop End With Exit_MyProc: Set rst = Nothing Set db = Nothing Exit Sub Err_MyProc: MsgBox Err.Description Resume Exit_MyProc End Sub وسارفق لك تطبيقك المعدل لاحقا والبقية تأتي ... بإذن الله والله اعلم

قيد الاجراء والمتابعة متاحة من الجميع جزاكم الله خيرا

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

تم فتح موضوع جديد بالاستفسار الجديد ، سيتم المتابعة ضمن الموضوع الجديد

ما معنى غير مرتب ، يرجى توضيح الحاجات بشكل كافي !!!!

أخي العزيز في حدث الحالي للنموذج عدل في المكان المناسب كما يلي If Me.NewRecord Then Dim ctl As Control On Error Resume Next For Each ctl In Me.Controls ctl.Enabled = True Next ctl DoCmd.GoToRecord , , acNewRec ' Use appropriate prompt for your database. Me.Caption = "New Record: Please Select The Action Type ..." End If عندي الأمور تمام جرب ووافني بالنتيجة

أخي العزيز

أخي العزيز عبارة Exit Sub تعطل ما بعدها عدل ما سبق وانظر الفرق ووافني بالنتيجة والله اعلم

أخي العزيز التطبيق جميل ومنسق ... بالتحليل والتجربة ... وانت أدرى بما لديك ، وجدت ما يلي أسماء مسارات الملفات للصور فيها خطأ حسب الصورة ، وعند ازاله "\" الاضافية تتحقق صحة المسار ويفتح الملف هناك جملة محرر أخطاء On Error GoTo HandleErr يفضل إزالتها و الاسناد لمحرر أخطاء On Error GoTo Err_Form_Current والبقية تأتي ... بإذن الله والله اعلم

أخي العزيز تفضل المرفق معدلا NA_db1_UP.rar

أخي العزيز إليك المرفق وفيه بعض التعديلات المقترحة ، أما أصل التطبيق فكما طلبته انت ، جرب وسترى انه سيحدث لك فوضي اذا بقي بدون ضوابط أضفت لك ضوابط في النموذج وفي مربعات التحرير تحديدا ، فحين تختار الصف الاول في المربع الاول يظهر لك فقط الصف الثاني (الصف الذي سيرفع اليه) .. وهكذا وهي مجرد فكرة للضوابط جرب وطور الفكرة ووافني بالنتيجة NA_New Access_UP.rar