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

انت تجري الاستعلام في الكود ، وانا محتاج ان ارى بقية الكود حتى احكم على صحته ، ولكنه ، يبدو صحيحا ، لأنه لا يحتوي على * (الشيء الذي يجب التاكد منه هو علامات & ومدى حاجتها) جعفر

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

بعد إذن حبيبنا شيفان يمكن استعمال المعادلة الآتية DSum("Field", "Table", "Field > 0") حيث table اسم الجدول و field اسم الحقل الموجود به الأرقام

انا اعمل على برنامجك الآن ، ونسال الله التوفيق جعفر

اذا كان قصدك جمع الـ 57 حقل في الجدول Students_names لكل طالب: . فالاسهل هو عمل وحدة نمطية لجمع هذه الحقول (انا اسميتها Get_Total) ، ومناداة هذه الوحدة النمطية من الاستعلام ، بحيث نرسل لها اسم الطالب ، وتقوم الوحدة النمطية بقراءة قيم حقول الطالب وجمعها: . وهذه الوحدة النمطية: Function Get_Total(N) Dim T1 As Integer Dim T2 As Integer Set rst = CurrentDb.OpenRecordset("Select * From Students_names Where [الاسم]='" & N & "'") T1 = Nz(rst![year_Ar], 0) + Nz(rst![F1_Ar], 0) + Nz(rst![F2_Ar], 0) + Nz(rst![year_Eng], 0) + Nz(rst![f1_Eng], 0) _ + Nz(rst![f2_Eng], 0) + Nz(rst![year_F], 0) + Nz(rst![f1_F], 0) + Nz(rst![f2_F], 0) + Nz(rst![year_Goem], 0) _ + Nz(rst![f1_goem], 0) + Nz(rst![f2_goem], 0) + Nz(rst![year_Algeb], 0) + Nz(rst![f1_Algeb], 0) + Nz(rst![f2_Algeb], 0) _ + Nz(rst![year_Bio], 0) + Nz(rst![M_BIO1], 0) + Nz(rst![T_BIO1], 0) + Nz(rst![M_BIO2], 0) + Nz(rst![T_BIO2], 0) _ + Nz(rst![year_chem], 0) + Nz(rst![m_Chem1], 0) + Nz(rst![T_Chem1], 0) + Nz(rst![m_Chem2], 0) + Nz(rst![T_Chem2], 0) _ + Nz(rst![year_histo], 0) + Nz(rst![T_histo1], 0) + Nz(rst![T_histo2], 0) T2 = Nz(rst![year_phys], 0) + Nz(rst![m_phyis1], 0) + Nz(rst![T_phys1], 0) + Nz(rst![m_phyis2], 0) + Nz(rst![T_phys2], 0) _ + Nz(rst![year_Goeg], 0) + Nz(rst![T_Goeg1], 0) + Nz(rst![T_Goeg2], 0) + Nz(rst![year_philaso], 0) + Nz(rst![T_philaso1], 0) _ + Nz(rst![T_philaso2], 0) + Nz(rst![year_coump], 0) + Nz(rst![m_f1_coump], 0) + Nz(rst![T_f1_coump], 0) _ + Nz(rst![m_f2_coump], 0) + Nz(rst![T_f2_coump], 0) + Nz(rst![year_Relig], 0) + Nz(rst![f1_Relig], 0) + Nz(rst![f2_Relig], 0) _ + Nz(rst![year_nation], 0) + Nz(rst![f1_nation], 0) + Nz(rst![f2_nation], 0) + Nz(rst![year_field], 0) _ + Nz(rst![year_nashat], 0) + Nz(rst![f1_nashat], 0) + Nz(rst![f2_nashat], 0) + Nz(rst![year_Badnia], 0) _ + Nz(rst![f1_Badnia], 0) + Nz(rst![f2_Badnia], 0) Get_Total = T1 + T2 rst.Close: Set rst = Nothing End Function . ونتيجة الاستعلام: . جعفر 730.sec1_2017-08-04.mdb.zip

وعليكم السلام مثل ما قال اخي احمد ، وبالصورة . جعفر

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

إليك الملف وبه الكود يتم تنشيط الكود أوتوماتيكيا إذا ذهبت للورقة التي بها تقرير PivotTable متابعة العملاء1.rar

غير خاصية أزرار التنقل في النموذج إلى القيمة : لا

