تطبيق مواقيت الصلاة والاذان الاصدار الاول

[ابو جودي]

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

حياكم الله اخوانى واحبابى 

بناء على موضوع : فتح نموذج بناء على اوقات مختلفه
اخى الحبيب استاذ @TQTHAMI 

اهديكم وكل احبابى هذا التطبيق

1- ملفات الاذن محموله داخل القاعدة

2- عند فتح التطبيق يتم انشاء مجلدات اليا فى نفس مسار التطبيق

3- يتم تفريغ الملفات الصوتية والصورة بداخل المجلدات

4- امكانية تعديل الوقت لكل صلاة

5- فتح نموذج تنبيه وقت الاذان مع الاستماع للاذان

6- اغلاق النموذج الخاص بالتنبيه والاذان اليا بعد الانتهاء لصوت الاذان 

Prayer.mdb

[محمد احمد لطفى]

ربنا يرضي عنك ويبارك فيك ويحفظك

[مسفر]

دائما لك طلعات عجيبة  جاري التجربة 

 

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

تم تعديل مايو 31, 2021 بواسطه مسفر

[abouelhassan]

شكر وتقدير واحترام من اخيك

[حربي العنزي]

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

[ابو جودي]

38 دقائق مضت, مسفر said:

دائما لك طلعات عجيبة  جاري التجربة 

 

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

وما العجيب هنا  

[مسفر]

53 دقائق مضت, ابا جودى said:

وما العجيب هنا  

أنت كلك عجيب بأفكارك والعجب هو الابداع 

أي أنك مبدع بأفكارك 

[الحلبي]

دائما مبدع دائما مروض اكسس

[ابو جودي]

23 ساعات مضت, مسفر said:

أنت كلك عجيب بأفكارك والعجب هو الابداع 

أي أنك مبدع بأفكارك 

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

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

واحقاق للحق

1- حمل الملفات داخل القاعدة مقتبس من معلمى واستاذى الجليل الاستاذ @jjafferr

2- تشغيل وسائط الـ MP3 , WAV  من معلمى واستاذى الجليل دكتور @SEMO.Pa3x 

جزاهم الله خيـرا يعنى كل الفضل لله سبحانه وتعالى ثم لاساتذتى بارك الله فى اعمارهم واحسن اليهم وشكر لهم كما يحسنون الينا

[ابو محمد 316]

بارك الله فيك

[Ali Mohamed Ali]

أحسنت استاذ محمد عمل ممتاز جعله الله فى ميزان حسناتك

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته أخي الكريم أبا جودي

جزاكم الله خيراً وأحسن إليكم آمين. عمل رائع تستحق عليه الثناء أرجو الله تعالى أن  ينفع به المسلمين آمين وأن يجعله بميزان حسناتكم.

لكن هل يمكن أن يكون تعديل المواقيت تلقائياً حسب الموقع الذي يتواجد فيه مستخدم التطبيق

مع الأخذ بعين الاعتبار الدول التي تأخذ بالتوقيت الصيفي من غيرها ؟! ...

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

[مسفر]

جميع ما ذكرت  من نقاط في البرنامج تمام 

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

يمكن اختلاف النسخ 

 

 

[ابو جودي]

2 ساعات مضت, مسفر said:

جميع ما ذكرت  من نقاط في البرنامج تمام 

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

يمكن اختلاف النسخ 

 

 

طيب سوف اقوم ببناء تشغيل الصوت على طريقتى.. ابشر

[مسفر]

بشرك الله بالجنة أخي أبو جودي 

هذا بالنسبة لي لا أعلم عن الاخرين ممن حملوا البرنامج 

 

أتمنى لك التوفيق وجعله الله في ميزان حسناتك إنما الأعمال بالنيات وإنما لكل امرئ  ما نوى 

فأبشر بالخير 

[محمد سلامة]

جزاك الله خيرا ابا جودي 😍

[ابوبسمله]

جزاك الله خيرا @ابا جودى جعله الله فى ميزان حسناتك 💐

ولاثراء الموضوع ارفق لك رابطين ذات صله من الموقع ان شاء الله تجد فيهم الفائده الكبيره جزاهم الله خيرا اخواننا واساتذتنا

 

بالتوفيق اخى

[ابو جودي]

2 ساعات مضت, احمد الفلاحجي said:

جزاك الله خيرا @ابا جودى جعله الله فى ميزان حسناتك 💐

ولاثراء الموضوع ارفق لك رابطين ذات صله من الموقع ان شاء الله تجد فيهم الفائده الكبيره جزاهم الله خيرا اخواننا واساتذتنا

 

بالتوفيق اخى

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

[TQTHAMI]

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

الاخ ابا جودي 🌷

تحية عطره وبعد

فقد تم عمل المطلوب بنجاح ولا يسعني الى ان اقدم 

اليكم جميعا خالص الشكر و التقدير و ابلغ الثناء و وافر الدعاء بان يصبح التوفيق و السداد هو طريقكم و النجاح و التفوق هو حصادكم

[أبو عبدالله الحلوانى]

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

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

وان سمح الوقت لي عودة ان شاء الله بملاحظة ما ولكن يمنعني الارهاق من مواصلة الكتابة الأن 

وأسأل الله ان يزيدكم فضلا وعلما 

محبكم في الله 

[kha9009lid]

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

وباذن الله هذا العمل الجميل في ميزان اعمالك

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

في المثال الذي ارفقته اخي محمد 👇

DoCmd.OpenForm strFormName$, acNormal, , , , OpenArgs:=Time()

وطالما صرحنا بـ OpenArgs فلا داعي لـ ,,,, ويمكن كتابة الكود هكذا 👇

DoCmd.OpenForm strFormName$, acNormal, OpenArgs:=Time()

ولا يقتصر الامر على هذه الحالة فعند التصريح دائما يمكن تجاوز البارامترات

مثال اخر لاستخدام معيار نصي في امر فتح نموذج

DoCmd.OpenForm "FreaderL", , , "[x]='" & [y] & "'"

يمكن التصريح بالشرط ليكون

DoCmd.OpenForm "FreaderL", WhereCondition:="[x]='" & [y] & "'"

اضافة الى العديد من الاختصار في الاوامر حيث ان لكل امر قيمة رقمية تغني عن كتابة الامر بشكل كامل مثال لبعض الاوامر

DoCmd.RunCommand acCmdDatabaseSplitter
=
DoCmd.RunCommand 520
-----------------
DoCmd.RunCommand acCmdDeleteRecord
=
DoCmd.RunCommand 223
------------------
DoCmd.RunCommand acCmdExportExcel
=
DoCmd.RunCommand 556

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

مثال 👇

If ctli.ControlType = aclabel Then

يمكن كتابته هكذا 👇

If ctli.ControlType = 100 Then

وغيرها الكثير من الاختصارات مما لايتسع الوقت لذكره

تحياتي وتقديري لاخي واستاذي محمد عصام