hanan_ms قام بنشر سبتمبر 30 مشاركة قام بنشر سبتمبر 30 تحديث البرنامج بدخول البرنامج OK Mshanan (صور + فيدو + مرفق) والقديم OK Moosak 😂 1- انشاء واجهة سطح المكتب فيها كل برامج والملفات الصور 2- فيها تشغيل الملف فقط او تشغيل البرامج المحدد مع او الكل مع فتح لبرنامج آخر 3-تحميل البيكجات كانت قوالب او اصوات او صور 4- انشاء مجموعات بكل بساطة كواجهة مستغل واختر اختصار عند بداية اقلاع الويندوز وبالفيديو توضيح طريقة الاستخدام 1- افتح متصفح ملفات الويندوز انشاء ملف والصق في الملف اختصارات البرامج او برامج اكسس او الصور او الفيديو او الاصوات او اي ملف غير معروف من القائمة الجانبية اختر الملف والاسفل سمة ثم اختر اضافة فقط 2- اختر بالقائمة الرئيسية 1- new_Scan ثم 2-Up_date ثم 3-Run_Update_Folder Next Finsh اغلاق فقط ================== 3- اختر الصور للملفات اما صورة الملف او صورة انت تختار الصور للملف من شريط العلوي اختر IF_All_IMG ============================ نسيت الغاء Selected_Folder 😇 عند تحريك المؤشر نازم توقيت بارميتر = 0 عند الخروج =100 مفنوح المصدر استاذ @Moosak 🌹❤️☕ هذي قائمتي اشرايك نفس فكرتك بس بطريقة مختلفة مع تغيل برامجك شوف الفيديوا 😁 تحميل البرانامج https://www.mediafire.com/file/t080nzipmn9qttz/V2_league-of-legends.rar/file 1 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر سبتمبر 30 مشاركة قام بنشر سبتمبر 30 شكرا @hanan_ms 🌹 تصميم جميل وألون باهرة .. 🙂 لكن هل يمكن شرح كيفية الاستفاده منه بالصوت ( الكلام ) ؟ ولو عن طريق الذكاء الإصطناعي أو الكتابة .. لأن التصميم متداخل جدا وغير مفهوم إطلاقا .. 😪 رابط هذا التعليق شارك More sharing options...
hanan_ms قام بنشر أكتوبر 3 الكاتب مشاركة قام بنشر أكتوبر 3 (معدل) استاذ @Moosak 😂☕🌹❤️ on error resume next '============= No Use Exit For And No Use Cod Loop IF Stop Loop with Stop Net = Full db Error # And No Use With = Size MB db Full = Close db dim run as string dim rung as integer '===============( * ) docmd.gotorecord ,, frist for run = 1 to dcount("[ID]","[TabletX]") ' any number or on tablet number for rung = 1 to 8 if isNull(Form_Sx.Textbox) or Form_Sx.Textbox="" then else Me("TextBoX" & 1) =Form_Sx.Textbox docmd.gotorecord,,next end if if isNull(Form_Sx.Textbox) or Form_Sx.Textbox="" then else Me("TextBoX" & 2) =Form_Sx.Textbox docmd.gotorecord,,next end if if isNull(Form_Sx.Textbox) or Form_Sx.Textbox="" then else Me("TextBoX" & 3) =Form_Sx.Textbox docmd.gotorecord,,next end if if isNull(Form_Sx.Textbox) or Form_Sx.Textbox="" then else Me("TextBoX" & 4) =Form_Sx.Textbox docmd.gotorecord,,next end if if isNull(Form_Sx.Textbox) or Form_Sx.Textbox="" then else Me("TextBoX" & 5) =Form_Sx.Textbox docmd.gotorecord,,next end if if isNull(Form_Sx.Textbox) or Form_Sx.Textbox="" then else Me("TextBoX" & 6) =Form_Sx.Textbox docmd.gotorecord,,next end if if isNull(Form_Sx.Textbox) or Form_Sx.Textbox="" then else Me("TextBoX" & 7) =Form_Sx.Textbox docmd.gotorecord,,next end if if isNull(Form_Sx.Textbox) or Form_Sx.Textbox="" then else Me("TextBoX" & 😎 =Form_Sx.Textbox docmd.gotorecord,,next end if next run next rung msgbox "don" Erorr # =الي موجود كان محجوز كامل استعلام من غير حدد الدوران بكامل سجلات الجدول بعض الاكواد لا تتجاوز 20 الف سجل as Long ?! لجعل عامود الحقل بالجدول الى صفوف عندك طريقة احسن من طريقة دي On 9/30/2024 at 8:09 AM, Moosak said: هل يمكن شرح كيفية الاستفاده الاستفاد اذا كان مشروعك لعرض الخرائط او الفيديوات لشرائح الندوات التعليمية او تنظيم عملك بالجهاز او كتلوج المواد .... ممكن تطويره لعمل صيانة برامج او ادوات تم تعديل أكتوبر 3 بواسطه hanan_ms رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان