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

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


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

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

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

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

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

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

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

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

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

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

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

Prayer.mdb

  • Like 11
  • Thanks 2
رابط هذا التعليق
شارك

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

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

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

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

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

واحقاق للحق

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

 

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

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

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

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

 

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

فأبشر بالخير 

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

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

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

 

بالتوفيق اخى

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

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

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

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

 

بالتوفيق اخى

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

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

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

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

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

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

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

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

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

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

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

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

محبكم في الله 

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

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

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

اذا تسمح لي بمداخله بسيطة متعلقة بتمرير قيمة في امر فتح نموذج عن طريق 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

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

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

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

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