ابو جودي

السلام عليكم هل يمكن تشغيل الاصوات تباعا من المكتبة الصوتية الموجوده بالمرفق هنا يعنى بعد الانتهاء من - aoj3ene يتم تشغيل - nor ثم بعد الانتهاء منه يتم تشغيل - فضلكم ياوالدي بطريقة اليه وان امكن هل ممكن وضه مثلا Checkbox ان كان True يتم التشغيل تباعا وان كان False يتم التوقف بعد الانتهاء من تشغيل الملف الحالى ؟! المرفق APP_Player.zip

ليست المشكلة بالقاعدة اعتقد هناك مشكلة ما بسبب الاكواد فقط انا قمت بإضافة التعديلات والأكواد اللازمة لاضافة الاختصار وبطريقة متقدمة واحترافية وعلى نفس النسخة دون اى مشاكل وتم وضع المرفق الجديد بالمشاركة الأصلية واختصار منه هنا معلش انا فى المرفق ده هناك تشابك وتداخل وارتباط بين اكواد خصائص القاعدة واليك طريقة احترافية لوضع الاختصار والتحكم بكل صغيرة وكبيرة تخص الاختصار تم وضع المرفق فى المشاركة الأصلية وهاك اختصار منه هذا المرفق للإضافة إختصار أليا الى سطح المكتب وتحكم كامل فى كل ما يخص الاختصار من الجدول UsystblUsefulData اسم الاختصار الوصف مفتاح الاختصار من الكيبور لفتح التطبيق وفى حالة عدم وجود اى بيانات بالجدول تخص الاختصار او عدم وجود ايقونة فى المسار المخصص يتم استخدام البيانات الاساسية والايقونة الاساسية للاكسس Utilities Hide Ico Minimze To SysTray V.02.zip

قمت بالتجربة استاذى الجليل ومعلمى القدير استاذى الغالى و والدى الحبيب الاستاذ @jjafferr دون جدوى

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

للحفاظ على قوانين وتشريعات المنتدى بخصوص المشاركات وحتى لا يتم انتهاكها بتناول اكثر من موضوع فى مشاركة واحدة قمت بعمل الشرح اللازم والتجميع اللازم للاكواد المطلوبة فى هذه المشاركة

- موديول إخفاء إطار الأكسس - التوسيط - التصغير بجوار الساعة - تغيير الأيقونة - استدعاء بيانات ورسائل من جدول تم وضع التذكيـــر الاتى برأس الموديول لسهولة التعامل مع الأكودا واستدعائها 'icon path >>---> CurrentProject.Path &"\"&"\File Library\Fav Ico\Myicon.ico" 'Hide Access >>---> CallStartForm() 'CenterObjects >>---> Call CenterFrm(Me) 'Minimize To Systray >>---> Call AppMini() 'To Quit Application >>---> Call AppQuit() 'To Close Any Forms >>---> Call AppCloseFrm() 'Application Name >>---> Call AppName() 'Designer Name >>---> Call DesName() 'Designer Phone >>---> Call DesPhone() 'Designer Email >>---> Call DesEmail() 'call Any Message From Table '>>>>> StrMyCriteria = "MyCriteria ='xxxx'" '>>>>> MyMesg (txtOfMesg), vbOKOnly, strMsgTitle '>>>>> Change "xxx" By Criteria From Table >> UsystblUsefulData << By Criteria From Field [MyCriteria] '>>>>> Example MyCriteria >>---->> msgDesData '>>>>> StrMyCriteria = "MyCriteria ='msgDesData'" '>>>>> MyMesg (txtOfMesg), vbOKOnly, strMsgTitle هذا المرفق الاول بدون عمل اختصار للبرنامج Utilities Hide Ico Minimze To SysTray.zip --------------------------------------------------------------- هذا المرفق للإضافة إختصار أليا الى سطح المكتب وتحكم كامل فى كل ما يخص الاختصار من الجدول UsystblUsefulData اسم الاختصار الوصف مفتاح الاختصار من الكيبور لفتح التطبيق وفى حالة عدم وجود اى بيانات بالجدول تخص الاختصار او عدم وجود ايقونة فى المسار المخصص يتم استخدام البيانات الاساسية والايقونة الاساسية Utilities Hide Ico Minimze To SysTray V.02.zip

اتفضل شرح بسرعة - جرب اضافة ملفاتك الصوتية قبل فتح البرنامج الى المجلد المرفق باسم sound files يا عينى ع الدلع APP_Player.zip

بسم الله ماشاء الله مجهود جبار وشغل رائع جدا جدا جدا جدا بالتوفيق ان شاء الله

شكرا استاذ @مسفر هدية رائعة جدا جدا جدا جدا جزاكم الله خيرا ممكن اطلب منكم السماح لى بعمل بعض التعديل والاضافات على المرفق

الف . الف . مبرو اخ خالد ..... مزيد من التألق ...

اتفضل الرابع والخامس مفتوحى المصدر العطاء للتقسيط.zip

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

انا ما عدلت او اضفت اى شئ لكن على ما يبدو انك جربت المرفق الاول

1/10/2020 بداء التاريخ من 1/1/2020 هذا يحدث فى حالة واحدة فقط لو الجدول لا يحتوى اى تواريخ يبدأ من اول يوم للعام الموجود بتاريخ الجهاز اما لو موجود تاريخ يبدأ منه الى اليوم الحالى لتاريخ الجهاز جرب هذا المرفق انا بدأت بكتابه تاريخ ميلادى سجل واحد فقط اول سجل افتح الجدول وشاهد ثم اغلق الجدول وافتح النموذج ثم اغلقه واعد قتح الجدول مرة اخرى وشاهد التسلسل ابتداء من يوم 28/21982 الى اليوم الحالى للجهاز حتى لو 31/12/2099 تسجيل التاريخ اليا ومسلسل-3 .mdb وهذه نتيجة تجربتى من يوم ميلادى الى يوم 31/12/2099 تسجيل التاريخ اليا ومسلسل- 2099.mdb

طيب جرب ده Example (Kanory).accdb

لا المرفق الخاص باستاذ @kanory يقوم بانشاء ملف الاكسل برمجيا من تلقاء نفسه بمسار القاعدة

انا اسف تعديل بسيط تسجيل التاريخ اليا ومسلسل-2 .mdb

اتفضل وركز معايا الاول قبل فتح النموذج تأكد ان الجدول فارغ ثم افتح النموذج وشاهد ما يحدث ثانيا افتح الجدول وامسح كل البيانات الموجوده به وفى اول سجل اكتب التاريخ 1/7/2019 واغلق الجدول وافتح النموذج وشاهد ما يحدث تسجيل التاريخ اليا ومسلسل.mdb

اتفضل Export to Word.zip

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

نعم وتظهر رساله بنجاح العملية دون اى ملف فى مسار القاعدة

هو فين ملف الاكســل

واسف للمره التانيه لم انتبه جيدا انك تريد التصدير الى ملف معد مسبقا على العموم سامحنى الان حالتى صحية لا تسمح لى بالقاء اكثر من ذلك انظر الى الموضوع هذا به طلبكم ان شاء الله مه باقى الموجود هنا

اتفضل يا سيدى لو المرفق محتاج تعديل انا تعبت انا شغال عليه من وقت ما وضعت السؤال واسف لم انتبه انك وضعت مرفقات Amr Ashraf ( Export to Query to specific excel worksheet).accdb

اهلا بالعزيز الغائب يا هلا والله