ابو جودي

انت كنت معتقد انه يبدأ مثلنا 😡 يا اخي انا لو املك البند كنت بندتك الان ه الجملة دي ... انت كيف تحكى هيك تئبرني يا استاذ @jjafferr معلش سامحنى انا يالللى ما يعرفك بيتمنى يا كل بند هاهاهاهاهاهاهاهاها

تدلل مثل ما بدك يا سلام وجزاكم الله خيــرا على كل تلك الدعوات الطيبات المباركات واسأل الله تعالى ان يرزقكم بالمثل ويزيدكم من فضلة وكرمه اضعافا مضاعفة انت وكل اساتذتنا واخواننا وكل المسلمين ان شاء الله وتدور ببالى فكرة ستكون اجمل ان وفقنى لها ربى إن شاء الله سوف أجعلك تتدلل أكثر وأكثر

اسف جدا جدا جدا على النسيان شكرا يا دكتور

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

تدلل يا دكتور delete tables.accdb

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

يا دكتور ان أردت هات مرفق واذكر أسماء الجداول التي لا تريد حذف بياناتها واجهزها لك ان شاء الله ان أحببت

هذا التطبيق الرائع لا غنى عنه ... وطبعا الجواب من العنوان.. هدية الى أحبابي ملاحظة هامة للأمانة وحفظاً للحقوق هذا العمل الرائع أنا فقط قمت بالتطوير واضافة بعض التغيرات التي تناسبني ولا أتذكر لمن أو من أين حصلته فالدعاء لصاحبة جزاه الله كل الخير ونسأل الله تعالى أن يجعل هذا العمل علم ينتفع به ويكتبه له في موازين حسناته صدقة جارية ان شاء الله المرفق 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 سجلات فقط ؟؟؟ واللا ممكن يزيدوا يعنى ياريد توضح طلبك تفصيلا واليى العمل علشان يستطيع من يريد مساعدتك التقدم اليك بالنتيجة المرجوة فهم السرال نص الاجابة وبكل صراحة انا ما بافهم وفهمى تقيل جدا لذلك راعى الصعايدة المساكين امثالى