فهد الدوسري

أخي tamerzaki أدرج أسماء الشركات في جدول مع كود كل شركة وقم باستدعاء اسم الشركة وإدراجه في الحقل المخصص بعد أن يكتب الكود الخاص بكل شركة . في الحوار القادم (14) سوف تجد الطريقة لكيفية الاستدعاء . ======================================= حوار 14 = محمد : هناك مج…

أحسنت يا أخي هذا يدل على أنك تريد العلم أؤيدك في ذلك وأتمنى لك التوفيق .. ولكن هذا لا يمنع أنك تضع ما لديك هنا لنقوم بعمل البرنامج معاً . تحياتي ..

لا شكر على واجب وأهلا بك معنا .

أخوي الشاعر .. ألم تجعل الكود ينفذ في حدث ( عند التحميل ) للنموذج ؟ إذا كان جوابك نعم .. فكيف تريد القيمة أن تتغير ولم تقم بفتح النموذج ؟ أنا أقول لك هذا الكلام من منطق عقلي القاصر وخبرتي القليلة جداً في مجال البرمجة ولا أحكم على فشل ما تريد فهناك من هم أقدر م…

أنظر المثال بعد التعديل .. أرجو أن يكون هذا هو ما تريده . تحياتي .. db1.zip

لقد جربت عددت مرات والكود يعمل معي 100% حيث قمت بفتح الجدول والنموذج في نفس الوقت لأرى التغيير هل يتم أم لا ثم قمت بتغيير الرقم من خلال الوحدة النمطية في النموذج وعند عرض النموذج تم تغيير القيمة في الجدول ولم أقم بإغلاق النموذج . تحياتي ..

هل هذا ما تريد ؟ أم تريد عدد فقط بهذه الصيغة.. عدد السعوديين 15 عدد غير السعوديين 20 طبعاً دون معرفة الجنسية . أرجو الإجابة . zomal.rar

أعطني مثال على تغيير المعادلة لكي أقوم بتجربته .. بمعنى آخر ما هو التغيير الذي تقوم به أنت ؟ تحياتي ..

هل لك أن تضع هذه البيانات المعمولة بالأكسل هنا في المنتدى لكي يسهل تحويلها إلى برنامج أكسس . تحياتي ..

أخي tamerzaki تفضل مثال على Select Case لتعرف أين وضعتها أنا عندما كانت في مربع نص . تحياتي .. طريقة select.rar

الفكرة تتلخص في الآتي :- ضع مربع نص في النموذج يقوم بعد السجلات . ثم ضع كود عن طريق الدالة الشرطية if للتأكد من عدد السجلات التي في مربع النص قبل الإدراج فإذا وصل العدد إلى أربعة ضع رسالة تفيد بعدم إمكانية إضافة أكثر من أربع سجلات . تحياتي ..

يوجد برنامج قريب من طلبك على هذا الرابط /index.php?showtopic=51832 تحياتي ..

لضبط الهوامش يسار وأعلى وأسفل ويمين ولكون الصفحة أفقية أو عمودية ولحجم الورق يستخدم الكود التالي : في التقرير في حدث عند الصحفة Report_Page Me.Printer.LeftMargin = 520 Me.Printer.TopMargin = 520 Me.Printer.BottomMargin = 520 Me.Printer.RightMargin = 658 Me.Pri…

أخوي الشاعر عدل الكود الموجود في النموذج هذا .. Private Sub Form_Load() Result = ([ShowDriveInfo] + 815 * 5) - 815815 CopyNo = Result End Sub ليصبح هكذا .. Private Sub Form_Load() Result = ([ShowDriveInfo] + 815 * 5) - 815815 CopyNo = Result Me.Refresh End Sub…

ذكر الأخ e_othman04 الحل لك باللغة الإنجليزية . وباللغة العربية .. إذهب إلى تصميم الجدول ومن خصائص الحقل غير ما يلي : حجم الحقل : (مزدوج) . تنسيق : ( ثابت ) . المنازل العشرية : (2) . مع الشكر للأخ e_othman04 تحياتي ..

إجابة أسئلتك تجدها في موضوع ( حوار مع فهد الدوسري ) على هذا الرابط /index.php?showtopic=50618 حوار 3 = محمد : كيف أستطيع أن أجعل الساعة في شاشة النموذج يتم تحديثها أولاً بأول ؟ = فهد الدوسري : إذا أردت ذلك فعمل ما يلي : - ضع مربع نص غير منظم في النموذج وسمه مث…

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

في مصدر بيانات مربع النص الذي يخرج فيه المجموع ضع هذا (حسب ما تفضل به أخي سوالف ليل ). =nz([t1];0)-nz([t2];0)-nz([t3];0) تحياتي ..

أذهب إلى هذا الموضوع /index.php?showtopic=52014 وسوف تجد فيه موضوعا بعنوان المشروع الجماعي ( برنامج الدوري) حمل البرنامج وسوف تجد فيه ما تريد . تحياتي ..

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