ابوحمود

الأخ ضع في مربع النص المسمى نص18 السطر التالي بدلاً من الموجود في خاصية مصدر عنصر التحكم : =CInt([hours])+CInt([تقرير فرعي extrahours]!extra) ولك تحياتي

الأخ الكريم fahadam أشكرك وأسأل الله أن يجزيك خير الجزاء . البرنامج اشتغل ولكن لم استطع بواسطته الحصول على مقبض نافذة مربع النص فالذي يعطيني رقم مقطع التفصيل أو رقم النموذج وإذا كنت جربته فمرر مؤشر الفأرة على مربع نص وعلى أزرار أمر تجد الرقم لايتغير ولا أدري م…

الأخ 5060 لا أعرف طريقة لإخفائه لذلك لم أرد . الأمر الآخر هناك طريقة وهي أفضل من هذه الطرق كلها لو أمكن معرفتها وموضوعي الموجود على الرابط : http://www.arabteam2000.com/vb/showthread....p?threadid=7075 من أحد أسبابها . ولكي تراها أدخل أي كلمة في مربع حوار البح…

ما فيه أحد رد وين الأخوان ... أشرف صاحب الرد الأول ابن مسقط 5060 fahadam وبقية الأخوة انتظرت منكم مشاركة :( الأخت سارة بالنسبة للجداول : 1- جدول بيانات المساهم: رقم المساهم : ترقيم تلقائي مفتاح أساسي اسمه،عنوانه،رقم الهاتف،رقم الحفيظة،مصدرها،تاريخها كلها من نو…

أهلا بك ابو خالد ويسعدني من يتابع ويرغب في التطوير فمثله تعرف أن هناك من استفاد . ضع الكود في حدث بعد التحديث لحقل B5 . ولك تحياتي

الأخ الكريم الدولار شرح وافي كافي بارك الله فيك وزادك علماً ووفقك لكل خير ولكنه ليس ما اطلب . الدالة التي أسأل عنها تجدها في الكود التالي وعملها تجزئة العبارة الى كلمات متتالية : Public Function NeatSplit(ByVal Expression As String, _ Optional ByVal Delimiter …

هذا السؤال وردني بالبريد وحيث أن صاحبته لم تستطع التسجيل حسب كلامها فقد نشرته هنا لمن يرغب بالمشاركة والإفادة : بسم الله الرحمن الرحيم تحية طيبة و بعد .. لدي مشروع خاص بالعقارات و أرجو منكم مساعدتي لأني أحس ببعض التشويش في ترتيب الأفكار و كيفية البداية و لقد ا…

أرسل الملف على بريدي . ولك تحياتي

انظر هذا الرابط : http://www.arabteam2000.com/vb/showthread....p?threadid=3598 والكود يعمل في الأكسس والفيوجل بيسك . ولك تحياتي

في هذا الرابط : http://www.arabteam2000.com/vb/showthread....t=%E3%E1%DD+MDE تجد إن شاء الله ما يفيدك . واستخدم البحث قبل كتابة الموضوع الجديد . ولك تحياتي

ما عمل دالة Filter ؟ ارجو الإجابة بالتفصيل . ولمن يعرف هل هناك دالة تشابهها في الأكسس ؟ وللجميع التحية

الأخت عربية على قول أخوانا المصريين احنا من الصبح بنتكلم على أيه . عندك استعلام وتحت حقل التاريخ في معيار اكتبي مثل هذه : between[ادخل التاريخ الأول]and[أدخل التاريخ الثاني] وهي مذكورة في رد الأخ أشرف من البداية . إذا لم تفهمي أيضا فأرسلي لي الملف على البريد و…

إن كان السؤال في تقرير ففي مربع النص الذي تعرض فيه الأسماء في خاصية إخفاء التكرار اختر لا . وجزاك الله على دعائك وجعله في ميزان حسناتك . لم تخبرني هل إنحلت المشكلة السابقة لديك ؟ إذا لم تنحل وأيضا لم تتوصل لحل في هذه المشكلة فأرسل الملف على بريدي مع التوضيح في…

في الفيوجل بيسك يمكن ذلك بكل بساطة عن طريقة اسم مربع النص ثم نقطة ثم hwnd ولكن السؤال في الأكسس كيف أحصل رقم مقبض النافذة لمربع النص أو لغيرة من الكائنات . استخدمت الدالة GetActiveWindow ولكن تعطيني رقم مقبض نافذة الأكسس . واستخدمت FindWindow ولكن لم أعرف تطبي…

الموضوع قديم ولكن وجدن إجابة السؤال فأحببت أن أفيدكم بها . توجد العديد من المؤشرات داخل المجلد C:WINDOWSCURSORS وقد وجدت هذا الكود يغيرها حسب رغبتك فقط غير الاسم : Private Declare Function LoadCursorFromFile Lib "user32" Alias _ "LoadCursorFromFileA" (ByVal lp…

الأخ ابوخالد في حدث عند الخروج من حقل B5 اكتب : If IsNull([A]) Or IsNull() Or IsNull([A1]) Or IsNull([B2]) Or _ IsNull([A3]) Or IsNull([B3]) Or IsNull([A4]) Or IsNull([B4]) Or _ IsNull([A5]) Or IsNull([B5]) Then w = "" Exit Sub End If Select Case x Case Is <= …

جرب التالي : قبل عملية الإلحاق : Me.Painting = False وبعد الإلحاق : Me.Painting = True ولك تحياتي

لقد راجعت الدالة ينقصها الإعلان عن المتغيرات وعبارات اعتراض الخطأ ثم بعد تجربتها لم تؤدي المطلوب . وقد قمت بالتعديل عليها حتى عدلت الناقص فيها : Dim MyDB As Database Dim MyRS As Recordset Set MyDB = CurrentDb() Set MyRS = MyDB.OpenRecordset("ضع اسم جدول هنا", …

العلاقات ثلاثة أنواع : 1- رأس مع رأس وفيها كل سجل في جدول (أ) لايمكن أن يقابله أكثر من سجل في جدول (ب) وكذلك سجل (ب) لايمكن أن يقابل أكثر من سجل في (أ) . 2- رأس مع أطراف : كل سجل في جدول (أ) يمكن أن يقابله عدة سجلات في جدول (ب) وكل سجل في (ب) يمكن أن يطابقه سج…

الموجود في أسفل التوقيع . واك تحياتي