ابوخليل

هذا هو الكود الذي طلبت ضعه في الحدث المناسب سيغير القيمة في السداسي العشري الى 300 Dim objWShell Set objWShell = CreateObject("WScript.Shell") objWShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows\CSDVersion", 768, "REG_DWORD" وهذا كود الاسترجاع سيغير القيمة في السداسي العشري الى 200 Dim objWShell Set objWShell = CreateObject("WScript.Shell") objWShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows\CSDVersion", 512, "REG_DWORD"

الحمد لله وشكرا على المعلومة

انظر الاستعلامات تمعن ودقق لعلك تخرج بتصور صحيح saeyd-17.rar

الادارة المنقول منها ؟؟ يلزم جدول للادارات للاختيار منه هذا الجدول TP_inOrOwtSchool زائد عندي لك حلا سريعا قم بتعبئة الجداول ببيانات كافية للتطبيق والتجربة ، حتى استطيع ان اجيب على تساؤلاتك

السلام عليكم فقط معلومة قد تفيد خارج البرامج : يمكن ايقاف الكمبيوتر يومياً في الوقت المحدد له باستخدام مهام مجدولة : وجدولة مهمة جديدة تجدها في لوحة التحكم / ادوات ادارية

معليش ابو آلا .. تحل بالصبر اكرر ... انت قلت ان الادارة واحدة فلماذا حقل الادارة المحول منها او اليها في جدول الطلاب ؟ ثانيا خانة نعم لا للمحولين من والى : فالمؤشر عليها للمنقول من المدرسة ويدرج اسم المدرسة المنقول اليها اما المنقول الى المدرسة فتبقى الخانة خالية ويدرج اسم المدرسة المنقول منها وطبعا هناك طلاب مستجدون فهؤلاء تبقى خانة الاختيار خالية وحقل المدرسة خالي بكذا تستطيع التصفية لا حقا وتستطيع اظهار طلاب المدرسة الموجودين وكذلك اخفاء المنقولين لذا سيكون حقل حالة التحويل زائد

جدول المدرسة هو جدول بيانات المدرسة الحالية والبيانات فيه ثابتة وما دمت تقول ان الادارة واحدة إذا : 1- حقل المدرسة في جدول الطلاب زائد 2- حقل الادارة في جدول الطلاب زائد 3- تحتاج جدولا بالمدارس الاخرى التي قد ينتقل الطالب اليها وحقلا رقميا للمدرسة تلك في جدول الطلاب 4- خانة اختيار في جدول الطلاب لتفعيل النقل من عدمه 5- حقل منقول من والى يكون رقميا 1 أو 2 (مربع تحرير )

ما يلزم المسألة وما فيها اننا نتحاشى الارقام من 1 الى 9 لوحدها لان الواحد موجود في 11 ، 12 51 ، 101 ........ وهكذا باقي الارقام المفردة كما ان 14 موجود في 114 ، 140 ... وعند استخدام like في التصفية تظهر جميع هذه السجلات التي يتواجد فيها هذا الجزء بالنسبة للتحويلات لم استوعب الشرح هل هو انتقال من مدرسة الى اخرى ام هو ترقية الى صف اعلى امل زيادة الايضاح

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

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

صدقت يا بو احمد .. حسب علمك ولكن العلم درجات .. الآن توزع عندنا اجهزة مكتبية ومحمولة وندز 8 وافيس 2015 واوفيس 15 لا يبتعد كثيرا عن سابقه ولكنه عالم آخر في الاتصال حيث اصبح الوصول اليه من اي مكان اسهل ومشكلة 15 حقيقة والتي واجهتها ولم اجد لها حلا الا بالتعديل على فورم البداية هو في شريط الادوات فهوعنيد جدا لا يمكن اخفاؤه الا حين يكون الفورم MAX اما في 13 وما قبله فإني اعرض برامجي المعمولة على 2003 كما هي بدون الحاجة الى تعديل ؟؟

جداول زائدة tblDate tp_oldin حقل الصورة يكون نصا وحجمه 255 تأكد من حجم الحقول النصية بما يناسب البيانات المدخلة احذف جميع العلاقات الموجودة لا تضع علاقات بين الجداول الا عند الضرورة مثل عند انشاء النماذج من مصادر متعددة او عند ارادة الزام المستخدم ادخال بيانات محددة واعلم انه يمكن ربط العلاقات بين الجداول داخل الاستعلام هل هذا البرنامج للشؤن الادارية فقط ؟ saeyd-14.rar

