Elsayed Bn Gemy

اذا اختار بان الموضوع مجاب فضلا وليس امرا اخى الكريم

معلش كنت نسيت ارفع المرفق ههههههههههه حسب السنة المالية.rar

طلبك اخى الكريم

اخى استخدم هذا الكود فى حدث بعد التحديث لمربع نص كود القطعة مع تغيير الجدول من Maintenance الى table1 على ما اذكر اقصد تغييره الى الجدول مصدر السجلات فى النموذج الفرعى هيظبط معاك لانى كدا هيبحث فى جدول واحد بدل ما تبحث فى جدولين جدول النظافة وجدول الصيانة

وهذا شرح الكود Dim db, Xdb As Database 02 Dim rel As Relation 03 04 'نحتاج اسناد متغيرين واحد لحذف الارتباط 05 Set Xdb = CurrentDb() 06 'والاخر لحذف الجداول بعد حذف الارتباط 07 Set db = CurrentDb() 08 'حلقة التكرار للجداول المرتبطه 09 For Each rel In db.Relations 10 'حذف العلاقه بين الجدولين 11 Xdb.Relations.delete rel.Name 'اسم الجدولين المرتبطين 12 MsgBox " تم حذف العلاقه بين الجدول " & rel.Table & " و الجدول " & rel.ForeignTable 13 ' حذف الجدول المرتبه الاول الرئيسي 14 DoCmd.deleteObject acTable, rel.Table 15 MsgBox " تم حذف الجدول " & rel.Table 16 'حذف الجدول الثاني الجانبي المرتبط بالاول 17 DoCmd.deleteObject acTable, rel.ForeignTable 18 MsgBox " تم حذف الجدول " & rel.ForeignTable 19 20 21 Next 22 Set db = Nothing 23 Set Xdb = Nothing

تفضل يا اخى مرفقك حذف العلاقات ثم حذف الجداول برمجيا.rar

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

هل هذا طلبك تنسيق مربع نص.rar

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

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

يمكنك استخدام هذا صممته بطريقة بدائية شوية بس معقولة شريط قوائم بسيط.rar

اخى الكريم بالصدفة وانا اراجع المواضيع وجدت هذه المشاركة وهى لك ايضا ونفس البرنامج وقد اجابك الاخوة ؟؟؟ http://www.officena.net/ib/index.php?showtopic=61326&hl=

اذا انت لا تريد الا يتكرر كود سيارة فى كل جدول مرتين ؟؟

شكرا لك اخى محمد وشرف لى انك اول من رد على المشاركة

هل هذا ما تريد اخى الكريم Tabel4.rar

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

السلام عليكم ورحمة الله تعالى وبركاته نظرا لطلب اخى راعى الغنم وانا اكن لهذا الرجل كل تقدير واحترام كيفية استرجاع الجداول المحذوفة يمكن استرجاع الجداول المحذوفة فى قاعدة بينات اكسس ولكن بثلاث شروط 1 - لم يتم اغلاق قاعدة البانات بعد حذف الجدولا 2 - لم يتم ضغطها 3 - تم حذف الجدول باستخدام واجهة مستخدم اكسس ضع هذا الكود فى وحدة نمطيه Function UnDeleteTable(Optional sName As String) Dim db As DAO.DATABASE Dim tdf As DAO.TableDef Dim sTable As String Dim sSQL As String Dim sMsg As String If IsMissing(sName) Then sName = "RestoredTable" If Len(sName) = 0 Then sName = "RestoredTable" Set db = CurrentDb() For Each tdf In db.TableDefs If Left(tdf.Name, 4) = "~tmp" Then sTable = tdf.Name sSQL = "SELECT [" & sTable & "].* INTO " & sName sSQL = sSQL & " FROM [" & sTable & "];" db.Execute sSQL sMsg = "A deleted table has been restored as " & sName MsgBox sMsg, vbOKOnly, "Restored" GoTo Exit_Undelete End If Next MsgBox "No Recoverable Tables Found", vbOKOnly, "Not Found" Exit_Undelete: Set db = Nothing Exit Function Err_Undelete: MsgBox Err.Description Resume Exit_Undelete End Function ويمكنك استدعائها فقط بهذا الكود UndeleteTable("MyTable") لااعلم مدى اهمية ذلك بالنسبة لكم اخوانى الكرام ولكن ما كنت احبسه عنكم قم بتصميم قاعدة بينات للتجربة وانشء الجداول واضف بسجلاتك ثم قم بمسها واستدعها من خلاا الكود

اعتقد ان الكود شغال مظبوط اخى الكريم وانا جربته اكتر من مرة

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

DoCmd.DeleteObject acTable, "Table" table اسم الجدول شرط ان يكون مش قيد الاستخدام

اتفق معك واذا كنت ترد كود حذف بينات جدول اماماك طريقان اما استعلام حذف او هذا الكود حيث table1 هو اسم الجدول المراد حذف بياناته DoCmd.Requery DoCmd.SetWarnings False DoCmd.RunSQL "DELETE table1.* FROM table1" DoCmd.SetWarnings True Form.Requery MsgBox "تم مسح جمع البيانات"

انظر يا اخى يعمل بشكل ممتاز يمسح كل الجداول ما عدا جدول الباسورد لان النموزج الخاص به مفتوح صورة.rar

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

اخى مثال بسيط لما تريد مثال بسيط طباعة السجلات المحدد.rar