jjafferr

آمين رب العالمين اشكرك على هذا الدعاء الجميل

علينا الدعاء ان شاء الله ، ونسأل الله القبول

حياك الله هذا الرابط به شرح كامل للامر Nz: جعفر

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

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

اذا تريد تريح نفسك من هذه الشغلة كلها ، فالرابط اعلاه فيه برنامج من مايكروسوفت يمكنك انزاله ، وسيقوم بالعملية بطريقة ثانية ، وهذا رابط البرنامج: http://go.microsoft.com/fwlink/?LinkId=263512 اما اذا الجواب عن سؤالك ، فتفضل: 1. . 2. . 3. . 4. . 5. . 6. . 7. . 8. . 9. . 10. . 11. . 12. . 13. . جعفر

السلام عليكم أخي أبوجومانة 1. تم تغيير المعادلة بإضافة الامر NZ ، حتى يتعامل مع الحقول الفارغة Null بطريقة صحيحة ، 2 و 3. استخدم هذا الكود: Private Sub السعر_AfterUpdate() Me.نص17.Requery End Sub Private Sub العدد_AfterUpdate() Me.نص17.Requery End Sub جعفر 341.فاتورة بيع 1.accdb.zip

السلام عليكم أخي مصطفى لرفع برنامجك على المنتدى ، يجب ان يكون البرنامج مضغوطا ب_ Winrar او Winzip جعفر

لمعرفة اذا كان نظام الوندوز عند 32بت او 64بت ، هنا تجد مسار معرفة هذا: . حسب موقع مايكروسوفت: https://support.microsoft.com/en-us/kb/2687441 لتسجيل الاداة (سواء كان نظام التشغيل عندك 32بت او 64بت) ، احفظ هذه الاسطر في ملف واحفظه بصيغة bat ، باسم RegFix.bat مثلا ، ثم انقر على الملف بالفأرة اليمين ، وشغل الملف كمسؤول (وإلا لن يعمل الملف بالطريقة الصحيحة) reg delete hkcr\typelib\{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}\2. /f if exist %systemroot%\SysWOW64\cscript.exe goto 64 %systemroot%\system32\regsvr32 /u mscomctl.ocx /s %systemroot%\system32\regsvr32 mscomctl.ocx /s exit :64 %systemroot%\sysWOW64\regsvr32 /u mscomctl.ocx /s %systemroot%\sysWOW64\regsvr32 mscomctl.ocx /s exit جعفر

وعليكم السلام اذا سمحت لي اشرح لك شئ بسيط عن التقرير: . انا اعطيت كل قسم من اقسام التقرير اعلاه رقم ، علشان اعرف الترتيب الذي يشتغل التقرير (يعني ترتيب تشغيل التقرير) ، وهذه نتيجة الصفحة الاولى: . من هذا نلاحظ ان الاكسس ينتهي من (تنسيق وحسابات وقفل) رأس الصفحة رقم 2 ، ثم يصل الى ذيل الصفحة رقم 4 ويعطي النتيجة ، ولأنه اقفل رأس الصفحة رقم 2 ، فلا يمكن ان نرسل اي معلومة له انا اعتذر ، فلا اعرف طريقة لعمل ما طلبته جعفر

السلام عليكم أخي حلبي اذا ممكن ترفق البرنامج القديم ، والجديد (فقط الجزئية التي لها علاقة بالشجرة) ، وان شاء الله نحاول نلقى لك الحل ، فانا اشتغل على الاكسس 2010. جعفر

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

وعليكم السلام غيّر الكود السابق الى هذا الكود: If Me.PrintCount = 1 Then curTotal = curTotal + nz(Me.الثمن,0) جعفر

وعليكم السلام هذا الكود يقوم بالعمل: Option Compare Database Option Explicit 'Optional, but recommended for every module. Dim curTotal As Currency 'Variable to sum [Amount] over a Page. ' 'From http://allenbrowne.com/ser-11.html ' Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) Me.PageTotal = curTotal End Sub Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) curTotal = 0 'Reset the sum to zero each new Page. End Sub Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) If Me.PrintCount = 1 Then curTotal = curTotal + Me.السعر End Sub . . . جعفر 339.اجمالي السعر.mdb.zip

هلا والله

وعليكم السلام انا شرحت موضوع الامر NZ بطريقة موسعة شوي: جعفر

أخوي حسين ايش رايك نطلع مثل ما يقولون Out of the Box ، وننظر للموضوع بشكل ابعد من الاكسس فقط ايش رايك بهذا البرواز: . وهكذا عملته: بحثت في الانترنت عن برواز ، وانزلته ، وكان عرضة اطول من طوله ، فاستعملت برنامج رسومات وادرته 90 درجة وحفظته ، ضيّقت الكائنات في التقرير ، علشان البرواز يبين من كل الجهات ، وبس : . وعلشان حجم البرنامج لا يكبر بسبب الصورة ، احفظ الصورة في مجلد البرنامج واربط الصورة ، بدل ان تجعلها مضمنه جعفر 338.2.برنامج الفواتير.mdb.zip

الأسف الشديد ، الاكسس لا يعطيك امكانية مثل الاكسل والورد ، فكل الذي استطعت البحث والوصول اليه: . عن طريق الكود التالي ، للنموذج الرئيسي: Private Sub Report_Page() Me.DrawStyle = 0 '0-4 Me.DrawWidth = 20 '11 ' Draw a border around the page. Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), , B End Sub جعفر 338.1.برنامج الفواتير.mdb.zip

السلام عليكم ويمكن هذا الموضوع يفيدك: جعفر

وعليكم السلام أخي حسين 1. عمل برواز مرئي حول الحقول . والنتيجة غير صحيحة التنسيق . تغيير اتجاه التقرير الرئيسي والفرعي ، بدل ان يكون من اليمين الى اليسار ، اعملهم من اليسار الى اليمين: . والنتيجة: . جعفر 338.برنامج الفواتير.mdb.zip

جرب في الجدول تضيف نص طويل ، واذا صار ، فمعناه انه يشتغل تمام ، وقدر تحذف الحقل في النموذج ، وتعمله مرة ثانية

في الجدول ، غير نوع الحقل من نص الى Memo ، جعفر

وعليكم السلام تفضل ، استعمل هذا الكود (نفس كودك ، بس عملت فيه نسخة من حدث تدقيق9_AfterUpdate): Option Compare Database Private Sub all_AfterUpdate() Me.Refresh Dim Rs As DAO.Recordset Set Rs = Form.RecordsetClone Rs.MoveFirst Do While Not Rs.EOF Rs.Edit Rs!bbb = all Rs.Update Rs.MoveNext Loop Set Rs = Nothing DoCmd.SetWarnings False DoCmd.OpenQuery "qu" DoCmd.SetWarnings True End Sub Private Sub تدقيق9_AfterUpdate() DoCmd.SetWarnings False DoCmd.OpenQuery "qu" DoCmd.SetWarnings True End Sub جعفر

من طلب العُلا سهر الليالي ومن يركب البحر ، لا يخشى من الغرق