محمد طاهر

تضعها فى موديول ثم تستدعيها فى مربع النص راجع المواضيع السابقة ، قام أكثر من أخ بوضع أمثلة علي استخدام دوال التفقيط ( استخدم خاصية البحث )

Me.saderno هو الحقل المراد تخزين النتيجة فيه Me.sadermsgno هو القل الذي به مسلسل الرسالة أما عن و ضع الكود فيمكن وضعه فى حدث بعد التحديث للحقل الثاني

السلام عليكم Me.saderno = Me.sadermsgno + "/" + Str(Year(Now()))

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

قم بعمل استعلام جديد مبني علي الاستعلام السابق و الجدول الاصلي مع ربط كل من partno price واظهر المعلومات التي ما تربدمن الاستعلام الجديد الاستعلام الاصلي و اسمه query2 SELECT First(Table4.company) AS FirstOfcompany, Table4.partno, Min(Table4.price) AS MinOfpri…

استبدل اسم صندوق النص المسمي رقم البطاقة ب id Private Sub id_AfterUpdate() Dim M As Boolean M = DLookup("[haeh]", "جدول1", "[ID]='" & Me.id & "'") If M = True Then MsgBox "RECEIVED HIS SALARY" End Sub

بما أن مصدر بيانات الفورم مختلف عن الجدول الذي تريد البحث فيه فاستخدم الدالة DLOOKUP للحصول علي القيمة المناظرة لل id ثم نفذ ما سبق بناء علي هذه القيمة

للمشتركين الجدد : قواعد طرح الاسئلة http://www.arabteam2000.com/vb/showthread....=&threadid=5827 برجاء الالتزام بها ، و الا تعرضت المشاركة للتعديل أو الالغاء كيف ترد علي سؤال دون أن تحرج الآخرين http://www.arabteam2000.com/vb/showthread....&threadid=10675 طريق…

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

السلام عليكم نشكرك أخونا العزيز علي كرمك و أثابك الله خيرا عن مجهودك ، و زادك علما

اعتقد أن المشكلة فى ال references اكتب الجملة التي يتوقف عندها البرنامج

السلام عليكم أخي الكريم يوجد أكثر من مثال علي ما تريد فى قسم الاكسس فاستخدم خاصية البحث فى المواضيع السابقة

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

السلام عليكم Me.SumFieldname = Dcount("[FieldName]", "TableName") و في حالة و ضع شرط علي الجمع ============================= Me.SumFieldname = Dcount("[FieldName]", "TableName", "[ID] = '" & (Me.ID) & "'") وفيه يتم جمع القيم الموجودة من الجدول مباشرة بناء علي …

بفرض ان الجدول به الحقول الآتية company Partno Price و ان اسم الجدول هو table4 قم بعمل الاستعلام كالتالي SELECT First(Table4.company) AS FirstOfcompany, Table4.partno, Min(Table4.price) AS MinOfprice FROM Table4 GROUP BY Table4.partno; أي انه استعلام تجميع كما…

السلام عليكم أقصد ب fieldname اسم الحقل الذي لديك فعلا

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

Accesss developpers kit النسخة المنتشرة منه هي لاوفيس 97 و النسخ الحديثة غير منتشرة فى الوطن العربي أوضح مكانك ، ربما كان أحد الاخوة من نفس البلد لديه نسخة أما عن الexe فهو لا يسوي exe و لكن يسوي نسخة setup تعمل بدون الحاجة لوجود اكسس علي الجهاز

السلام عليكم أكواد البرمجة التي تراها هنا يمكن تصنيفها الي شقين 1- تعبيرات البرمجة النمطية مثل if-then-else 2- منطق البرمجة أو ال logic و هو يعود الي المنطق المتبع من قبل المبرمج أعتقد أنك بمراجعة الامثلة الموجودة هنا يمكنك أخذ فكرة عن الاثنين ممعا و بالنسبة ل…

السلام عليكم if me.fieldname = -1 then msgbox "salary received" حيث -1 تمثل نعم و صفر تمثل لا