تم اصلاح جدول الطلاب حيث ان المشكلة من حقول مربعات التحرير ( حيث لم تقم بتعديلها بعد تصحيح المسميات ) ثانيا لماذا الربط بين الجدولين ؟ هل يوجد أكثر من مدرسة ؟ الافضل عدم الربط ان كانت المدرسة واحدة saeyd-13.rar

حيث ان القارئة تطبعه في حقل ما ولنفرض اسمه txt1 وحيث ان البيانات المقرؤة منضبطة حسب نسق معين استخدم الدالة mid لاستخراج المقاطع المطلوبة بعد حدث التحديث للحقل المذكور ونستخدمها كالتالي : expr=Mid([txt1],1,5) حيث الارقام تعني : 1 يعني اول حرف او رقم من اليسار 5 تعني عدد الاحرف المقتطعة expr=Mid([txt1],6,2) وهذه تعني رقمين او حرفين وهما السادس والسابع وهكذا ......

ما المشكلة في تنفيذها يدويا اقصد لماذا الكود ؟ جهازي الذي اعمل عليه الآن win7 وقيمة CSDVersion عندي هي صفر ان شاء الله غدا في العمل يوجد اجهزة تعمل بـ xp سأطلع عليها

If hal = 1 Then zwjh.Enabled = True Else zwjh.Enabled = False End If db2.rar

تم التعديل في المثال المرفق على حقلين id و num ويمكنك التطبيق على حقول أخرى Public Function maxNm() Dim i As Integer i = DMax("id", "tbl1") maxNm = DLookup("num", "tbl1", "id=" & i) End Function الصق maxNm في القيمة الافتراضية للحقل num القيمة الافتراضية لحقل .rar

Do Until Loop هذه من جمل التكرار نستخدمها للدوران وتكرار حدث ما عند عدم تحقق شرط معين Dim i As Integer ' اعلان عن متغير رقمي والذي هو حرف الآي Do Until i = 5 ' اعمل ما دامت الآي لا تساوي خمسة i = i + 1 ' تصاعد قيمة الآي في كل دورة بمقدار واحد DoCmd.OpenReport "rep1", acViewNormal ' امر الطباعة Loop ' دوران او رجوع من البداية عند دو

في تصميم الاستعلام اخترنا النجمة وهي تعني الكل نعم

اخي الكريم في المرات القادمة احرص على اختيار عنوان مناسب يصف الموضوع تم تعديل العنوان اما بالنسبة لمطلوبك فاكتب الكود هكذا : DoCmd.RunCommand acCmdRefresh كما انه يكفي لتحديث النموذج ان تكتب : DoCmd.Refresh أو هكذا : me.Refresh

ليس هناك لازم فيمكن اخراج ما ترغب بطرق مختلفة انظر المرفق ومصدر بيانات النموذج saeyd-12.rar

السبب هو انك جعلت مصدر بيانات النموذج من اكثر من جدول واستعلام لذا لا يمكنك التعديل

تم فصل الموضوع تفضل هذا لتحديد عدد مرات الطباعة ، حيث سيتم طباعة 5 نسخ يمكنك استبدال الرقم 5 بحقل في النموذج Dim i As Integer Do Until i = 5 i = i + 1 DoCmd.OpenReport "rep1", acViewNormal Loop

اخي حسين .. هذه الطابعة لم اعمل عليها من قبل ولكن للفائدة كما ذكرت لك الطابعات بشكل عام تتعامل مع الصفحات فمثلا طابعة البطاقات ( card ) تعتبر البطاقة 8سم في 5سم صفحة كاملة وقس على هذا ,, وهذا كود لطباعة عدد محدد من الصفحات DoCmd.OpenReport "MyReport", acViewPreview DoCmd.PrintOut acPages, 1, 3 الرقم 1 بداية الصفحات و 3 نهايتها ويمكن ان تستبدل الارقام بحقول في النموذج

تم التعديل اما بالنسبة لحقل المجموع + مشاركة سابقة لك تطلب تغيير العدد فقط عند التكرار فالجواب هو ان حقل العدد والمجموع زائدين في شاشة المستخدم ونحتاجهما في فاتورة الزبون فقط (التقرير) او في التقارير الخاصة بالادارة فطبيعي ان يظهر في شاشة المستخدم اربعة سجلات لطلب 4 شاي بسعر 1 ريال لكل طلب ولكنها في فاتورة الزبون ستظهر بسطر واحد 4 شاي بـ 4 ريالات Microsoft2.rar