ابوخليل

عمل جميل جدا .. جزيت خيرا ولتكون الاستفادة اكثر تم تحويل المرفق الى صيغة mdb ممنوع حقل فارغ.rar

استاذ انه قريب مما هو مطلوب ولن الاغلاق ليس كما هو مطلوب بل هو ما طلبت : فلم تذكر التناقص او التراجع ولا يغلق بنفس طريقة الفتح ؟ الآن تم تحقيق طلبك الاخير في المثال المرفق مع الشرح Option Compare Database Const i As Double = 4000 'هذا الرقم هو المسؤول عن زيادة ونقص حجم النموذج Dim x As Boolean 'وسيط نعم/لا متغير كشرط لتشغيل العداد Private Sub Form_Open(Cancel As Integer) Me.InsideHeight = 0 ' الارتفاع يساوي صفر عند الفتح Me.InsideWidth = 0 'العرض = صفر عند الفتح x = False ' الوسيط=لا عند الفتح End Sub Private Sub Form_Timer() ' عداد النموذج وقد جعلنا قيمته عند الحدث = 100 If x = False Then ' اذا كان الوسيط = لا Call Enlarg ' شغل التكبير Else ' وإلا Call Redu ' شغل التصغير End If End Sub Private Sub Enlarg() ' وحدة نمطية تزيد الطول والعرض 100 كل 0.1 من الثانية If i > Me.InsideHeight Then Me.InsideHeight = Me.InsideHeight + 100 Me.InsideWidth = Me.InsideWidth + 100 Else x = True End If End Sub Private Sub Redu() ' وحدة نمطية تنقص الطول والعرض 100 كل 0.1 من الثانية If Me.InsideHeight > 0 Then Me.InsideHeight = Me.InsideHeight - 100 Me.InsideWidth = Me.InsideWidth - 100 End If If Me.InsideHeight < 10 Then ' اذا كان الارتفاع اقل من 10 DoCmd.Close ' اغلق النموذج DoCmd.OpenForm "frm2", acNormal ' وافتح النموذج رقم2 End If End Sub تكبير وتصغير متدرج.rar

جزاك الله خيرا استاذ سليم اخونا حمدي انظر هنا ستجد بغيتك http://www.officena.net/ib/index.php?showtopic=37285

الآن ارفقت لك المرفق مع ادوات التعديل كل ما عليك عمله هو نقل الاستعلامين الى قاعدة بياناتك ولكن لا تشغل استعلام التحديث Q_Up حتى تجري التغييرات التالية : 1- انشاء حقل id ترقيم تلقائي في الجدول Order وعدل في الخصائص مفهرس= نعم بدون تكرار 2- انشاء حقل رقمي s_id في الجدول Order Detail 3- شغل استعلام التحديث Q_Up 4- انتقل الى الجدول Order Detail وتأكد من وجود البيانات في الحقل s_id 5-اذهب الى العلاقات : أ- احذف العلاقة الأولى التي بين OrderID في الجدولين ب- اربط العلاقة الجديدة بين id و s_id هنا انتهينا ويمكنك الان التخلص من الاستعلامات وحذفها db44.rar

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

جزاك الله خيرا استاذ ازهر للفائدة هذه بعض مشاركات الاخوة حول هذا الموضوع http://www.officena.net/ib/?showtopic=36778 http://www.officena.net/ib/index.php?showtopic=51622

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

تفضل وآمل ان يكون هو ما تبحث عنه تكبير متدرج.rar

عجيب !!! وجزاك الله خيرا

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

ماذا تقصد برقم الصحة ؟

تسميات الحقول في الصورة لا تصلح ايضا كتبت التسمية العربية في الوصف وليس في حقل التسمية التوضيحية

بالطبع كلمات ذات معنى بحيث اذا قرأت اسم الجدول اعرف ماذا يحويه من غير حاجة لفتحه مثلا جدول الاسماء يمكن تسميته بـ tblNames فـ tbl ترمز الى الجدول ويمكن تسميته tblAlasma بمعنى تكتب معاني عربية بحروف انجليزية انتبه ! يمنع منعا باتا ترك مسافات فارغة بين الكلمات ويمكننا التمييز بين الكلمات باحد امرين : اما ان نستخدم علامة تحت السطر او ان نجعل الحرف الاول من كل كلمة كبتال مثال : tbl_esm_mstajer أو tblEsmMstajer وهذا ينطبق على الحقول داخل الجدول ولكن في خصائص الحقل هناك ما يسمى بالتسمية التوضيحية نقوم بكتابتها بحروف عربية لكي تظهر في الواجهات في النماذج والتقارير

توكل على الله اربط حزام الامان وابدأ بالقيادة الصحيحة

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

ولكنك لم تطبق التوجيهات انظر وتصفح البرنامج المرفق ان كان يصلح فيمكن شرحه والتعديل عليه او ان نستل منه ما يوافق المطلوب عقاراتي.rar

وعليكم السلام بعد الاطلاع على المثال يبدو انك تريد توزيع ارقام تلقائي بحيث تقوم بتحديد البداية والنهاية ؟

جزاك الله خيرا

اخي علي انظر هنا حل آخر آمل ان ينال استحسانك Database2.rar

صحيح وهو الاصل والجدول مهيأ لذلك تم الاصلاح بتعديل يسير صندوق5.rar

افدنا وفقك الله لكل خير ان كان لديك اضافة Me.Requery me فقط تعني النموذج الحالي Re = إعادة ، query = استعلام فهي اذا لاعادة تحديث بيانات النموذج سواء كان المصدر جدولا او استعلام ويظهر من خلال هذا التحديث ماتمت اضافته ويختفي ما تم حذفه ويتم اعادة وعرض البيانات على السجل الأول لذا حين نحتاج تحديث بيانات سجل داخل النموذج من اجل الطباعة او من اجل تفعيل حدث معين وفي الوقت نفسه نريد الابقاء على السجل الحالي ظاهرا لا نستخدم Me.Requery بل نستخدم Me.Refresh

مع كل التقدير والاحترام للاستاذ ازهر الموضوع المطلوب متابعته هو عبارة عن مرفق نأمل تكرما منك ان ترفقه هنا

بارك الله فيك استاذ ازهر ولكن المطلوب هو : الاخ ابو ابراهيم انظر هنا http://www.officena.net/ib/index.php?showtopic=31250

السلام عليكم ورحمة الله وبركاته تقبل الله طاعتكم وكل عام وانتم بخير