اخي الكريم محمد لؤي بما أنك تريد معرفة هل للاسم صورة أم لا (مستمسك) اذاً الامر يتعلق بربط كل اسم بصورة لذلك ادرجت دالة الاستاذ عبدالله باقشير لاظهار الصور لكن لي ملاحظة : ربط الاسم الرباعي بالصورة أظن هذا الامر غير فعال لأنك اذا أخطأت بكتابة حرف او لم تفصل بين كلمتين فلن تكون النتيجة دقيقة لذلك الأفضل أن يكون لكل اسم رقم وبناء عليه تكون صورة المستمسك يكون اسمها نفس رقم صاحب الاسم الرباعي شاهد المرفق لاحظ ظهور صورةالمستمسك في العمود H عله يفيدك وبانتظار حل افضل من الاستذة مطابقة1.rar

أ / محمد صالح جزاك الله خيرا كده تمااااام والعمل أكثر من رائع

السلام عليكم ورحمة الله وبركاته وفقنا الله وإياكم لكل خير بعد إذن الأحباب المشاركين هذه محاولة مني لعلها تكون الإجابة تم التلوين باستخدام التنسيق الشرطي: بتحديد النطاق $E$8:$AI$62 من تبويب home نضغط conditional formatting ثم new rule ثم آخر أمر use a formula to ... ثم إضافة قاعدة التلوين =WEEKDAY(E$12)=6 وتعني أن يوم هذا التاريخ هو الجمعة على أساس أن ترقيم الأسبوع في إكسل يبدأ يوم الأحد ثم تحديد لون الخلفية المطلوب ثم Ok وتم تنفيذ الإظهار والإخفاء في حدث عند التغيير لورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) For c = 33 To 35 Columns(c).EntireColumn.Hidden = 0 If Day(Cells(12, c)) < Day(Cells(12, 32)) Then Columns(c).EntireColumn.Hidden = 1 Next c End Sub وهي للتأكد من أن اليوم المكتوب في الأعمدة من 33 إلى 35 أكبر من اليوم الموجود في العمود 32 وهو 28 في الشهر فإذا كان أصغر تعني أنه شهر جديد فيقوم بإخفاء العمود كله أترككم في رعاية الله mas_solok.rar

وعليكم السلام اعتذر منك ، فلم اكن متواجد في المنتدى لما عملت ردودك ما اسم الجدول ، والحقول التي تريد جمعها؟ كما اريد منك ان تعمل الحساب يدويا لطالب واحد ، حتى اعمل على مطابقة الاجابة جعفر

وعليكم السلام اخي وضاح انت استخدمت كود غير اللي اقترحته انا ، لذا اخذ مني وقت!! انا قمت بتغيير عمل التظليل الى الطريقة الموجودة في الرابط الذي اعطيتك: أ. عملت حقل غير مضمن في النموذج الفرعي ، اسميته MYn1 ، والذي سيأخذ قيمة حقل البحث n1 والموجود في النموذج الفرعي ، MYn1 مخفي ، ويأخذ قيمة n1 لما تكتب الكلمة اللي تريد البحث عنها: Private Sub n1_Change() Dim x Me.[تابع132]![MYn1] = Me.n1.Text . ب. التنسيق الشرطي: 1.نختار جميع حقول النموذج الفرعي ، 2.من قائمة التنسيق ، نختار التنسيق الشرطي ، 3. الشرط هو: اذا [Rajmsanf]=[MYn1] إعمل التظليل: . والكود اللي عندك في حدث الحالي في النموذج الفرعي والذي كان يقوم بالتظليل ، تم ايقافه جعفر 727.Database321.7777777.accdb.zip

جزاكم الله خيرا

السلام عليكم سأستخدم عمل أخي شفان ، واقوم بالتعديل عليه في الجدول ، انا لم اغير نوع الحقل الى تاريخ ، وانما استعملت الامر CDate في استعلامات اخي شفان ، لتحويل النص الى تاريخ: . ولربط هذا الاستعلام (حقل Date هنا اصبح تاريخ) بالجدول (حقل Date لا يزال نص) ، فلا يمكن ربط الحقلين في استعلام ، لذا عملت استعلام qry_enterans_absent للجدول enterans_absent ، وفيه غيرت الحقل الى تاريخ ، وربطت الاستعلامين اعلاه في الاستعلام Q2 ، والذي يحتوي على النتائج المطلوبه جعفر 729.new work.accdb.zip

