ابوخليل

اسم مربع النص = RowNum اسم الوحدة النمطية = RowNum كيف ؟؟

لكن عندي شوية استفسارات عن شرح عمل الدوال المستخدمة في الاستعلام والغرض منها.. الموضوع درس فاعرض كل ما عندك حول الموضوع من دون استئذان ايضاً..لماذا لا يستبدل الزرين في اسفل نموذج البحث بزر (ok) او (بحث) ليتم البحث عن الاشياء التي تم اختيارها في النموذج. وشكراً.. سننظر ذلك في المرفق التالي

تفضل مطلوبك هنا http://www.officena.net/ib/?showtopic=42659

ولى سؤال أخر ... كيف يمكن نزع السنة من التاريخ ووضعها فى حقل معين كما فى مثالك السابق ... باستخدام استعلام تحديث استنادا الى الجدول تختار الحقل المراد تحديثه تكتب في حقل ( تحديث الى ) احدى الجملتين التاليتين : DatePart("yyyy";[fDate]) Year([fdate]) باعتبار fDate هو حقل التاريخ في الجدول

تأكد من أمان الماكرو قم بتخفيضه الى الحد الادنى انظر هنا اداة تقوم بالمهمة : http://www.officena.net/ib/?showtopic=37777

تفضل Copy.rar

الخطوة التالية : البحث نبحث فيها عن الذين دفعوا اشتراكاتهم وعن من لم يدفع وعن من صرف له تصفية شاملة او حسب نوع الدفع او نوع المصروف وكذك من خلال الشهر والسنة الاضافات 1- استعلام QryMr 2- نموذج frmSearch 3- تقريرين صندوق6.rar

عمل جميل جدا .. جزيت خيرا ولتكون الاستفادة اكثر تم تحويل المرفق الى صيغة 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

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