مهند عبادي

بسم الله الرحمن الرحيم .. بالنسبة للعلاقات لم يقم أحد بعملها ألأنا سويتها على السريع وأضعها هنا الآن لكي ترونها ومن لديه رأي فليقله عنها كما أضفت حقل PlayerId إلى جدول Transfers DATA.rar

أنا أقترح أن نعمل هذه المسابقة التنشيطية في موضوع مستقل لأن برنامج الدوري وإن كان يحتوي العديد من المشاركين المهمين فإن حجم العمل به كبير جداً .. ويجب استثمار كامل الجهد في إنجاز ذلك المشروع

x = Val(Text1) y = Val(Text2) Text3.text = "" Do While x < y Print x Text3.text =text3.text & IIf(text3.text>"",",","") & str(x)

مشكورة أختي أم حسان على هذا الجهد الطيب لي بعض الملاحظات أرجو أن لا تنزعجي منها : 1- عليكِ أن تقومي بعملية ضغط وإصلاح قاعدة البيانات للبرنامج لأن حجم الملف هو 1.79 ميغابايت تقريباً .. وبعد الضغط والإصلاح أصبح حجمه 688 كيلوبايت 2- أنا رأيي أن الأزرار جميلة وليس…

ضع مربع نص في النموذج الآخر .. واجعل مصدر عنصر التحكم يساوي : =Forms!F1.[T1]

أشكر أخي starnoor2000 على المساعدة أخي snmdody .. أنا آسف لأني أخطأت فعلاً في الكتابة بسبب السرعة .. وعليك اعتماد الكود بالصيغة التي كتبها الأخ StarNoor2000

أخي الكريم هذه عبارة عن حلقة لا يهم عدد الأرقام فيها الآن أنت تطلب طباعة هذه النواتج في تكست .. كيف تريد طباعتها ؟؟ في كل سطر ناتج ؟؟ استخدم هذا الكود x = Val(Text1) y = Val(Text2) Text3.text = "" Do While x < y Print x Text3.text =text3.text+vbcr+str(x) أما إ…

الحقيقة أخي المبرمج .. أن جهودك أنت والأعضاء هي التي تثري المنتدى في هذا الموقت ومشاركاتك الكثيرة ومساعدتك للأخوان مميزة ولافتة وأذكر أيضاً الأخ StarNoor والأخ Biskra وإن كان في الفترة الأخيرة متغيباً لا أدري لماذا فجزاكم الله كل الخير وجعل ذلك في ميزان حسناتك…

إما تعمل الطريقة التي قالها الأخ a_beshari أو تستخدم تعليمة Dcount وتضعها مصدر عنصر التحكم لمربع النص غير المنضم بهذه الصيغة: =DCount("[TableName]";"SubFormRecordSourceName")

أخواي أحمد الحربي .. وعبد الهادي الألمعي بارك الله بكما .. الآن المنتدى قد كسب زخماً جديداً ببعودتكما إلى المشاركات تحياتي

أخي فرحان : أحبك الذي أحبتني به أشكرك من كل قلبي

هذا لا يمكن عمله على حد ما أعرفه .. (ربما يكون هناك طريقة وأنا لا أعرفها) والحل في هذه الحالة يكمن في ما يلي : اعمل جدول يحتوي حقلان .. حقل الربط مع الجدول الرئيسي وحقل ترقيم تلقائي .. واربط اتلجداول الفرعية معه من خلال حقل الترقيم التلقائي , وهكذا لن يتزز هذا…

جميل جداً جداً بارك الله فيك أخي سعد وجزاك كل الخير

بعون الله نتابع البرنامج أحتاج أولاً من يقوم بعمل العلاقات بين الجداول ريثما أعّد للمتابعة وتوزيع المهام قريباً جداً

نبهني الأخ أبو هادي إلى أن Trim غير موجودة في الدالة changesearch وكنت أحسبها موجودة سهواً .. لذلك إما أن تعود إلى سطر أخي أبو هادي أو أن تضيف هذا السطر في برمجة الدالة changesearch بعد سطر : Tempstr = Nz(Mytxt, "") Tempstr = Trim( tempstr )

جزاك الله خيراً أخي عبد الهادي وجعله في ميزان أعمالك

نعم الأخ Walcom يتكلم من حيث معرفته هو كخبير SQL SERVER .. اما من يبني تطبيقات مبنية على برنامج الأكسس يعرف أن هدف وجود العلاقات العامة الأساسي هو تسهيل العمل في البرنامج وبناء الاستعلامات وأعمال الحدف والتحديث المترابط .. الخ والتي هي ممكن أن نعملها من خلال ع…

إذا كان اسم حقل الساعات الإضافية Ex نكتب الدالة التالية ضمن الفورم Private Function TimeSum() As Single Dim E As Single, I As Single E = DSum("int([Ex])", Me.RecordSource) I = DSum("[Ex]", Me.RecordSource) - E E = E + I \ 60 E = E + (I Mod 60) / 100 TimeSum = …

السلام عليكم أخوتي الأكارم المبدأ الذي تكلّم عنه Walcomصحيح تماماً ولكن التجربة العملية (وهذا ما حدث معي) أثبتت أن ترك القاعدة بدون علاقات ربط أفضل .. أما عن علاقات الربط فإني أضعها فقط ضمن الاستعلامات التي أعملها أو في خاصية مصدر السجل للنماذج أو التقارير ولي…

تظهر سالبة لأنه المفروض نضع التاريخ الأصغر أولاً .. يعني اكتب : DateDiff("d";now();EXPDATE)