jjafferr

وعليكم السلام شكرا لك أخي شوقي جعفر

وعليكم السلام هذا البرنامج يؤدي الكثير من الاشياء للأكسس ، ومنها طلبك: http://www.skrol29.com/us/vtools.php جعفر

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

وعليكم السلام رجاء ترفق لنا هذه الجزئية من برنامجك علشان نراه ، وقبل ان ترفعه على الموقع يجب عليك ان تضغظه بواسطة winrar او winzip. جعفر

وعليكم السلام اذا عندك 10 سجلات مثلا ، فكيف ستأخذ قيمة من السجل رقم 4 مثلا؟ المعيار سيكون وسيلتك لتصفية هذا السجل ، او معيارين مثل ID=4 او fName='جعفر' المعادلة هذه نستخدمها عادة لأخذ قيمة من جدول ، ولكننا نستطيع استخدامها لأخذ قيمة من استعلام كذلك ، كما هو الوضع في حالتك جعفر

وعليكم السلام احد الطرق: dlookup("[Taslal2]","Nataej_1_Cors2_E", ....هنا يأتي المعيار....) جعفر

لا يوجد شرح للموضوع ، والشرح التالي لا يدل على المطلوب رجاء فتح موضوع آخر به معلومات كافية ، حتى يستطيع الاعضاء فهم الموضوع ، وبالتالي الاجابة عليه. يُغلق. جعفر

وعليكم السلام الكود اللي توصلنا اليه يستخدم حقلين فقط كمعيار: [رقم الفاتورة] و [اسم العميل] ، تو مو دخّل التاريخ في الموضوع!! جعفر

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

انا الذي اراه من برنامجك هو: . والنتيجة . جعفر

وعليكم السلام نعم ، تستطيعين ان تحذفين المرجع ، ثم بدلا عن الربط المسبق Early Bounding: Dim AccApp as Excel.Application تستخدمين الربط المتأخر Late Bounding: Dim AccApp as object . وهذا ينطبق على اي متغير للأكسس في الكود ، ولكن الكود قد يحتاج الى تعديل بعض الاحيان ، وبعض الاحيان لا يمكن العمل بدون الربط المسبق ، جعفر

وعليكم السلام اخي محمد واهلا وسهلا بك في المنتدى كما شرح اخواي أوس Sandanet وشفان ان قوانين المنتدى لا تسمح بأكثر من سؤال في كل موضوع ، وبما انهم قد اعطوك الحلول ، فسأقوم بترك الموضوع كما هو ، ولكن رجاء قراءة شروط المنتدى قبل ان تقوم بوضع سؤال آخر شكرا اخي @sandanet واخي @Shivan Rekany ، واستسمحكم على التعديل في مشاركتكم جعفر

وعليكم السلام لوسمحت توضح المطلوب بتفصيل اكثر لوسمحت!! عندك 3 تقارير فرعية ، في كل تقرير فرعي مجموع الرصيد ، فاذا كنت تريد تجمع مجموع التقارير الثلاث ، فالمعادلة ستكون Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) Me.Sum_raseedafter = Me.rpt_2!Sum_raseedafter_rpt2 + Me.rpt_3!Sum_raseedafter_rpt3 + Me.rpt_4!Sum_raseedafter_rpt4 End Sub ولكني ارى انك تسأل عن نفس الشيء الذي سألته هنا: جعفر 680.1.الاجازات - Copy.accdb.zip

في عدة طرق ، بس الاسهل ، مع الحدث بعد تحديث n1 ، مع الضغط على زر البحث: Private Sub أمر176_Click() Me.n1 = Me.n1 - 1 Call n1_AfterUpdate Call أمر20_Click End Sub Private Sub أمر183_Click() Me.n1 = Me.n1 + 1 Call n1_AfterUpdate Call أمر20_Click End Sub جعفر

