ali2017

بارك الله فيك ممكن تعديل الكود كي يعمل فقط على اوفيس 2007 ؟

شوف كدا ايه مشكلة الفورم دا form.rar

صممت قاعدة بيانات على اللاب توب وعندما نقلتها على جهاز ديسك توب بحجم شاشة اقل لم يظهر كامل النموذج ما الحل form.rar

السلام عليكم ورحمة الله وبركاته اساتذتي الكرام عاوز وحدة نمطية لاخفاء عمود اختاره في جدول وليكن عمود secret الرقم السري وليس اخفاء الجدول كله

محمد بيه ازييك للمعرفة والتعلم بارك الله فيك

ربنا ما يحرمني منك يا رب ويجزيك كل خير تسلم حبيبي جاري التنفيذ

تسلم ايدك محمد بيه فيه مشكلة لما بعمل الكود بتاع حضرتك وبحاول اجربه على نموذج عندي بتطلع رسالة خطا من الفيجوال بيسك وهي User not definded

نفس المشكلة

نموذج تقرير جدول

هذا ما كنت ابحث عنه هل يمكن تقليل الارقام بعد العلامة العشرية ؟ 2.375 مثلا نجعلها 2.4 مثلا 2.897 نجعلها 3 مثلا هل ممكن ؟؟؟

ربنا يكرمك استاذ محمد ايمن يا ال دايما من اول ما سجلت هنا بلاقيك ردك سريع وفعال متشكر يا محمد بيك جربت ونجحت الباقي بقى عاوز كود يدور على كائن داخل قاعدة البيانات لو مش موجود بالسلامة يقفل هاااااااا الاقي عندك ؟؟؟؟؟ اكيد هلاقي ان شاء الله

جزاك الله كل خير اخي shivan

الاخوة الكرام اريد كود في نموذج الشاشة الرئيسية يبحث عن ملف معين في حال وجده تفتح قاعدة البيانات والا يقوم بغلقها انا جربت طريقة زرع ملف التي ذكرها الاخوه بالمنتدى ولكن على اكسيس 2007 لا تعمل وتظهر لي رسالة خطأ db2017.rar

الاخ محمد ايمن بارك الله فيك على اهتمامك اليك مثال اريد تحويل الكود الى وحدة نمطية وبدل كتابة كل هذا الكود اكتب سطر واحد بارك الله فيك وجزاك كل خير db2017.rar

بارك الله فيك جاري التجربة وساوافيك لم تعمل sha ولم استطع ارفاق مثال لان الملف ضخم

Private Sub a1_AfterUpdate() If h1 = -5 And h2 = -5 And h3 = -5 And h4 = -5 And h5 = -5 And h6 = -5 And h7 = -5 And h8 = -5 And h9 = -5 And h10 = -5 Then h = -5 Else h = -6 m = Val(Nz(a1)) + Val(Nz(a2)) + Val(Nz(a3)) + Val(Nz(a4)) + Val(Nz(a5)) + Val(Nz(a6)) + Val(Nz(a7)) + Val(Nz(a8)) + Val(Nz(a9)) Select Case m Case Is >= 0 m = Val(Nz(a1)) + Val(Nz(a2)) + Val(Nz(a3)) + Val(Nz(a4)) + Val(Nz(a5)) + Val(Nz(a6)) + Val(Nz(a7)) + Val(Nz(a8)) + Val(Nz(a9)) End Select Select Case m Case Is = -1 t = "ÛíÇÈ" Case Is >= 306 t = "ããÊÇÒ" Case Is >= 270 t = "ÌíÏ ÌÏÇ" Case Is >= 234 t = "ÌíÏ" Case Is >= 180 t = "ãÞÈæá" Case Is < 180 t = "Ïæä ÇáãÓÊæì" End Select If h1 = -5 Then r1 = 0 Else r1 = 1 If h2 = -5 Then r2 = 0 Else r2 = 1 If h3 = -5 Then r3 = 0 Else r3 = 1 If h4 = -5 Then r4 = 0 Else r4 = 1 If h5 = -5 Then r5 = 0 Else r5 = 1 If h6 = -5 Then r6 = 0 Else r6 = 1 If h7 = -5 Then r7 = 0 Else r7 = 1 If h8 = -5 Then r8 = 0 Else r8 = 1 If h9 = -5 Then r9 = 0 Else r9 = 1 If h10 = -5 Then r10 = 0 Else r10 = 1 r = Val(Nz(r1)) + Val(Nz(r2)) + Val(Nz(r3)) + Val(Nz(r4)) + Val(Nz(r5)) + Val(Nz(r6)) + Val(Nz(r7)) + Val(Nz(r8)) + Val(Nz(r9)) + Val(Nz(r10)) End Sub السلام عليكم ورحمة الله الاخوة الكرام اريد وضع هذا الكود في وحدة نمطية وكيفيه استدعائها في مربع نص في حدث بعد التحديث

اخ صالح بارك الله فيك على تفاعلك وسرعة ردك هل ممكن كود يقوم بحذف جميع الكائنات بدون كتابة اسمها مجرد تسمية نوع الكائن فقط ودالة التاريخ هي عبارة عن الفرق بين تاريخين اول تاريخ لتشغيل البرنامج والتاريخ الحالي

مشكور اخي الغالي جاري التحميل والتجربة وساوافيك بالنتيجة

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

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