hanan_ms

اشلونج حبيبتي صفاء اشتقت لج  ❤️🌹

وين الغيبة 😏

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

طلبج نفس التصميم الحواف منحنية الى حين التوسع 

1-  الازرار فورم داخل الفورم 

كود لتحفيف الفورم 

وكود الارتفاع من 0 الى 3000 او معيار السجل لقياس الارتفاع 😇

Aouto

 انا منتظره استاذ @Moosak 

عنده مرفقة راح يفيدج ويفيدني ☕🥰

شكرا استاذ @M.Abd Allah ❤️🌹🌹

حاشني الوسواس 😁

استاذي @ابو جودي ❤️🌹🌹❤️

يعدل 

بقيت اعدلك ضبط العشوائي لا يتكرر حتى الي بعده مع تسجيل اكثر احترافية تصميم بيعقد مع صلاحيات واضافة اسم الحاسوب على القليل 3 قواعد اضافية 😗☕

اشلون نخلي النص المتحرك ينزل من اعلى الى الاسفل بشريط التحكم 

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

اربع عناصر مجموعة تراكمي = ربط تراكمي (حزمة العناصر بوضع التصميم )

كود :

dim rung as integer

for rung = 1 to 4 

if rung =1 then

me.text1.hight = 100

me.text2.hight = 0

me.text3.hight = 0

me.text4.hight = 0

end if

if rung =2 then

me.text2.hight = 100

me.text1.hight = 0

me.text3.hight = 0

me.text4.hight = 0

end if

if rung =3 then

me.text3.hight = 100

me.text2.hight = 0

me.text1.hight = 0

me.text4.hight = 0

end if

if rung =4 then

me.text4.hight = 100

me.text2.hight = 0

me.text3.hight = 0

me.text1.hight = 0

end if

Next

'call rung_Click

جرب 😇

استاذ موسى @Moosak ❤️🌹

كنت مشغولة يومين اليوم اشتغلة 

ActiveX Microsoft windows media player 

background IMG Any IMg Full Mg To GB 💯 

$ 

شنو كان حجم الصوره راح تتحمل على 

media play 

من غير فلاش كويري 😇

ومن غير تحكم ضغط الصورة بمؤشر الماوس 

- في عدة مقاسات لحجم الفيديو

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

Ezy 

وللجزء التجربة ☕

استاذي @ابو جودي ❤️🌹🌹

استاذ @Moosak ❤️🌹

اشلون التجربة 📐

Bcakground_img_windows_player_Ribbon.part1.rar

Bcakground_img_windows_player_Ribbon.part2.rar

Bcakground_img_windows_player_Ribbon.part3.rar

Bcakground_img_windows_player_Ribbon.part4.rar

المرفقات للحجم الصور استاذ @Moosak ❤️🌹

اذا في كود يسهل العملية لحجم الصورة تصبط للفيديو ب

Function 

انطرها بشغف

 شريط المعلومات تحت قبل الاخير اسم الحساب والقسم والفرع  

شريط الفرعي الي بالجنب يكون 0 تحريك 00100 = Msg and Filter Query fast (تنبيهات)

شريط العلوي  اساسيات واعدادة نظام اكسس 

شريط الاسفل منه اعدادة وقوائمة برنامج 

Stok $

@Moosak استاذ ❤️🌹

ActiveX VLC  = IMG And Video ( Normal No Selected Button Mouse ) and full screen if IMG or = No any Flash Query 💯Full Size IMG and Screen 

Add Bottom bar with  progress = progress  ms Access and time --\--\----

Skin window and any form 

$$

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

اما لتدريج لونين استخدم صور

PNg 

لون الى تدريج الى شفاف فقط غير لون الخلفية 😇

المهم من غير فلاش كوري 😏

واحسن حالات Color to Color 

حدث عند التحميل

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

وانا بجهز مرفق ☕

حبيبتي صفاء اشتقنا لج والله 😘🌹❤️

جربي طرفتين

=============(1) Next ======(2) DOA

انا شيرة بدالة استاذي @ابو جودي 🌹❤️

😘😘😘

قسمي DlookUp // IF

او استخدمي DOA

  Reference =للفحص ثم جلب قيمة 

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

dim Gender  as string 

dim Ageunit as string

dim  tcode  as string

dim age as string 

dim age_to string 

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

dim rung as integer

dim wht as long

wht =0

