calendar Calendar _ تقويم

[ابو جودي]

Calendar.mdb

[SEMO.Pa3x]

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

[ابو جودي]

الان, SEMO.Pa3x said:

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

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

[النجم الساحر]

روعه بجد تسلم ايدك

[ابو جودي]

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

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

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

 

Officena DatePicker.mdb

[ابو جودي]

تدلل يا استاذ @SEMO.Pa3x 

[jjafferr]

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

 

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

' date picker buttons
Public Function dxx()

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

.

.

جعفر

1048.Officena DatePicker.mdb.zip

[ابو جودي]

الان, jjafferr said:

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

 

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

' date picker buttons
Public Function dxx()

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

.

.

جعفر

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

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

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

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

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

تم تعديل أبريل 25, 2019 بواسطه ابا جودى

[jjafferr]

 

المزه بعد ما اشوف التعب عليك 🙂

 

جعفر

[الحلبي]

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

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

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

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

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

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

اخوكم د/حلبي

[SEMO.Pa3x]

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

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

 

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

@ابا جودى

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

 

[Ali Mohamed Ali]

بارك الله فيك وجزاك الله كل خير

[A7MD M7MD]

والله تحفة بجد