السلام عليكم الحمدلله انك استطعت الوصول الى حل بالنسبة الى السجل السابق والسجل التالي ، تستطيع استعمال هذا الكود Private Sub cmd_Previous_Click() On Error GoTo err_cmd_Previous_Click DoCmd.GoToRecord , , acPrevious Exit Sub err_cmd_Previous_Click: If Err.Number = 2105 Then MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub Private Sub أمر176_Click() On Error GoTo err_أمر176_Click ' Me.Refresh ' ' With Recordset ' If .AbsolutePosition = .RecordCount - 1 Then ' MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" ' Else ' DoCmd.GoToRecord , , acNext ' End If ' End With DoCmd.GoToRecord , , acNext Exit Sub err_أمر176_Click: If Err.Number = 2105 Then MsgBox "هذا هو الســجل الأخير", vbInformation + vbOKOnly, "تنبيه" Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . جعفر

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

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

وعليكم السلام أختي عندي اسئلة ومحتاجة توضيحات لوسمحتي: في الجدول T2 ، عندك سجل واحد فقط لكل موظف لكل شهر ، فالطريقة التي اوضحتيها في الصورة غير صحيحة ، لأنك تجمعين 3 اشهر !! جعفر

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

وعليكم السلام استاذنا الفاضل ، اتمنى ان تستخدم هذه النسخة كنسخة اصلية لبرنامجك ، فقد عدلت لك اسماء الكائنات من جدول و نموذج وتقرير واستعلام ، بمسميات البرمجة الصحيحة ، مما يجعله من السهل التعامل مع برنامجك ، لك ولنا اما طلبك ، فلم يكن سهلا بطريقة برنامجك القديم ، اما بهذه الطريقة فاصبح في غاية السهولة ، والكود الذي تريده اصبح: Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) Me.Tsum = Me.srpt_person!sumpage_raseedafter End Sub جعفر 701.الاجازات - Copy.accdb.zip

آسف على الخطأ يجب ان نغيّر الشرطة الواحدة ' الى شرطتين " Account_Pending_Days: IIf(Len([Payment_Date] & "")=0;Date()-[Account_Receiving_Date];[Account_Receiving_Date]-[Payment_Date]) المعادلة Len([Payment_Date] & "")=0 تعمل مكان 3 معادلات: isNull([Payment_Date]) و [Payment_Date] = "" و اذا كان في معلومة في الحقل وتم حذفها يعني جرب التالي وبتشوف ان معادلتك ما تعطي نتائج صحيحة: 1. جرب اي معيار لأي حقل (يعني شغّل الاستعلام بطريقة عادية) وشوف عدد السجلات ، 2. اكتب شيء في حقل Payment_Date ، انتقل الى سجل آخر ، ثم شغّل الاستعلام مرة ثانية ، ستلاحظ ان عدد السجلات اصبح اقل بسجل واحد ، السجل الذي كتبت فيه وحذفت بياناته جعفر

وعليكم السلام اهلا وسهلا بك في المنتدى سؤالك غير مفهوم ، رجاء اعطاء مثال لوسمحت. جعفر

رجاء تفسير "لا يقبله الاستعلام"

وعليكم السلام انا عملت حسب طلبك ، ولكن الظاهر كان في اشياء اخرى انت لم تخبرنا عنها ، وانا لم انتبه لها 1. احذف زر الحفظ ، لأن النموذج الرئيسي يأخذ بياناته من الجدول ، 2. استعمل الكود التالي بدلا عن السابق Dim rst As DAO.Recordset Set rst = Me.Parent.RecordsetClone rst.FindFirst "[التسلسل]=" & Me.التسلسل Me.Parent.Bookmark = rst.Bookmark 'او Me.Parent.RecordsetClone.FindFirst "[التسلسل]=" & Me.التسلسل Me.Parent.Bookmark = Me.Parent.RecordsetClone.Bookmark 3. التعديل يتم حفظه مباشرة في الجدول ، وبدون زر الحفظ جعفر