jjafferr

وعليكم السلام احد الطرق: 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. التعديل يتم حفظه مباشرة في الجدول ، وبدون زر الحفظ جعفر

وعليكم السلام واهلا وسهلا بك في المنتدى تفضل: Account_Pending_Days: IIf(Len([Payment_Date] & '')=0;Time()-[Account_Receiving_Date];[Account_Receiving_Date]-[Payment_Date]) ولكني اعتقد بانه يجب عليك استخدام Date() بدلا عن Time() ليصبح الكود Account_Pending_Days: IIf(Len([Payment_Date] & '')=0;Date()-[Account_Receiving_Date];[Account_Receiving_Date]-[Payment_Date]) جعفر

وعليكم السلام نعم ممكن: في تصميم التقرير ، في اعدادات الصفحة: . وللعلم ، فإن هوامش الطابعة سوف تضاف الى العرض ايضا ، ولا يمكن عمل هوامش الطابعة = صفر (إلا في الطابعات الافتراضية) ، وبعد عمل جميع الاعدادات وضبط عرض التقرير ، وللتأكد ان عرض التقرير سيُطبع على حجم الورقة التي تم اختيارها ، انظر الى اسم التقرير الموجود في اعلى يسار التقرير (البضاعة في مثالنا اعلاه) ، انظر تحته ، فإذا رأيت مثلث اخضر صغير ، فمعناه ان عرض التقرير اكبر من عرض الورقة وعادة عملنا يفرض علينا طباعة تقارير باحجام اوراق مختلفة ، والطابعات هذه الايام تأتي بعدة ادراج لمختلف احجام الورق ، فيمكنك بالطريقة التالية عمل اعدادات الطابعة لطباعة هذا التقرير بحجم A5 وعلى ورق A5 من الرج رقم 2 من الطابعة HP8500 مثلا: . جعفر

السلام عليكم الطريقة الصحيحة للبرمجة: 1. حقل الرقم التلقائي ، هو فهرسة لسرعة جلب بيانات الجدول للبرنامج ، يعني هذا الحقل يجب ان لا يعتمد عليه المبرمج وانما هو للبرنامج (نعم تستطيع استعماله متى ما شئت بالوضع الذي هو عليه) ، 2. حقل التسلسل ، وهو الحقل الذي يعمله البرنامج حسب حاجته فالآن انت خلطت بين الاثنين والحل ان تترك هذا الحقل مثل ماهو ، ولا تهتم بارقامه ، واعمل حقل جديد تعتمد عليه لبرنامجك جعفر

وعليكم السلام يجب عليك تغيير اسم المسار والمجلد ، الى مسار ومجلد موجود عندك في الجهاز ، هذه الرسالة تقول بأنك تريد حفظ الملف في مسار/مجلد غير موجود ، والمسار حسب الكود هو: c:\temp جعفر

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