jjafferr

وعليكم السلام 🙂 احفظ البرنامج في مجلد موثوق به ، وافتحه من هناك 🙂 وهذه طرق اخرى لحل المشكلة: https://www.devhut.net/bypassing-microsofts-new-blocking-of-macros-vba-code/ جعفر

. . يا طويل العمر : لما النموذج يكون مفتوح ، فتقدر ترسل قيمة الحقول me.GE و me.SX الى الكود لفتح التقرير بمعيار ، ولكن ، لما تغلق النموذج ، فلا توجد قيم للحقول me.GE و me.SX ، وعليه ، لا تستطيع استعمالهم في المعيار لفتح التقرير. جعفر

السلام عليكم 🙂 الشباب قلبوا الكود ، فبعد اغلاق النموذج ، لا يمكنك قراءة قيمة من النموذج 🙂 المفروض يكون: Private Sub GO152_Click() On Error Resume Next DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & Me.GE & " and [NOV]=" & Me.SX DoCmd.Close acForm, Me.Name End Sub او Private Sub GO152_Click() On Error Resume Next dim GE2 as long,SX2 as long GE2=me.GE : SX2= me.SX DoCmd.Close acForm, Me.Name DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & GE2 & " and [NOV]=" & SX2 End Sub جعفر

ياريت تعطينا خطوات العمل ، علشان نعرف شو نعمل ، للحصول على شو !!

هذا الروابط بتفيدك . . . جعفر

السلام عليكم 🙂 عمل جميل اخوي موسى 🙂 والكاسبريكاي ما اعترض على شيء 🙂 جعفر

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

السلام عليكم 🙂 اخبرتك المرة السابقة: وبمرفقك الجديد حصلت على نفس المشكلة: . وبالدخول في الكود وعمل Compile: . هذا الكائن Combobox غير موجود في النموذج . جعفر

السلام عليكم 🙂 استخدم ctrl+G جعفر

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

وعليكم السلام 🙂 مو جميع انواع خطوط الباركود Code39 يعملون بطريقة صحيحة ، في الرابط التالي ، ابحثي عن "ب. عمل الباركود:" ، فقد كتبت عن تجربتي : . جعفر

وعليكم السلام 🙂 هل جميع الاجهزة فيها نفس تحديثاث الوندوز والاكسس ؟ تحديثات الوندوز والاكسس ، مع ان بعضها يعمل مشكلة للبرامج ، ولكن معظمها مهم لعمل الاكسس 🙂 جعفر

وعليكم السلام 🙂 تفضل : . . جعفر

فيه Combobox ما موجود في النموذج

انزلت مرفقك وما اشتغل !! جعفر

وعليكم السلام 🙂 سؤالك غير واضح !! اعطنا بيانات نقدر نستعملها (مو صورة) ، واخبرنا النتيجة النهائية اللي تريدها (وممكن تكون صورة 🙂) جعفر

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

وعليكم السلام 🙂 في الاستعلام ، المعادلة التالية ، انت حصلت على نتيجة TotalTime و TotalTime2 بعد ان ارسلت قيمها الى الدالة SubTotalTime ، فما تقدر تنادي الدالة مرة اخرى للنتائج : TotalTime222: SubTotalTime((DateDiff("n",0,[TotalTime]+[TotalTime2]))) والصحيح انها تُكتب هكذا : T2: SubTotalTime(((DateDiff("n",[TimeIn1],[TimeOut1])-0)+(DateDiff("n",[TimeIn2],[TimeOut2])-0)+(DateDiff("n",[TimeIn3],[TimeOut3])-0)+(DateDiff("n",[TimeIn4],[TimeOut4])-0)+(DateDiff("n",[TimeIn5],[TimeOut5])-0))+((DateDiff("n",[TimeIn11],[TimeOut11])-0)+(DateDiff("n",[TimeIn12],[TimeOut12])-0)+(DateDiff("n",[TimeIn13],[TimeOut13])-0)+(DateDiff("n",[TimeIn14],[TimeOut14])-0)+(DateDiff("n",[TimeIn15],[TimeOut15])-0))) جعفر

وعليكم السلام 🙂 مشكلتك في مكان آخر في الكود 🙂 اعمل Compile ، وصحح جميع الاخطاء ، وبيشتغل البرنامج كما يجب ان شاء الله 🙂 . وبما انك مصرح بنوعي يجب عليك في الكود تحديد اي نوع من انواع Recordset تريد ان تستعمل ، لأنك مصرح بالنوعين ، لذا يجب كتابة DAO ، واعمل Dim مستقل للـ Recordset وإلا فلن يُظهر لك اي مساعدة في الكود : Dim db As DAO.Database dim RS As DAO.Recordset جعفر

نفس طريقة اخواني محمد و خالد ، ولكن بدون الرجوع الى الجدول مصدر بيانات النموذج الفرعي ، وانما كل شيء من النموذج مباشرة : Dim rst As DAO.Recordset Set rst = Me.USER_PRIVILLAGE.Form.RecordsetClone rst.MoveFirst Do Until rst.EOF rst.Edit rst!DELETE = -1 rst.Update rst.MoveNext Loop جعفر

وعليكم السلام 🙂 الصق هذا الكود في حدث التقرير : Private Sub Report_NoData(Cancel As Integer) MsgBox "لا توجد سجلات للطباعة" Cancel = True End Sub جعفر

وعليكم السلام 🙂 انا دائما انصح بعمل حقلين في كل جدول: 1. حقل ترقيم تلقائي ، 2. حقل تاريخ ، والقيمة الافتراضية فيه = Now ويقوم الجدول تلقائيا بإدخال القيم لهذه الحقول ، وبالتالي تعرف تسلسل ادخال السجلات عن طريق اي من الحقلين 🙂 يمكنك الآن عمل حقل ترقيم تلقائي ، وسيعطي الاكسس جميع السجلات ترقيمها حسب تسلسل ادخال البيانات ، ومنها تعرف التسلسل 🙂 جعفر

وعليكم السلام اخي محمد 🙂 اهلا وسهلا بك في المنتدى 🙂 للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة يمكنك تصدير ملفات pdf و rtf (يشبه ملف الوورد في تنسيقه) و txt ، وهذه جميع الصيغ acFormatASP Microsoft acFormatHTML HTML acFormatIIS Microsoft acFormatPDF PDF acFormatRTF Rich text acFormatSNP Snapshot image acFormatTXT MS-DOS txt acFormatXLS Microsoft Excel acFormatXPS XPS image ويجب عليك مسبقا ان تختار التالي: 1. مصدر البيانات ، استعلام او جدول ، 2. صيغة الملف المراد تصديره (انظر اعلاه) ، 3. مسار حفظ ملف التصدير ، واذا لم تكتبه ، فسيفتح الاكسس نافذة لكي تختار اسم ومجلد الحفظ ، بينما يمكنك معاية وطباعة التقرير 🙂 يمكنك البحث في المنتدى لأي من هذه الاوامر 🙂 جعفر

لكل قسم في التقرير "احداثه" الخاصة به : جعفر