hanan_ms

تم فصل هذه المشاركات الى موضوع منفصل ، حتى يتمكن صاحب الموضوع من مواصلة شرحه لعمله ، وارفاق النسخ الاحدث جعفر - فريق العمل ----------------------------------- اداة Activity ToggleButton View 3D IMG 3D Form C4d Animation Close acForm , Me.Form Classic Form مع شرح مختصر بداخل luncher_Form.rar

@Zooro1 بوضح لك شغله .Fields() الصف او السجل غير مطلوب جدول الفولدر -1 جدول الصور 2- جدول اليوم حسب التواريخ -3 جلبهم من سجل (واحد) صفين مختلفين بصفوف بجدولين للعرض وكان المفترض وقت الساعة منظم فستبدلة ب Sleep للسهولة والاختصار ============================== اما للشبكة انترنت في عدة طرق سهلة من غير تكاليف او اشتراك جرب تضبط 3 1- تنصيب قوقل ادرايف للاجهزة الخمسة للاتصال بالقاعدة والفصل وعند الاغلاق اتصال وفصل يعمل بالانترنت بمسار ملف 2- اسهل يوجد نموذج من اكسس للويب اجعلة (تسجيل الدخول) او تحديث لسجل واحد لكل جهاز 3- اسهل واسهل اشبك الكمبيوترات شبك محلية لجهاز واحد عن طريق برنامج ريموت ديسكتوب من قوقل او من سبلاش والاتصال من اي تلفون او كمبيوتر تشوف من الي شبك باللحظة😂وكافة الرعود حسب كفائة الاتصال ومعمارية الجهاز كون هذاك السحاب وعرض تقارير حسب طلبك

