wael_rafat

9 ساعات مضت, ابوخليل said:

اكتب بريدك الاكتروني المسجل بالموقع بدلا من اسم المستخدم

تسلم استاذنا الجميل... تم حل المشكلة 

بارك الله فيك

كل الشكر والتقدير ،،،

الف مبرووووك استاذنا 🌹 والى الامام دائما باذن الله 👍

عليكم السلام

اتفضل

Private Sub B_1_AfterUpdate()
If Me.B_1 = "ذكر" Then
Me.t_1 = True
Me.t_2 = False
Else
Me.t_1 = False
Me.t_2 = True
End If

End Sub

بالتوفيق...
 

الف الف مبروك حبيبنا @ابو جودي تستاهل كل خير استاذنا 🌹🌹🌹🌹 والى الامام دائما باذن الله 

في ٢٠‏/٩‏/٢٠٢١ at 22:19, kanory said:

DoCmd.OpenReport "rpt_class", acViewPreview, , "class Like '*" & Me.lst4.Column(1) & "*'"

جميل استاذنا الجميل @kanory

بعد اذنك انا حاولت  استخدام اكثر من معيار باستخدام And ولم ينجح الامر ... على سبيل المثال

DoCmd.OpenReport "rpt_class", acViewPreview, , "class Like '*" & Me.lst4.Column(1) & "*'"  And "class Like '*" & Me.lst4.Column(1) & "*'" 

فما الصيغة الصحيحة عند استخدام اكثر من معيار ؟؟؟

كل الشكر والتقدير استاذنا الفاضل

استاذنا الجميل @husamwahab  مثال رائع استاذنا

