اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

تحديث البرنامج بدخول البرنامج OK Mshanan (صور + فيدو + مرفق)

والقديم OK Moosak 😂

1- انشاء واجهة سطح المكتب فيها كل برامج والملفات الصور 

2- فيها تشغيل الملف فقط او تشغيل البرامج المحدد مع او الكل مع فتح لبرنامج آخر 

3-تحميل البيكجات كانت قوالب او اصوات او صور 

4- انشاء مجموعات بكل بساطة 

كواجهة مستغل واختر اختصار عند بداية اقلاع الويندوز :wink2:

وبالفيديو توضيح 

طريقة الاستخدام 

1- افتح متصفح ملفات الويندوز انشاء ملف والصق في الملف اختصارات البرامج او برامج اكسس او الصور او الفيديو او الاصوات او اي ملف غير معروف 

من القائمة الجانبية اختر الملف والاسفل سمة ثم اختر اضافة فقط 

2- اختر بالقائمة الرئيسية 

1- new_Scan

ثم 

2-Up_date

ثم

3-Run_Update_Folder

Next Finsh 

اغلاق فقط 

==================

3- اختر الصور للملفات  اما صورة الملف او صورة انت تختار الصور للملف من شريط العلوي اختر 

IF_All_IMG

============================

نسيت الغاء 

Selected_Folder 😇

عند تحريك المؤشر نازم توقيت بارميتر = 0

عند الخروج =100

مفنوح المصدر 

استاذ @Moosak 🌹❤️

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

15.jpg.8b4de332c4fc5b1961b487d3d3c56ff9.jpg

24.jpg.4a8997203f33b8b7ad4d86a182da920c.jpg

33.jpg.578a7b595d3d9f46539804260b79f45b.jpg

تحميل البرانامج

https://www.mediafire.com/file/t080nzipmn9qttz/V2_league-of-legends.rar/file

 

 

  • Thanks 1
قام بنشر

شكرا @hanan_ms 🌹

تصميم جميل وألون باهرة .. 🙂 

لكن هل يمكن شرح كيفية الاستفاده منه بالصوت ( الكلام ) ؟ ولو عن طريق الذكاء الإصطناعي أو الكتابة ..

لأن التصميم متداخل جدا وغير مفهوم إطلاقا .. 😪

قام بنشر (معدل)

استاذ @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 ?!

 

لجعل عامود الحقل بالجدول الى صفوف

 عندك طريقة احسن من طريقة دي :wink2:

 

 

On 9/30/2024 at 8:09 AM, Moosak said:

هل يمكن شرح كيفية الاستفاده

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

ممكن تطويره لعمل صيانة برامج او ادوات 

تم تعديل بواسطه hanan_ms

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information