بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
hanan_ms
-
Posts
171 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه hanan_ms
-
-
5 hours ago, Foksh said:
أشكرك استاذه حنان على مشاركتك فكرتي المتواضعة
انا من يشكرك استاذ @Foksh ❤️🌹
عمل رائع VBA ❤️
مو كل فكر تطبق مثل ادائك بالكود
غلطة بعرض المشكلة والحل بسيط
بقالي طلب مساعدة
dim --- as (Va)
19 hours ago, hanan_ms said:كيف حفظ القيمة داخل الدالة ورجوع لها (تاخذ القيمة متغيره من الفورم وتحفظ في
Function ?!
عدلة بتحديث مع اضافات 😇
شرح بصور
========================
Mouse And Move And Drops.part01.rar
Mouse And Move And Drops.part02.rar
Mouse And Move And Drops.part03.rar
Mouse And Move And Drops.part04.rar
-
بعد الاضافة الرائعة من استاذ @Foksh❤️
هل يجب اضافة جدول خاص للاستعاده الوضع السابق بعد التحريك او الاحسن تخليها قيم داخل الكود
برنامج للتحكم بتحريك الازرار وتخصيص بالمواس وتخصيص تغير نمط الفورم باللون
بس في مشكلة في فورم الاغلاق عند الفتح (نفس الفورم)على كل فورم
غيرة بينة التصميم 😇 للفورم
موضح بالفيديو
؟! هل يوجد حل ❤️🌹
كيف حفظ القيمة داخل الدالة ورجوع لها (تاخذ القيمة متغيره من الفورم وتحفظ في
Function ?!
"=============================(طريقة اضافة رمز Mouse ) for .Cur And .ani = (Animation )
1-ببرنامج تحويل الصور حول من امتداد (.Cur) To (.Png)
2-نسخ الى نفس الملف (والملف واحد) الكل نفس التسمية (.Cur) And (.Png) And (.ani)
اتمنى لكم تجربة ممتعة
-
1
-
-
32bit (X!)
للمساعدة
3 hours ago, شريف كونكت said:بعد اذنك استاذ جعفر ممكن الملف ده مفتوح المصدر لانى محتاج كود زى كده وشكرا جزيلا
اظن انك كنت فاتح نفس الموضوع وغلق
❤️ ليش صورة شيك بنك برقان داخل الملف
الطريقة خلي حدث عند الضغط المزدوج تساوي الحقل وفي اربع ازرة صورة
PNG فارغة (شفاف)
+ كود تحصل موقع منتدى المبرمجين العرب لتغير شكل الماوس وخله شكل مؤشر الماوس يمسك
اي جهه تحرك الماوس يتحرك العنصر معاك
=0 وعند الضغط مزدوج يلغي التحريك ويغير شكل الماوس الى الطبيعي
Bit 64 و Bit 32! X NO $
================================ (مثال للتطبيق والتجربة)
صوره من التحديث لبرنامج آخر بس بيرفعة بموقع ثاني
واعتذرة لشخص على
Hotmail
بالتوفيق
-
1
-
-
طورة اداة للاتصال بدل من اضافتها داخل القاعده
تطوير مكتبة العامرة @Moosak 😇
شوطة الشاشة 😂
تنادي استاذي @ابو جودي ❤️🌹🌹
1-من برنامج اكسس مستقل جنب اكسس فقط تحريك النافذه اقصى اليمين او شمال وتنور معاك 😇
2- اختر اتصال من اي برنامج اكسس غير مقفول بكلمة مرور
في مشكلة لا تظهر عناصر النموذج او الجدول ؟
=========================
سهل فك كلمة المرور من كود الاتصال
len(Number)+1 = 0 to 9 lin(Number)+1+1 then
link Open db
تم تغير كلمة المرور بس اذا سوية ضغط واصلاح يرجع على اول كلمة مرور ؟
=======================
اكمل التحديث 😇
ما اتوقع في احد ايبها
.gif.60d1a2c7beaee38b251f32db84448f4c.gif)
.gif.c3642df461f79e05c07a59d605162530.gif)
.gif.9f344c2c8e2b9c040a3cf33d760c00fc.gif)
.gif.d94b7759ee36fb4044d0569b82f277fd.gif)
نسيت جم شغلة 😇
-
@فريدالطحانشكرا على المرفق
تعديل مرفق😇
1- اضافة اكشن عند الفتح
2- عدم تمكين اضافة احرف العربية عند ادخال كلمة المرور او السر مع التجديد
-
1
-
-
-
كنت مسافره وانشغلة 😇
تحديث خفيف وتنشيط
1- اضافات بسيطة تحكم بالتيوب
2- تحكم بكافة الفورم بمفاتيح الكيبورد
3- وابسط تحكم بإظهار واخفاء اطار الاكسس
اذا كان اختفاء كلي تظهر رسائل اخطاء وعدم استجابة في بعض الاكواد
بعدها تحديث الطقس شمالي غربي الرياح نشطة 😂
-
1
-
-
( MultiPageh اداة )
وستخدامه كأنك تبرمج على الفيجوال والاكسل 😇
اضافة مرفق C4D
فقط غير صورة المجسم واستخرج صور PNG
وضفة لكم شرح مختصر داخل المرفق
==============================
اداة Activity ToggleButton
View 3D IMG 3D Form C4d
Animation Close acForm , Me.Form
Classic Form
طريق استخدام بسيطة فقط غير صورة المجسم ببرنامج
Cinema 4D
نسية عرض 😇
-
تم فصل هذه المشاركات الى موضوع منفصل ، حتى يتمكن صاحب الموضوع من مواصلة شرحه لعمله ، وارفاق النسخ الاحدث
جعفر - فريق العمل
-----------------------------------
اداة Activity ToggleButton
View 3D IMG 3D Form C4d
Animation Close acForm , Me.FormClassic Form
مع شرح مختصر بداخل
-
1
-
-
@Zooro1 بوضح لك شغله
.Fields()
الصف او السجل غير مطلوب
جدول الفولدر -1
جدول الصور 2-
جدول اليوم حسب التواريخ -3
جلبهم من سجل (واحد) صفين مختلفين بصفوف بجدولين
للعرض وكان المفترض وقت الساعة منظم فستبدلة ب
Sleep
للسهولة والاختصار
==============================
اما للشبكة انترنت في عدة طرق سهلة من غير تكاليف او اشتراك
جرب تضبط 3
1- تنصيب قوقل ادرايف للاجهزة الخمسة للاتصال بالقاعدة والفصل وعند الاغلاق اتصال وفصل يعمل بالانترنت بمسار ملف
2- اسهل يوجد نموذج من اكسس للويب اجعلة (تسجيل الدخول) او تحديث لسجل واحد لكل جهاز
3- اسهل واسهل اشبك الكمبيوترات شبك محلية لجهاز واحد عن طريق برنامج ريموت ديسكتوب من قوقل او من سبلاش والاتصال من اي تلفون او كمبيوتر تشوف من الي شبك باللحظة😂وكافة الرعود حسب كفائة الاتصال ومعمارية الجهاز كون هذاك السحاب
وعرض تقارير حسب طلبك
-
1
-
-
دالة الترقيم من
استاذي @ابو جودي ❤️🌹🌹
( تجرب بشاشة الرئيسية تغير صورة النموذج ( الخلفية
طلب @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-
1
-
-
2 hours ago, Zooro1 said:
سؤال بس ، ممكن عمل هذه الاكواد داخل موديول واستدعيه من داخل النموذج
شنو الاكواد الي بتخليهم في موديول؟
-
1
-
-
استاذي @ابو جودي ليش متضايق ❤️🌹
شوف اشلون عرض برنامج نفس @Moosak فقط
Gif يشرح
==========================
يمكن احاول اقلدكم على طريقتكم
استاذي @ابو جودي عط زفير وكمداة بارده 😂
الرعود اثرة فيني
==========================
ثري دي للصور مع التعديل
صححة مكتبة الصور
زودة لكم تأثيرات الفيديو
😇تغير العرض وستخدام كود التايمر
هل المره انتم تضيفون الصور
ما يزعل صاحب المكتبة العامرة @Moosak
🌹😇
شرح طيرقة الاستخدام Gif
من العروض تقديمية للصور المضاف الى مكتبة
عرض مكتبة الصور
100%
-
لا مو Ezril ؟!!!
هذا من تأثير البرق 😂
انا جمعة مكتابتي العامره من استاذي @ابو جودي❤️❤️
واكثر
و @Moosak
و Ezril
و عبدالغفار
و @Ahmos
واجنبي 😇
الكل لهم الشكر والامتنان
وانا كنت احاولة الاختصار وتعرف العيد يبيله تجهيزات
شكله مرفقي شحنته مضروبة 😂
استاذي @ابو جودي ❤️🌹
هل يوجد دالة تعيد رقم التلقائي للعلاقة IDD رقم
😇 وكل سنة جديده من غير تنشيط
+ وانا بعدل ؟! نسيت شغلة لعرض مكتبة الصور
واضافة دالة @Ahmos
جلب الصور في ملفين ملف للعرض تكون الصوره متطابق الارتفاع والعرض = تمديد الصورة
❤️🌹🌹
-
1
-
-
=======================================
تحميل
-
1
-
-
On 6/14/2024 at 6:50 AM, ابو جودي said:
ارد بضاعتكم اليكم على طريقتى مع بهاراتي الخاصة
كله عمال يحط بهارت جت على انا يعنى
😂😇
استاذي @ابو جودي ❤️🌹🌹
الرعد قبل يوم العيد 😂
!تم انتهاء من بعض التعديلات يعني كامل
❤️🌹
1- اضافة مكتبة مع التحديث
2- اضافة تحديد الوسائط الصور او الكل
3- عرض مكتبة من غير حمل مع التصحيح والمكتبة صور
4-تحرير والحذف الصور من المكتبة المحدد
5-اضافة تحريك اكشن ما يوقف الا بعد ضغط على زر العرض والايقاف
-
تحديث سريع للاضافات فقط
1-اضافة (3D) _مع خيار تفعيل والغاء بزر
2-اضافة مكتبة كافة الصور المضافة ميزه حلوه من غير حمل
بكود اسهل Me ( "r" & rng_Book) * me.scrollbar
===================================
سوف اقوم ببعض التعديلات❤️
مع استاذي @ابو جودي
🌹🌹
-
وتم اضافة دالة من استاذي @ابو جودي ❤️🌹🌹
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 !!
===========================
اضافة برق مع الرعد 😂
انار ما حولهم اذا مشو فيه 😂
======================
اختيار اعلانات بتاريخ الصلاحية
او عرض صور بطريقة البوم
فقط للتجربة وليس للإضافة الى المكتبة العامرة
====================================
استاذي @ابو جودي صدمتني بصور المرفقة
❤️🌹
-
2
-
-
-
اشكرك وايد استاذ @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
-
1
-
-
اشكرك استاذ @Ahmos على الدالة
وتمة التجربة هي تمدد الصوره
وحبيت الدالة ❤️😇
اتمنى لو كانت الدالة لاقتصاص الصور بالحجم المطلوب وليس التمدد بالطول والعرض المحدد
برنامج لتخصيص مؤشر الماوس للتحريك العناصر مع تغير شكل الماوس وتخصيص نمط الفورم باللون(مساعده)
في قسم الأكسيس Access
قام بنشر
استاذ @Foksh
ممكن بعض ملاحظاتك بخصوص المرفق واشكرك على كود ❤️
وتحجيم النافذة من غير استخدام جداول بنمط النافذة :بلا
هل ممكن تحسينها بتصميم الدالة ؟