ولو امكن شرح الكود حتى استطيع تطبيق الفكرة على امور اخرى على سبيل المثال ( اختيار عدد العناصر - اختيار فئات معينة من العناصر - التغاطي عن ايام العطل ...... الخ

كل الشكر والتقدير استاذنا الغالي ...

استاذي الفاضل @husamwahab شكرا على المتابعة وجاري عمل المطلوب

كل الشكر والتقدير استاذنا ....

استاذنا الجميل @husamwahab للاسف بعد عدة محاولات لم استطيع فهم واستيعاب المثال المرفق 

حيث ان المثال المرفق متشعب وغير واضح

فبرجاء محتاج مثال مختصر وواضح لحل حضرتك  وسامحني  اثقلت عليك

حيث انني محتاج نفس الفكرة ولكن على المواد الغذائية مثل ( لحم - دجاج - مشروبات )

وجزاك الله عنا كل خير 

كل الشكر والتقدير استاذي الفاضل

منور الدنيا كلها استاذنا الغالي @ابا جودى

عودا حميدا حبيبنا .....

في ٢٤‏/١٠‏/٢٠٢٠ at 23:05, أبو إبراهيم الغامدي said:

انسخ الشفرة التالية وضعها في حدث عند النقر لزر الأمر

بعد اذن استاذنا الجميل @أبو إبراهيم الغامدي بعد تطبيق الكود يظهر الاتي

كل الشكر والتقدير ،،،

تم الوصول للحل بفضل الله

وهو الضغط على CTRL + SHIFT + ENTER   وذلك للدخول كمسئول  Administrator

بمعنى   +   CTRL + SHIFT + ENTER

كل الشكر والتقدير لاستاذنا الغالي @kanory والأستاذ @حسين العربى

نفس المشكلة استاذي الغالي @kanory

كل الشكر والتقدير ،،،،

الف الف مبروك استاذنا @husamwahab  تسناهل كل خير والى الامام دائما ان شاء الله 🌷

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

الله عليك استاذنااااا  >>>> ممتااااز تسلم ايدك استاذ حسام @husamwahab

والله انا عاجز عن الشكر لحضرتك ربنا يجازيك كل خير وبميزان حسناتك ان شاء الله

على استحياء استفسار بسيييييط جدا وهو .. الارقام الموجودة فى الجملة الاستعلامية ( ما هي معناها او دلائلها ) ؟؟؟ مرفق صورة للتوضيح

مع كل الشكر والتقدير والاحترام  استاذنا الفاضل ،،،،

بارك الله فيك استاذنا الغالي كلك ذوق @husamwahab جاري التجربة وموافاتك بالنتيجة .....

كل الشكر والتقدير والاحترام .....🌷

1 ساعه مضت, husamwahab said:

تفضل اخي العزيز

ارجو ان يكون طلبك

الله عليك استاذنا تسلم ايدك نتيجة رائعة !!!!!

بارك الله فيك

1 ساعه مضت, husamwahab said:

ملاحظة : اعتذر لطول الاكواد لان العمل تم على الاكواد القديمة مع التعديل للسرعة

بل انا اللي اعتذر منك استاذنا الكريم

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

وهل ممكن عملة عن طريق الاستعلام ؟؟؟؟

وسامحنى على الاطالة وجزاك الله عنا كل خير

كل التقدير والشكر والامتنان استاذنا الغالي ،،،

منذ ساعه, husamwahab said:

السلام عليكم

تفضل اخي العزيز

  ملاحظة : الكود يحسب ايضا عدد ايام الاجازات خلال فترة وان كانت اكثر من اجازة (اقصد اجازات متعددة

الله يكرمك استاذي الفاضل @husamwahab

جهد جبار تشكر عليه وربنا يجازيك عنا كل خير

ولكن السؤال الاساسي...  كيف اقوم باظهار الاشخاص المتمتعين باجازة فى شهر معين

على سبيل المثال

عايز اظهر الاشخاص المتمتعين باجازة فى شهر 3 / 2020 ؟؟؟

اى عندما اقوم بالبحث من 1 / 3 / 2020 الى 31 / 3 /2020   يظهر جميع الاشخاص الذين هم باجازة فى هذا الشهر مثل ( a1 ) و ( a2 )

حيث ان ( a1 ) باجازة من 10 / 2 / 2020 الى 10 / 4 / 2020  ( وهذه هى لب الموضوع  حيث ان شهر 3  واقع بين هذه الفترة ) .

وايضا  ( a2 ) باجازة من 1 / 3 / 2020 الى 21 / 3 / 2020 .

ومرفق المثال موضح فيه المطلوب

وسامحنى استاذنا 

كل الشكر والتقدير ،،،

Vacations.rar

منذ ساعه, محمد ابوعبد الله said:

 

مرحبا اخي الكريم

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

DateDiff("d",[StartDate];[EndDate])+1

اما اذا كان الكود في الاستعلام يكون البشكل النالي

X1 : DateDiff("d";[StartDate];[EndDate])+1

بارك الله فيك استاذي @محمد ابوعبد الله

ولكن المقصود ليس هو فرق الايام بين تاريخين 

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

السلام عليكم ورحمة الله وبركاته

السادة الافاضل مشرفي واعضاء منتدانا الجميل

تحية طيبة لكم جميعا ،،،

استفساري هو كيفية حصر عدد ايام اجازة شهر معين من خلال فترة  على سبيل المثال ...

قام شخص بتحديد اجازة سنوية من تاريخ 10 / 2 / 2020   الى 10 / 4 / 2020   جميل

السؤال .... كيف لى ان احصر عدد ايام اجازة شهر  مارس ( 3 )   لهذا الشخص  المتضمنة داخل الفترة المذكورة ؟؟؟؟

بمعنى عندما اقوم بالبحث عن اجازة هذا الشخص فى الفترة من 1 / 3 / 2020 الى 31 / 3 / 2020   يكون الناتج 31 يوم

وايضا تكون اجازة هذا الشخص بشهر ( 2 ) فقط ...  عدد 20 يوم      عندما اقوم بالبحث فى الفترة من 1 / 2/ 2020 الى 29 / 2/ 2020

وايضا تكون اجازة هذا الشخص بشهر ( 4 ) فقط ... عدد 10 يوم       عندما اقوم بالبحث فى الفترة من 1 / 4/ 2020 الى 30 / 4 / 2020

اتمنى ان تكون الفكرة وصلت اخواني الكرام

وجاري تحضير مرفق .....

كل الشكر والتقدير  ،،،

اسأل الله العظيم رب العرش العظيم ان يشفيه ويعافية ويشفي جميع مرضانا ومرضى المسلمين

موضوع هاااام جدا استاذنا الفاضل @SEMO.Pa3x

ويا حبذا يكون فى مثال لذلك

كل الشكر والتقدير استاذنا الغالي ،،،

اهلا بيك استاذ saad abed

الملف لا يحتوي على شئ هو فقط مجرد ملف للتأكد من وجودة عند فتح البرنامج

اما بخصوص سؤالي استاذنا

على سبيل المثال .....فى الاكسس عندما يكون البرنامج مغلق يمكن فتحة عن طريق ضغط الشفت + انتر

هل توجد نفس الفكرة للاكسيل ؟؟؟ 

اتمنى يكون سؤالي واضح

وبارك الله فيكم جميعا

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

بارك الله فيكم

تم تجربة الكود التالي وعمل بنجاح

Private Sub Workbook_open()
 If Dir("c:\windows\AAA.dll") = "" Then
   MsgBox "åÐå ÇáäÓÎÉ áíÓÊ ÇÕáíÉ Úáíß ÇáÇÊÕÇá ÈÇáãÈÑãÌ " _
  & vbNewLine & " this version is not original, you should contact the programmer " _
  , vbCritical, " invalid version "
 Application.Quit
 End If
End Sub

 سؤال ... كيفية فتح شيت اكسيل محمي  ..... بنفس طريقة ضغط الشفت فى الاكسس المحمي

مع الشكر

السلام عليكم ورحمة الله وبركاته

السادة الافاضل اعضاء ومشرفي منتدانا الجميل

استفساري هو .... هل ممكن عمل ملف حماية لملف اكسيل داخل الكمبيوتر بحيث عند عدم وجود هذا الملف لم يتم فتح الملف

او ببساطة مثل ما هو متبع بالاكسس بالكود التالي

If Dir("c:\windows\AAA.dll") = "" Then
 MsgBox non genuine copy , contant programmer", vbCritical, "non genuine "
 DoCmd.Quit
 End If

مع كل الشكر والتقدير اساتذتي الكرام