ابو جودي

انا جمعت كل ما احبه ان يكون هنا

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

هو سبقنى

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

هذان كل منهما فى سطر 1- انشاء جدول 2- انشاء الحقول داخل خذا الجدول 3-النموذج

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

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

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

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

هههههههههه اسف كنت مستعجل علشان الصلاة اتفضل 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 فى وضغ التصميم وشاهد كيف تم تغيير العلاقة

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

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

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