ابوخليل

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

الافضل اشرح لك الكود اعلاه من اجل تفصل على ما يحلوا لك Dim z As String هنا اخبرنا اكسس ان حرف زد نصي Dim i As Integer وهنا اخبرنا اكسس ان حرف آي رقمي i = Len(Me.text1)هنا قيمة آي تساوي عدد احرف او ارقام الحقل التي سندخلها z = Left(Me.text1, 3)هنا قيمة زد تساوي أول ثلاث حروف من اليسار ، لاحظ ان الرقم 3 يعبر عن عدد الحروف او الارقام المقتطعة فيمكن ان تضع الرقم 2 لتكون قيمة زد تساوي الحرفين الاولين نجي للتطبيق : اذا آي اكبر من 17 أو زد تساوي "بي آر خمسة" If i > 17 Or z = "BR5" Then تراجع Undo واظهر هذه الرسالة MsgBox "تأكد من ادخال البيانات بطريقة صحيحة" واخرج من الحدث Exit Sub انهاء الحدث End If أي شيء غير مفهوم يمكنك الاستفسار جواب سؤالك الاخير فقط تستبدل علامة = بعلامة <> ليصبح السطر If i > 17 Or z <> "BR5" Then

ابو ابراهيم شرفت بمرورك واسعدني اعجابك هذا من محفوظاتي نبشت عنه وهو افضل الموجود (يوجد حلول اخرى)

عليكم السلام تفضل .. تم التصرف في مسميات الحقول في الجدول لازالة المسافات الفارغة DELETE * FROM table1 WHERE key NOT IN ( SELECT min(key) FROM table1 GROUP BY FirstName, Address2) حذف السجلات المكررة.mdb

شرفت بمرورك ابو ياسين طريقة وضع الشرط في حدث مربع النص افضل لا شك فيما لو اردنا التحكم بالضوابط ونريد ان نجعل مربع النص اكثر مرونة فمثلا يمكن ان نستدعي هذه القيم من جدول If i > 17 Or z = "BR5" Then

مطلوبك مفهوم رعاك الله ايضا تريد الارقام والحروف ان لا تزيد عن 17 ولتفهم عزيزي ان الحقل الظاهر في الصورة يسمى : قاعدة التحقق من الصحة وليس قناع ادخال المهم انا سألتك ان كنت تريد تطبيق الضوابط حسب طلبك بغض النظر عن الوسيطة ولكن يبدوا انك لم تفهم ما اقصده ؟ وعلى كل حال واختصارا للوقت هذا الكود يحقق مطلبك : Dim z As String Dim i As Integer i = Len(Me.text1) z = Left(Me.text1, 3) '++++++++++++++++++++++++++++++ If i > 17 Or z = "BR5" Then Undo MsgBox "تأكد من ادخال البيانات بطريقة صحيحة" Exit Sub End If وهذا تطبيق : منع كتابة حروف2 .mdb

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

المرفق كان بحاجة الى مكتبة script runtime وتم اضافتها انظر :

تفضل test2.mdb

بالنسبة للمربعات وخاصة مربع NUM لا اعلم ولم يسبق ان بحثت فيه وهذه محاولة لابعاد التاريخ عن اسم المستخدم statusbar.mdb

تأكد من المرفقات المثال المرفق ناقص ..

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

انا اعمل على 2003

عليكم السلام هو فعلا يعمل على اكسس بامتياز

اخي الكريم هل العنوان " اظهار التقرير " يصف الموضوع ؟ يجب ان نستشعر المسؤولية والمصلحة المستقبلية حين نبحث عن موضوع معين اعلموا احبتي اننا نشعر بحرج شديد حين نغلق موضوعا بسبب عنوانه وما يزعجنا اكثر عدم مبالاة بعض الاعضاء بهذا ..

الافادة التامة تجدها لمن يملك في حاسوبه اصدار النظام نفسه من اجل اجراء التجربة لدي اقدم نظام من اكسس ولكني قد ادلك على حل ؛ انظر هنا

مساعد ة : هنا موضوع يتحدث عن هذه المشكلة واتوقع انك اطلعت عليه

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

طهور واجر وعافية وسلامة دائمة ان شاء الله

اهلا استاذ رمهان يبدوا ان SetParameter موجودة ضمن docmd في الاصدارات الجديدة الصورة تتكلم : ما الحب الا للحبيب الأول .. لا تصلح في هذا العلم .. اما المواكبة واما التوقف

نفرض اضفنا عمود باسم text1 الى جدول الشهور ونريد ان نضع كلمة ok في الحقل امام شهر 7 الكود سيصبح هكذا DoCmd.RunSQL "UPDATE tbl1 SET tbl1.text1 = ""ok"" WHERE tbl1.month_ID=7" vba3.mdb

في الاستعلامات الاجرائية ( التحديث والالحاق والحذف والإنشاء) يمكن تمرير المعلمات داخل الكود وتنفيذ الاجراء ولكن يمتنع عرض جملة select باستخدام OpenQuery ايضا لا مكان للمعلمات داخل الجملة بناء الجملة : OpenQuery(QueryName, View, DataMode) ولكن يمكن لتطبيق الفكرة التحايل واستخدام وسيط مؤقت انظر المرفق vba2.mdb

ضع في الاستعلام في المعيار بدلا من الجملة [ادخل رقم الشهر] ضع رقم 7 هذه اجابة حسب طلبك بالضبط الحل الآخر : عادة يتم اختيار الرقم من داخل النموذج قبل النقر على الزر وهو ما صنعته لك في مثالك المرفق vba.mdb

السلام عليكم لتنفيذ ما تفكر به يجب ان يكون النموذج الفرعي غير منضم الى الجدول ويتم ربطه بجدول مؤقت وعند الحفظ يتم الإلحاق وعند التفريغ يتم الحذف من الجدول المؤقت قد يبدر سؤال : الى يمكن الاستغناء عن الجدول المؤقت ؟ .. نعم يمكن الاستغناء عنه لو كان النموذج منفرد ولكن في الوضع الحالي النموذج فرعي ومرتبط بعلاقة مع النموذج الرئيس والعلاقة هذه هي حقيقة علاقة بين مصدري بيانات النموذجين برنامج22.rar

مشاركة مع اخي محمد عملت استعلام حسب فهمي db17.rar