ابو جودي

هذا التطبيق الرائع لا غنى عنه ... وطبعا الجواب من العنوان.. هدية الى أحبابي ملاحظة هامة للأمانة وحفظاً للحقوق هذا العمل الرائع أنا فقط قمت بالتطوير واضافة بعض التغيرات التي تناسبني ولا أتذكر لمن أو من أين حصلته فالدعاء لصاحبة جزاه الله كل الخير ونسأل الله تعالى أن يجعل هذا العمل علم ينتفع به ويكتبه له في موازين حسناته صدقة جارية ان شاء الله المرفق Full Control Of Print Report.mdb

السلام عليكم ورحمة الله تعالى وبركاته أستاذي الجليل و معلمي القدير و والدي الحبيب الأستاذ @ابوخليل حياكم الله وبياكم اشتاقت نفسى اليكم كثيرا طبعا وبكل تأكيد يا أستاذ @محمد التميمي أستاذي الجليل و معلمي القدير و والدي الحبيب أعطي الإجابة كما ينبغي وبعد اذن أستاذي الجليل و معلمي القدير و والدي الحبيب أهدى أخي الحبيب هذه القاعدة التخصصية في أمور الطباعة والطابعات Full Control Of Print Report.mdb

يا اهلا بك يا دكتور اولا لا شكر على واجب وانا احب قدرى والحمد لله ويستبدل مكان هذا السطر Public Function DelDataAllTbl() Dim T As TableDef DoCmd.SetWarnings False For Each T In CurrentDb.TableDefs If T.Name <> "اسم الجدول" And T.Name <> "اسم الجدول" Then ' >>-----> اكتب هنا اسماء الجداول التى لا تريد حذف البيانات بداخلها If Not Left(T.Name, 4) = "MSys" Then DoCmd.RunSQL "DELETE * FROM [" & T.Name & "]" End If End If Next T DoCmd.SetWarnings True End Function تدلل يا دكتور

الحمد لله الذى تتم بنعمته الصالحات

طيب شوف كده PPPP (3).accdb

يا اخى والله المرفق بتاعك انت قبل التعديل سجل 5 ليس فارغ انظر PPPP.accdb 692 kB · 6 downloads اتأكد قبل ما ابدأ شغل عشان ما نلف خواليين نفسنا

العفو منكم استاذى الجليل انتم اغلى الغوالى واشهد الله تعالى اننى احبكم فى الله جميعا

وخد بالك المرفق الىى انت جايبه فيه 5 سجلات مش اربعه يعنى انت عاوز تغير فيمة الارقام اللى فى سجل 5 ؟؟

طيب هل السجل الخامس فى الجدول ده هيكون الاخير واللا ممكن يزيد سجل تانى

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

انا مكنتش فاهم انك تريد بدء الجمع من بداية 2020 هاهاهاهاهاهاهاهاهاهاهاا معلش صعيدى تسلم ايدك استاذ @husamwahab

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

ملاحظة هامة جدا جدا جدا جدا جدا جدا جدا قبل الشروع فى اى شئ لابد من أخذ نسخة احتياطية من قاعدة البيانات الا هل بلغت اللهم فأشهد

وانا والله لم انتبه كذلك ان استاذى الجليل قام بالرد انا عندى مشكلة اليوم غريبة جدا جدا جدا فى تحميل صفحات المنتدى على العموم دكتور محمد حلبى جرب معى استبدال الموديول فى المقال اللى ارفقته لحضرتك بالكود الاتى Public Function DelDataAllTbl() Dim T As TableDef DoCmd.SetWarnings False For Each T In CurrentDb.TableDefs If T.Name <> "tblSites" And T.Name <> "tblSecurityIP" Then If Not Left(T.Name, 4) = "MSys" Then DoCmd.RunSQL "DELETE * FROM [" & T.Name & "]" End If End If Next T DoCmd.SetWarnings True End Function انا تقريبا جاوبت نظرى لان مش هأعرف أجرب الان لو الدنيا تمام وقشطه ان شاء الله يكمن الحل فى السطر الاتى If T.Name <> "tblSites" And T.Name <> "tblSecurityIP" Then شرح السطر If T.Name <> "اسم الجدول" And T.Name <> "سم الجدول" Then الجدوال الت تم كتابة اسمائها لن تخذف بياناتها

طيب يا انا مش فاهم يا انت مش عارف تفهمنى امتب لى هنا بداية التاريه ونهاية التاريخ وللعلم فعلا انا غلطت بشئ وصلحته زودت يوم New Microsoft Access 11111 (2).mdb افتح الاستعلام وهات لى تواريخ السجل اللى انت مش مرتاح له

ازاى

اه نسيت اقول لك ممكن تستخدم ماكرو

عند الخروج منين ؟ وللا سؤال تانى هو البيانت 5 سجلات فقط ؟؟؟ واللا ممكن يزيدوا يعنى ياريد توضح طلبك تفصيلا واليى العمل علشان يستطيع من يريد مساعدتك التقدم اليك بالنتيجة المرجوة فهم السرال نص الاجابة وبكل صراحة انا ما بافهم وفهمى تقيل جدا لذلك راعى الصعايدة المساكين امثالى

طبعا الافضل تضع مرفق 64 بيت للتجربة والتأكد من عمل الاكواد وبالرغم من ذلك راجع الموضوع السابق ففيه زبدة الضغط

للعلم 32 افضل وهذا راى مايكروسوقت شخصيا

احبكم الله تعالى الذى احببتومنا لأجله

فك ضغط المرفق فى القطاع D:\ - لا يمكن من الاستعلام اعتذر انظر المرفق يحتوى - جداول مرتبطه بقاعدة خلفية -جداول غير مرتبطه -يوجد علاقات بين الجدول الكود محى كل شئ من كل الجداول test.zip

طيب استنى اعمل لك مرفق

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

وربى ما فهمت المطلوب لحد ما وصل مرفق استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr