ابوخليل

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

تفضل بدون فلتر ( انقر بدون كتابة شيء : يفتح الجميع ) او اكتب الاسم للفلترة مثال2.mdb

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

هنا امثلة لادخال درجات طلاب مدرسة

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

الافضل اشرح لك الكود اعلاه من اجل تفصل على ما يحلوا لك 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