Gender   = DLookup("Reference", "normals_tbl",  "Gender = '" & gender & "' ) 

Ageunit = DLookup("Reference", "normals_tbl", "Ageunit = '" & ageUnit & " )

tcode  = DLookup("Reference", "normals_tbl", "tcode = 144 ") 

age = DLookup("Reference", "normals_tbl", age & " >= [from] " ) 

age_to = DLookup("Reference", "normals_tbl",age & " <= [to]" ) 

for rung = 1 to1

if Gender    = "X1" then

wht = wht +1

end if

if Ageunit = "X"2 then

wht = wht +1

end if

if tcode  = "X3" then

wht = wht +1

end if

if age = "X4" then

wht = wht +1

end if

if age_to = "X5" then

wht = wht +1

end if

next 

if wht =5 then 

me.textbox1 = Gender   

me.textbox2 = Ageunit 

me.textbox3 = tcode  

me.textbox4 = age

me.textbox5 = age_to

msgbox " Chack after run " Gender   & Ageunit  & tcode  & age & age_to

wht =0

else

msgbox " Close order "

wht =0

end if

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

Dim db As DAO.Database
Dim td As DAO.TableDef
Dim fld As DAO.Field

Set td = db.TableDefs(normals_tbl)

For Each fld In td.Fields

if td.Fields =[Gender] =  "gender"  and [Ageunit] = '" ageUnit"' and [tcode] = 144 and [age] >= [from]  then 

me.box = ![Reference]

end if

Set db = Nothing

17 minutes ago, ابو جودي said:

فى بداية مشوارى كنت انبهر بالديكورات والجماليات والبهرجة التى اكتشفت مؤخرا انها هدر للوقت والجهد والطاقة والموارد والاداء والاستقرار و و و و و.........

استاذي هذه للاجهزه التعبانة من 

32bit (X)

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

64bit 

بالتنجبر باعلى تصاميم  على صعيد الشركات والمؤسسات ذات بنية قاعدة بيانات جغرافية 

ومعمارية SDD Up Bost ,,,,, Flash "red"

شبكات وخطوط ارضية باعلى المواصفات وصيانة الدورية

 فتعطي مقومات اعلى بتصميم البرامج  

من جرب 128 bit ... PC 😏

========

استاذي اكيد تتكلم على البعض الي عندهم 😇

لابتوب قديم جيل حطب  و32 😗

32bit 

ما تعرف تصمم برنامج الا تخلي اكسس بتصميم 2003 وبعد تقلل الاستعلامات مع كافة ادوات التصليح 😂

زين اشتغل الاوفيس😂

ولا واحد حاشي مكتبات وبرامج وتشعيبات SPY - Virus

Full Disk 😂

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

اتفق مع الاستاذي @ابو جودي

تصميم السادة للتجربة وانتهاء المشروع واعتماد ثم تصاميم الهيكل

copy ---- past full control and full skin ==(look time finish ) with test 😇

level up with  skin

ايه الكلام الحلو ❤️☕🌹

7 hours ago, ابو جودي said:

فكرة حلوة وانا كمحمد مبسوط منها

😘😘😘

اتصبح وامسي فيه ومنتظر دالة من احلا استاذ @ابو جودي

يمين اكلك للمؤشر عام للفورم والتقرير وخاصة معاينة التقرير 

6 hours ago, Moosak said:

شكرا على هذه الفنيات الجميلة 👍🙂🌷

 شكرا على ذوقك بس مطلب لكل عميل لمس لطابع الشركة وللواجهة المشروع 

تقدر تضيف انزال قيم الحقول لسابع فورم تفريع 

تكون قائمة متغيره 

واضافة 

4D

ثواني

 فيديو انيمسن تكون بداية ظهور القائمة ثواني 

هذه الفنيات الجميلة 

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

انتظر دور استاذ @Moosak بموضوع مبهر 😁

بعد اذن استاذي @ابو جودي❤️🌹

احب مشاركة بقوائم المختصر وسهل 

 تستطيع التعديل عند تركيز الفورم اغلق القائمة 😇

كيف تخصيص قائمة عند معاينة التقرير ☕

مشاركة يتخصيص اكثر وتحكم اكثر بما يتناسب للطلب والتصميم 

1- ظهور القثائمة باي مكان تضغط فيى على زر يسار الماوس وخاصة الضبط عند كامل الشاشة للنافذه

docmd.mixmain

2-تخصيصها وتشكيل القائمة باي تصميم دائرة او شبة دائرة 

تستطيع اختصار ما تشاء وتصميم كما تشاء بسهولة Ezy

كانة لاعادة الاتصال او كانت اعدادة او اكثر من خطو مع اضافة شعار للشركة وشريط التقدم ..😇

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

فقط بحدثين 

تستطيع جعل راس النموذج قائمة لحالها

زالتفصيل النموذج قائمة للحالة

وتذليل النموذج قائمة للحالها

==================================(!)

ولا تستطيع تشغيل عند (معاينة التقرير للاسف ) -😏

Lift_Click_Mouse(Menu_Form_Custom).rar

اشكر استاذ @ahmed draz ❤️🌹

😂

ما لقيت واحد ثابت على طريقة Ribbon 

يختلف 2007 عن 2019 -2021

لتغير الصورة 

<\

image = "

2019

Custom Pictuer = "

اتمنى في موضوع جيد لانشاء Ribbon 2019

مثل انشاء الجداول 😇

اعتذر عن الموضوع السابق بسبب خطأ رفع المرفق حدثة الموضوع 😗

1- تغير خلفية والحتفاظ بالخلفية

2-تعديل اسلوب العرض ومختلف ومتنوع 

اشلون الطريقة اسهل  😇 

Ribbon

Ribbon_Ezy_with_Full_Contol.rar

1- انشاء شرط الريبون فقط نسخ فورم (Ribbon_menu1 ) مصمم وجاهز

2- من اداة تعطي كامل الشاشة مع اظهار شريط الويندوز ويمكن تغير مقاس بما تراه مناسب كان بالجنب او اعلى او اسفل

مثل ما تستخدم الريبون بضبط 😏

-يكون كعداد لتعديل مقاس حجم الشاشة

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

ابتعدة عن نموذج التنقل وكود تغير الارتفاع بسبب 

Flash Query!

بطريقة بسيطة 

كنت برفع مكتبة لانشاء XML Ribbon 

 وصعبة للبعض كتابة كود الزر للتشغيل بدوال مو داخل الزر وبعد بعضهم يستخدم 

docmd.openForm ,,,,, Hid ?! للتحكم وتشغيل الكود

ويتطلب للتشغيل Ribbon

العناصر الاربعة 😇

-tablet

-Form

-Function

-micro

لتشغيل وتعامل مع Ribbon

صادفة قناة يبيع  برنامج صممة بالفيجوال لاضافة واستخدام

Ribbon

  الى اكسس وبسهولة مع مرفق  
 

فجبة لكم نفس النتيجة 😇😂 

Ezy وتحكم سهل وخفيف ومريح وقابل للتخصيص وتصميم 

اشرايكم ❤️🌹

Ribbon_Ezy_with_Full_Contol.rar

كل الاكواد بسطر واحد 

نموج واحد بسيط والكود بداخل الزر 

Sken_Calendr_One_Form.rar

6 hours ago, Foksh said:

وهي ظهور الفرق بين تاريخين -5 شهر ، أو العدد بالايام -170..

صباح الخير استاذ @Foksh ☕

من فبراير الى تاريخ اليوم احسب = مضبوط 100  💯

الاستخراج بدل 2\4\2024 يستخرج 4\2\2024

dim y

dim m

dim d

قرتب التاريخ بالكود 

dim day as date

day = d & "/" & m & "/" y

واذا تقصد صافي الفروقات بطرع العطل والاجازات والمحجوزات للفتره المحدد من تاريخ الى تاريخ 📐

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

Cod mine :

dim Total_D as string

dim Minz_X as long

Dim i_Count_X as intger

Total_D = Me.Total_day 'dates..(date,"")'(Selected day from calendrer)

'==============

for i_Count = 0 to me.terbo (ListBox = Day Off ).le... -1

...

next 

Minz_X = i_Count_X

'============

me.N1 = Total_D - Minz_X

'================

صحيح ينقصة اضافات قائمة الحجز مع التقرير

وعرض الميلادي بالمعكوس 

اضافة عرض التواريخ الهجريه عند تحديد الشهر لكافة ازرار الايام اضغط على مفتاح الكيبورد

[H]

واستبدال التواريخ ميلادي 

[M]

وضافة فورم مختصر للتواريخ لحاله والتوقيت لحالة والمقارنة التواريخ لحالها مع المعروض كامل التحكم

عن طريق دالة عند حدث الزر فقط اختر الكود 

'=========(Selected Show calendrer)

'==================(Full_Control_Only  , calendrer_Only , Time_Only , Date_To_Date) =(4 item = 4 Form )

Full_Control_Only

كنت بخليه بتحديث لوقت ثاني 

استاذ @Foksh❤️

اذا عندك مرفق للاحتساب التواريخ او مرفق للتقويم  يمكن التعديل على مرفقي مفتوح المصدر 

برنامج مجهز :

Calendar V3 Change Calendar Ms.Access

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

1-اضافة العطل الرسمية

2-اضافة حجز التواريخ Calendar

-امكان تخصيص الون 

-عدم تمكين ازرار التاريخ

3-عرض تقرير لكافة العطل الرسمية 

4- تاريخ الميلادي - تاريخ الهجري  - تواريخ مع الوقت 

5- تخصيص اعداداة للبرنامج 

6- امكانية تحديد ايام العمل بفصل ايام العطل بترميز ايام الاسبوع 

7-غفل الشهر من اشهر السنه ك اجازة قضات تبدا من شهر 6 الى شهر 8

8-اعداداة التحكم بالتاريخ من السنوات والشهور 

9-تفعيل عند تحريك مؤشر الماوس

10 - عرض فروقات التواريخ تبدا من اليوم او من تاريخ الى تاريخ

11-امكانية ادراج التواريخ لاي حقل في فورم الى فورم آخر مفرع الى التفريع منغير استخدام جداول الادارج من Function

لو بتكلم عن تجزئة For

مجزء فحص 

12-التصميم مختلف وتغير الالوان عند اختيار او ضغط على اسهم الكيبورد للتقلب في التقويم  واظن ما تعودتوا عليه من قبل 😇

اتمنى لكم تجربة ممتعة ❤️🌹

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

Update_V3_Sken_Calendr_One_Form.rar

اشكرك استاذي @ابو جودي❤️🌹🌹😘

الله يطولي بعمرك استاذي ❤️ 

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

1- الرجوع للتاريخ المحدد ...تحديد التواريخ المطلوبة 

2- Sken Color ActiveX (For Month Chang LestBox And Not is LestBox 😏

3- قائمة اضافة الرصيد الاجازاة 

4-  سريع التنفيذ بتمرير 100

5-عدم التمكين الضغط على ايام الاجازة 

مع تعديلات 

كنت فتح موضوع جديد تحويل تقويم اكسس مع ترصيد الاجازات 😇

بتحديث كيف احتساب - DateSalari 

من جدول ينقصة استكمال الوقت بالتخصيص وعتماد جدول عند احتساب اي عمل او اجازة من الى 

تمة التجربة المرفق استاذي @ابو جودي ❤️

بس استاذ ليش ما  تخليها الازرار عدم التمكين 

 بنفس المرفق بالفيديو ❤️😘

Update_3_Sken_Calendr_One_Form.rar

15 hours ago, M.Abd Allah said:

الله ينور شغل عالي يا استاذه

شكرا استاذ @M.Abd Allah ❤️🌹

Update - Fix 😇 

من غير استخدام جدول 😏

1-تحكم كامل بأيام الاسبوع والشهول لكل السنوات 

cod ezy Next Next

2-اضافة الوقت مع التحكم 

3-تعديل وجعلة ListBox 

مو ListBox 😏

4-تعديل الواجهة وتغير ستايل ActiveX

من Tab الى Button

Add tab v6 to v2 ( Fix Contol )

----- 😇

استاذ @Foksh ❤️🌹

طلبي صعب اضافة جدول للاجازات الرسمية 😇

Up_Date_Sken_Calendr_One_Form.rar

31 minutes ago, Foksh said:

تمام فهمتك ، يعني سيتم ادخال ايام العطل الرسمية بشكل يدوي عن طريق تحديد التواريخ من - إلى ، وعندما يكون تاريخ اليوم احد هذه التواريخ يتم الغاء تمكين زر محدد ؟؟؟

 

هل هذا صحيح ؟؟

صحيح 

صحيح في الجدول اربعة حقول

1- رقم السنة

2-رقم الشهر 

3- رقم اليوم

4- اسم العطلة الرسمية

كود عند اليوم 

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

باخذ قهوه بصحصح شوي

Dim rung as integer

Dim Scr as integer

تصحيح الكود 

if me("lebl" & Scr ).caption = me.day then

Next

Next 

الكود يعد سجلات الجدول 

Next

ولكل سجل  جدول يلف على الايام زر الى زر

Next

السجل التالي

الى الانتهاء

1 hour ago, hanan_ms said:

if me(lebl).name = me.day then

9 hours ago, Foksh said:

اعتذر منك أخت @hanan_ms ، ولكني هل يمكنك التوضيح للمطلوب بشكل أوضح ؟؟؟؟

كنت دايخة اشوي😇

 اشلون اضيف جدول واستعلام برقم السنة على سبيل المثال 2024 عيدالفطر 

اربع سجلات = اربع ايام 

اذا كان اليوم اجازة يخلي الزر عدم التمكين للضغط

بدل ما  استخدام كود 

Dim rung as integer

 For rung  = 0 to dcount ("[day]","[Ejazh]")  'Query (Ejazh) 

if me(lebl).name = me.day then

me(lebl).enable =false 

else 

true

end if

 بطيئ عند التقلب بالشهور والسنوات ؟! هل يوجد تعديل للكود او كود آخر او طريقة ثانية 

وشكرا