ابو جودي

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

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

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

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

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

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

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

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