ابو جودي

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

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

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

هههههههههه اسف كنت مستعجل علشان الصلاة اتفضل Undelete Tables and Queries.mdb

اتفضل تقدر طبعا تكمل انت المشوار انا نفذت لك الكود على فتح نموذج عملية انتاج فتح النموذج بنافذة اخرى.accdb

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

عيونى استأذنك بس بعد الصلاة ان شاء الله اقوم بالتعديلات المناسبة ابشـر

بص انا هقول لك ليه فكرت بالموديول لان كلمة انثى تكررت مثلا اربع مرات كان ممكن ما اعمل الموديول ومثلا فى كل زر امر اقوم بعمل الاتى مثلا الكود الاتى Private Sub Command10_Click() Form.FilterOn = False Form.Filter = "[stage]='ابتدائي'And [sex]='انثى'" Form.FilterOn = True DoCmd.SetOrderBy "swname ASC" End Sub ببساطة وبدون موديول ممكن يكون كده Private Sub Command10_Click() Dim StrSex As String dim StrStage As String StrSex = ChrW("1575") & ChrW("1606") & ChrW("1579") & ChrW("1609") StrStage = ChrW("1575") & ChrW("1576") & ChrW("1578") & ChrW("1583") & ChrW("1575") & ChrW("1574") & ChrW("1610") Form.FilterOn = False 'Form.Filter = "[stage]='ابتدائي'And [sex]='انثى'" Form.Filter = "[stage]='" & StrStage & "' And [sex]='" & StrSex & "'" Form.FilterOn = True DoCmd.SetOrderBy "swname ASC" End Sub بس لما لاقيت الكلام تكرر اكتر من مره كان الاسهل اكتب السطر الكبير مره واحدة فى موديول واستدعيه بكلمه واحده بس

اتفضل يا افندم unicode.accdb

لا شكر على واجب تحت امرك

استاذى ومعلمى القدير ووالدى الحبيب الاستاذ @ابوخليل هذا كود استرجاع الجداول والاستعلامات ولكن بشرط عدم اغلاق القاعدة كما تفضلتم وذكرتم Undelete Tables and Queries.mdb

الاتنين صح ممكن DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_3" وممكن DoCmd.OpenReport "rptDiscount", acPreview, , , , qry_rptD_3

جرب الان لو تكرمت e_2.rar

انظر الى الاستعلام باسم item_balance فى وضغ التصميم وشاهد كيف تم تغيير العلاقة

انت لم افهم اين السؤال

ممكن المرفق الاصلى

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

طيب وكده هل الحمد لله انحلت مشكلتك شوف وقولى لو تمام ان شاؤ الله اقول لكم عملت ايه . e.rar

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

ممكن القاعدة كامله لو تكرمت علشان اقدر اساعدك المشكله من عندحضرتك انت مش من عندى انا

طيب انا مش فاهم كويس ممكن سؤال لو النموذج الفرعى بدون اى سجلات نهائيا على تريد اغلاقها ؟؟؟

اخى الحبيب انت لم تضع القاعدة كاملة وبناء عليه كل العناصر على النموذج لا مصدر بيانات لها لذلك لن تعمل ولكن شاهد هذه القاعدة بعد ازالة مصادر البيانات Database (1)_2.mdb

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