دالة الترقيم من استاذي @ابو جودي ❤️🌹🌹 ( تجرب بشاشة الرئيسية تغير صورة النموذج ( الخلفية طلب @Zooro1 1-اضافة جدول جديد على سبيل المثال اسم :nn 2-اضافة حقل : ID نوع ترقيم تلقائي بشرط لا يكون مفتاح رئيسي 3-❤️🌹من خلال دالة اعادة الترقيم بالتواريخ من الى للعرض الصور خلفية دالة ابو جودي 4-طريقة الاستدعاء حدث عند التحميل والفتح 5-تغير الزمني للصور من دالة Sleep على سبيل المثال :Sleep 500 خمس ثواني Form Zooro1 Option Compare Database Option Explicit #If VBA7 Then Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #Else Private Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #End If Public Function movie_wallpaper() Dim day_w As String Dim Month_w As String Dim yaers_w As String '=========================(Aouto Change Photo ) Dim Aouto_photo As Integer Dim photoPath As String 'Dim name_folder As String '=============================================(ÇÐÇ ßÇäÊ ÇáÊÍÏíÏ íæãí Çæ ÔåÑí Çæ Óäæí 'day_w = Format(DLookup("[str_date]", "[nn]", "[str_date] <'deta()'")(), "dd") 'day_w = Format(DLookup("[str_date]", "[nn]", "[str_date] <'deta()'")(), "mm") 'yaers_w = Format(DLookup("[str_date]", "[nn]", "[str_date] <'deta()'")(), "yyyy") '=============================================(snad form start day ) 'DoCmd.SetWarnings False 'DoCmd.OpenQuery "Chack_date_Foe_wallpaper", acViewNormal, acEdit 'DoCmd.SetWarnings True 'Mohammed_Essam_AutoNumFix3 '===============================( IF form one tablet star) 'If DCount("[str_date]", "[IMG_X]", "[str_date] <'deta()'") = 0 Then 'For Aouto_photo = 1 To DCount("[str_date]", "[IMG_X]", "[str_date] <'deta()'") 'photoPath = DLookup("[str_date]", "[Chack_date_Foe_wallpaper]", "[end_date] <'deta()' And [IDX] =" & Aouto_photo & " ") If DCount("[ID]", "[nn]") = 0 Then Else For Aouto_photo = 1 To DCount("[ID]", "[nn]") Dim name_folderA As String name_folderA = DLookup("[IDD]", "[nn]", "[ID] =" & Aouto_photo & "") photoPath = DLookup("[path_PC]", "[PC_path]") & "\" & DLookup("[IMG_Pacge]", "[lablory_IMG]", "[ID] =" & name_folderA & "") & "\" & DLookup("[path_X]", "[nn]", "[ID] =" & Aouto_photo & "") Form_Zooro1.Picture = photoPath Sleep 500 Next End If End Function 3D_IMG_BooK_V1 Time_Wallpaper.rar

3D_IMG_BooK_V1.rar شنو الاكواد الي بتخليهم في موديول؟

استاذي @ابو جودي ليش متضايق ❤️🌹 شوف اشلون عرض برنامج نفس @Moosak فقط Gif يشرح ========================== يمكن احاول اقلدكم على طريقتكم استاذي @ابو جودي عط زفير وكمداة بارده 😂 الرعود اثرة فيني ========================== ثري دي للصور مع التعديل صححة مكتبة الصور زودة لكم تأثيرات الفيديو 😇تغير العرض وستخدام كود التايمر هل المره انتم تضيفون الصور ما يزعل صاحب المكتبة العامرة @Moosak 🌹😇 شرح طيرقة الاستخدام Gif من العروض تقديمية للصور المضاف الى مكتبة عرض مكتبة الصور 100%

لا مو Ezril ؟!!! هذا من تأثير البرق 😂 انا جمعة مكتابتي العامره من استاذي @ابو جودي❤️❤️ واكثر و @Moosak و Ezril و عبدالغفار و @Ahmos واجنبي 😇 الكل لهم الشكر والامتنان وانا كنت احاولة الاختصار وتعرف العيد يبيله تجهيزات شكله مرفقي شحنته مضروبة 😂 استاذي @ابو جودي ❤️🌹 هل يوجد دالة تعيد رقم التلقائي للعلاقة IDD رقم 😇 وكل سنة جديده من غير تنشيط + وانا بعدل ؟! نسيت شغلة لعرض مكتبة الصور واضافة دالة @Ahmos جلب الصور في ملفين ملف للعرض تكون الصوره متطابق الارتفاع والعرض = تمديد الصورة ❤️🌹🌹

======================================= تحميل App_IMG_BooK V1.part1.rar App_IMG_BooK V1.part2.rar App_IMG_BooK V1.part3.rar

😂😇 استاذي @ابو جودي ❤️🌹🌹 الرعد قبل يوم العيد 😂 !تم انتهاء من بعض التعديلات يعني كامل ❤️🌹 1- اضافة مكتبة مع التحديث 2- اضافة تحديد الوسائط الصور او الكل 3- عرض مكتبة من غير حمل مع التصحيح والمكتبة صور 4-تحرير والحذف الصور من المكتبة المحدد 5-اضافة تحريك اكشن ما يوقف الا بعد ضغط على زر العرض والايقاف

تحديث سريع للاضافات فقط 1-اضافة (3D) _مع خيار تفعيل والغاء بزر 2-اضافة مكتبة كافة الصور المضافة ميزه حلوه من غير حمل بكود اسهل Me ( "r" & rng_Book) * me.scrollbar =================================== سوف اقوم ببعض التعديلات❤️ مع استاذي @ابو جودي 🌹🌹 Book_img_Aouto.part1.rar Book_img_Aouto.part2.rar Book_img_Aouto.part3.rar Book_img_Aouto.part4.rar

وتم اضافة دالة من استاذي @ابو جودي ❤️🌹🌹 100% لأعادة الترقيم احذف الصور واضافة صور جديده يكون مسار الصور المضافه جنب قاعدة وانتظروا التحديث 😇

مشاركتي معكم ومع استاذي @ابو جودي @Moosak وهذي مشاركتي بس مع بهاراتي الخاصة 😎 حبيت 😂 1-يمكن نقل البرنامج لاي جهاز ثاني عند السحب يأخذ اسم الملف مع تجزئة المسار ويتعرف من البداية اذا كان جهاز آخر وتحديث Aouto 2-اضافة كتابة عناوين للصور بقائمة البوم 3-عدلة وصلحة تحريك وعرض الصور 5-امكانية جعل الصور ممتده او محجمة بضغطة زر 6-عرض تقديمي موضيئ 😂 وبرق يطلع من الشاشة ========================= Aouto_Give_And_Swho_And_Allbom_img.part1.rar Aouto_Give_And_Swho_And_Allbom_img.part2.rar Aouto_Give_And_Swho_And_Allbom_img.part3.rar Aouto_Give_And_Swho_And_Allbom_img.part4.rar 😂 اذا كان جودة الصورة معقولة تجد البرنامج سلس اما اذا كان ذا جودة واطار عالي تشوف اضواء يحتاج الى بعض التعديل 😇 وشكرا لكم ولاستاذي @ابو جودي ❤️🌹🌹

حاضر استاذ @Ahmos مع بعض تعديلات❤️🌹🌹

only Cod if me.EndDate > date then !! =========================== اضافة برق مع الرعد 😂 انار ما حولهم اذا مشو فيه 😂 ====================== اختيار اعلانات بتاريخ الصلاحية او عرض صور بطريقة البوم فقط للتجربة وليس للإضافة الى المكتبة العامرة ==================================== استاذي @ابو جودي صدمتني بصور المرفقة ❤️🌹 img.part1.rar img.part2.rar

اشكرك وايد استاذ @Ahmos ❤️🌹 👍 تمة التجربة ميدوال رائع صحيح عند اختيار صورة حجم K4 تمتد الصورة وعند تجربة صورة اقل من الجوده تتم الاقتصاص شفت استاذي @ابو جودي من مرفق امس دخان 😂 من غير رعود ============================ Editor_Size And Cropping an Image With Controll Print v.1.part1.rar Editor_Size And Cropping an Image With Controll Print v.1.part2.rar

اشكرك استاذ @Ahmos على الدالة وتمة التجربة هي تمدد الصوره وحبيت الدالة ❤️😇 اتمنى لو كانت الدالة لاقتصاص الصور بالحجم المطلوب وليس التمدد بالطول والعرض المحدد Cropping an Image With Controll Print v.1.4.part1.rar Cropping an Image With Controll Print v.1.4.part2.rar

بعد عمري صفاء @Moosak من غير كثرة الاستعلامات حاولة مع وحش المكتبة العامر 😂 لاي نموذج سهل بنتظار تجره يالله بسحب الركام تيب استاذي @ابو جودي ندخل سونامي ❤️🌹🌹 😂 ان شاء الله سهل عليج حبيتي صفاء ما يحتاج شرح😇 DOA_SQL_Objects List 1.0.rar

🌹حبيبتي صفاء حاولة اكمل علاقات الجداول Cod ! ID ! ======================= 1- اضافة شريط فحص باجمالي التحاليل الخطأ والفارغ 2- اذا كان المريض لا يوجد تحاليل لا يطبع 3- اذا يوجد بعض الحقول يطبع ما يكنسل 4- مع المعاينة وطباعة ========================= من غير رعود ولا بروق 😂 sfaa_EX.rar

هذا طلب الموضوع هو طي وتوسيط القوائم بتخطيط المكدس من غير افلاش اكوري لا رعود ولا بروق 😂 من كثر الاشتياق استاذي @ابو جودي ❤️🌹🌹 شفت الي شفته 😂 Menu Plus And Cropping an Image With Controll Print v.1.rar

@Ahmos اخي! ?! وانت استاذ الكريم تغار من @ابو جودي 🌹❤️ 😇 ====================== هذه محاولتي مرفق آخر تحكم بالصور : 1-تدوير 2- اقتصاص 3-كل الصور اقتصاص 4-اعداداة الطابعة ============================== محتاج دالة بعد كل سحب من ماسح الضوئي اسكانر تغير الاحجام 11 و8.5 عند التغير رسالة خطأ؟ =============================== كأن استاذي @ابو جودي !يقول : انا والرعود حين ما تأتي السحب وانا كصحاري اتشوق للمطر 😂 =============================== اتمنى من يستطيع ان يكمل بعض الدوال في المرفق للتشغيل وشكرا Cropping an Image With Controll Print v.1.rar

هل هو طلبك على قدر فهمي 1- تصحيح حذف الصوره من السجل 2-التقاط الصورة مباشر من رقم المقعد 3-امكانية تقلب اذا كانت الصور القديمة =============================== !!!نسية تعديل التقرير حسيت بالرعود 😂 شكله ناسيني @ابو جودي استاذي ❤️🌹🌹 عسى عمره طويل 😇 Ezy any Open Pc1.rar

لم افهم جزء في الدالة Public Function ClassifySpeed() As RequestSpeed Select Case elapsedTime Case Is < 500 ' Less than 500ms ClassifySpeed = TooFast Case 500 To 1000 ' Between 500ms and 1000ms ClassifySpeed = Fast Case 1000 To 5000 ' Between 1s and 5s ClassifySpeed = Normal Case 5000 To 15000 ' Between 5 seconds and 15 seconds ClassifySpeed = Slow Case Else ' Greater than 15 seconds ClassifySpeed = TooSlow End Select End Function من 0 الى 4 تستعمل لاي قياس ؟! اظن يوجد استعلامات ناقصة ======================= بعض الاقتراحات ان كانت مناسبة بدل من استخدام -DOA بتعديل وتشطيب ولكن عمل الدوال ممتع 😇 بناء جدول باسماء الكتب باجمالي السجلات 1 وجدول للاحاديث 2 هنا تفريع فريد اذا كان الرقم مطابق للحديث اضف A مع +1 =260A4 مع اضافة حقل لكافة الاسماء مثال ابن صياد 😇 وحقل اذا كان للحديث وصف فريد للبحث Link Nothing = Go 2-Link db كتاب آخر =========================== نجعل لكل كتاب قاعدة بيانات تناديها db () DOA rs ============================= ممكن بعض الشرح عن وظيفة الدالة اعلاها شكرا لكم🌹

تفضل طلبك لتشغيل على اي حاسوب بتقسيم المسار مع تغير صور التقرير مع ازالة مخلفات دوال مو بس رعود حتى شلال 😂 اعتقد تحتاج الا اعادة بنيان الجداول مع Link وين @ابو جودي استاذي ❤️🌹 Ezy any open pC.rar

❤️استاذي @ابو جودي 🌹سأرفق مرفق حاولة التحجيم الارتفاع من 11 او العرض 8.5 بتغير القيمة على سبيل المثال 8.7 تظهر رسالة خطأ وان صفحات بعد السحب تكون مقصوص عند تذليل الصفحة؟ A4 اكبر بقليل later ( من الفيدر شغال بس محتاجة تعديل على الكود ليعمل لا يقبل قيمة اعلى يعطيني رسالة خطأ من الدالة وليس من الجدول لانه مفتوح فقد غير قيمة الجدول "IDP" لامكان تغير القيمة ومرفق على السريع تجميعة من الاساتذه 😇 تحميل 6 اجزاء ضغط فقط .Rar ==================================== الرجاء التعديل على مرفقي نسية مسارة الملفات من منتدى الآخر تغير مسار بثلاث جداول الى مسار حاسوبك BackEndLocation BackEndLocation000 manger_new_db ترك اسم الملف من مسار المحفوظ ,آخر رمز "/" وشكرا لاستاذي @ابو جودي❤️ ولكم تسجيل الدخول بصورة مرفقة @Moosak من غير رعود 😂 @ابو جودي اهم شي سلامة استاذي وسلامة الجميع Ms-Access ADD User with Control And Link VBa GO ANd Back Link.part01.rar Ms-Access ADD User with Control And Link VBa GO ANd Back Link.part02.rar Ms-Access ADD User with Control And Link VBa GO ANd Back Link.part03.rar Ms-Access ADD User with Control And Link VBa GO ANd Back Link.part04.rar Ms-Access ADD User with Control And Link VBa GO ANd Back Link.part05.rar Ms-Access ADD User with Control And Link VBa GO ANd Back Link.part06.rar Ms-Access ADD User with Control And Link VBa GO ANd Back Link.part07.rar Ms-Access ADD User with Control And Link VBa GO ANd Back Link.part08.rar 8 روابط فقط 🌹❤️ 😇

هذا اسهل واصغر كود لهذا الموضوع اهم شي من غير رعود 😂 @ابو جودي ما لوم استاذي اذا اختفى ❤️🌹🌹 Ezy expand and collapse button VX.rar