ابو جودي

يا اخى والله المرفق بتاعك انت قبل التعديل سجل 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

انا وما املك ملك يمنك وتحت امرك افعل ما تشاء وقتما تريد على راسى سيدى الجليل ومعلمى القدير واستاذى و والدى الحبيب

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

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

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

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