ابو جودي

هههههههههه اسف كنت مستعجل علشان الصلاة اتفضل 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

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

اتفضل Database (1).mdb

Up استاذى الجليل ومعلمى القدير الاستاذ الفاضل @د.كاف يار اطلب منكم على استحياء رفع الموضوع مرة أخرى لأذكركم بتلك المشكاركة التى تستخدم نفس الالية تقريبا التى تفضلتم بها حتى انها تستخدم وتعتمد على نفس نوع المكتبة كذلك الذى تفضلتم به ولكن يمكن العمل من خلالها على انواع الماسحات الضوئية الهياى سبيد والتى سمكن من خلالها المسح الضوئى لاكثر من ورقة Automatic Document Feeder ولكن ما يعيب المرفق رسالة عند كل ورقه يتم مسحها ضوئيا بصراحة لا املك الادوات للعمل والتجربة الكافية فى الوقت الراهن اتمنى على الله تعالى ان يعينكم وتجدون الوقت الكافى لحل هذه المشكلة ان شاء الله

اتفضل ان شاء الله تجد ضالتك Prog302 (1).mdb