لم اجد سببا ، ولكني اوقفت الرسالة بهذا الكود في النموذج الفرعي: Private Sub Form_Error(DataErr As Integer, Response As Integer) If DataErr = 2448 Then Response = acDataErrContinue End If End Sub اعتقد بأنه عندك خطأ ما في الربط بين النموذج الرئيسي والفرعي ، فعلى الرغم من حفظ البيانات في النموذج الفرعي ، إلا انها لا تظهر لاحقا !! جعفر 728.Test_Backup.accdb.zip

تم معالجة الامر (حتى في حال وجود اكثر من موظف تنطبق عليه الشروط) درجات Salim.rar

تفضل عدت الى الكود السابق ، وعدلت عليه ، والنتيجة: جعفر 722.1.up.accdb.zip

جرب هذا الملف SHEET_Salim.rar

من احدى الحلول هو ان تكتب كود للتحديث ذلك المربع

تفضل تم الاستغناء عن كود xsql بالكامل ، واستخدام الاستعلام Qry_T1 بدلا عنه جعفر 722.1.up.accdb.zip

جزيت خيرا اخينا ابو زاهر اخي السائل انا فكرت خارج الصندوق واعطيك فكرة سهلة هذا الكود ليس به اوامر بحث ولكن قد يفي بالمطلوب Private Sub Text21_AfterUpdate() DoCmd.GoToRecord , , acGoTo, Month(Text21) Me.DateMTarget_Subform.SetFocus DoCmd.GoToRecord , , acGoTo, Day(Text21) End Sub جرب وان شاء الله تمام

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

شكرا جزيلا للجميع: استخدمت هذه الكود وكانت النتائج جيدة. حيث يوضع هذا الكود في نموذج البداية عند فتح قاعدة البيانات بشرط ان يكون مفتوح دائما " يعني ممكن يكون مخفي" وكما ترون يعتمد على النموذج الفاعل اي كان ويقوم بمراقبة سجلات محددة ومتابعة التغييرات اذا حدثت . ايضا يتابع التنقل بين النماذج فاذا لم يحصل التغيير خلال الفترة المحددة ب15 دقيقة يقوم باقفال قاعدة البيانات. شكرا لمساعدتكم جميعا Private Sub Form_Timer() ' IDLEMINUTES determines how much idle time to wait for before ' running the IdleTimeDetected subroutine. Const IDLEMINUTES = 15 Static PrevControlName As String Static PrevFormName As String Static ExpiredTime Dim ActiveFormName As String Dim ActiveControlName As String Dim ExpiredMinutes On Error Resume Next ' Get the active form and control name. ActiveFormName = Screen.ActiveForm.STOLINNO 'ACTIVRECORD = Screen.ActiveControl.STOLINNO If Err Then ActiveFormName = "No Active Form" Err = 0 End If ActiveControlName = Screen.ActiveControl.ID If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.SES If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.Status If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.Problems And issues4 If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.Problems And issues2 If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.RecordID If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.lng_TblRecord If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.sesreprt1 If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.sesreprt2 If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.Frame7 If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.VendorName If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.Statusselctreport If Err Then ActiveControlName = "No Active Control" Err = 0 End If ActiveControlName = Screen.ActiveControl.NONTID If Err Then ActiveControlName = "No Active Control" Err = 0 End If ' Record the current active names and reset ExpiredTime if: ' 1. They have not been recorded yet (code is running ' for the first time). ' 2. The previous names are different than the current ones ' (the user has done something different during the timer ' interval). If (PrevControlName = "") Or (PrevFormName = "") _ Or (ActiveFormName <> PrevFormName) _ Or (ActiveControlName <> PrevControlName) Then PrevControlName = ActiveControlName PrevFormName = ActiveFormName ExpiredTime = 0 Else ' ...otherwise the user was idle during the time interval, so ' increment the total expired time. ExpiredTime = ExpiredTime + Me.TimerInterval End If ' Does the total expired time exceed the IDLEMINUTES? ExpiredMinutes = (ExpiredTime / 1000) / 60 If ExpiredMinutes >= IDLEMINUTES Then ' ...if so, then reset the expired time to zero... ExpiredTime = 0 ' ...and call the IdleTimeDetected subroutine. IdleTimeDetected ExpiredMinutes End If End Sub

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