اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information