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

Calendar _ تقويم


ابو جودي

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

الان, SEMO.Pa3x said:

بارك الله بك, لو تضمن المرفق التاريخ الهجري لكانت الفائدة اكبر.

والله يا استاذ انا كنت بافكر فى اضافة التاريخ الهجرى وام القرى فعلا:fff:

  • Thanks 1
رابط هذا التعليق
شارك

في ٢٤‏/٤‏/٢٠١٩ at 08:14, SEMO.Pa3x said:

بارك الله بك, لو تضمن المرفق التاريخ الهجري لكانت الفائدة اكبر.

:wink2: التاريخ الهجرى 

 

Officena DatePicker.mdb

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم 🙂

 

ايش رايك باستعمال الكود التالي ، وحذف احداث النقر الـ 56 الموجودة بالكود 🙂


' date picker buttons
Public Function dxx()

    DateClick (Right(Screen.ActiveControl.Name, 2))
End Function

.

1048.Clipboard01.jpg.0649422d258777364fca18f48b651fbf.jpg

.

جعفر

1048.Officena DatePicker.mdb.zip

  • Like 3
رابط هذا التعليق
شارك

الان, jjafferr said:

السلام عليكم 🙂

 

ايش رايك باستعمال الكود التالي ، وحذف احداث النقر الـ 56 الموجودة بالكود 🙂



' date picker buttons
Public Function dxx()

    DateClick (Right(Screen.ActiveControl.Name, 2))
End Function

.

1048.Clipboard01.jpg.0649422d258777364fca18f48b651fbf.jpg

.

جعفر

1048.Officena DatePicker.mdb.zip 150.3 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

مش كنت تقول من الاول قبل ما اكتب كل ده:blink:

هههههه
استاذى الجليل ومعلمى القدير ووالدى الحبيب ساحر الاكسس الاستاذ @jjafferr :fff:

كل الشكر والتقدير والعرفان والامتنان لكم

شكر الله لكم واحسن اليكم كما تحسنون دائما لكل طلاب العلم

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

اخواني الاستاذ / جعفر

المهندس ابا جودي

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

ما هذا التقويم الجميل الرائع منكم ـ رائع رائع بمعني الكلمة 

ايوه كده ـ ولعوا المنتدي ونحن اول المنتفعين 

جزاكم الله كل خير

اخوكم د/حلبي

رابط هذا التعليق
شارك

@jjafferr سبقتني بالرد يامعلم.

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

 


Public Function getXcontrol()
Dim ctlCurrentControl As Control
Dim strControlName As String
Set ctlCurrentControl = Screen.ActiveControl
strControlName = ctlCurrentControl.Name
MsgBox strControlName
End Function

@ابا جودى

شغل متعوب عليه ومرتب وفقك الله لكل خير عزيزي.

 

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information