ابو جودي

تأكد ان اللغة هنا عربية

اعدادات اللغة

وهذا المرفق لتمرير اى تاريخ كم القاعدة والتحكم بتنسيق هذا التاريخ دون النظر لاعدادات الجهاز ومن واقع جدول المرفق لــ أستاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @jjafferr مع بعض التغير داخل الجدول لتغيير التنسيق ثم تمرير التاريخ الى الموديول لنحصل على تنسيق موحد كما نريد Control Format Date - 2.accdb

طيب وبعد إذن أستاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @jjafferr اعتقد هذه الفكرة قد تفى بالغرض ان شاء وبكل سهولة تمريردالة الوقت و التاريخ الى المتغير العام CustmNow داخل الموديول ليتم التعامل معه لاحقا حسبما نريد Public Function CustmNow() On Error GoTo errsub CustmNow = Replace(Format(Now(), "hh:nn:ss AM/PM" & Space(3) & "dd\/mm\/yyyy"), "MMM-", "") errsub: If Err.Number <> 0 Then 'MsgBox Err.Number & vbCrLf & Err.Description End If End Function وهذه التسيقات التى استخدمتها داخل الموديول ليتم استدعائها بجميع زوايا البرنامج بكل اريحية Public Function TimeNow() TimeNow = Format(CustmNow, "hh:nn:ss AM/PM") End Function Public Function DateNow() DateNow = Format(CustmNow(), "dd\/mm\/yyyy") End Function Public Function DateNowFull() DateNowFull = Format(CustmNow(), "dd\/mmmm\/yyyy") End Function واخيرا المرفق Control Format Date.accdb

السلام عليكم هل يمكن تشغيل الاصوات تباعا من المكتبة الصوتية الموجوده بالمرفق هنا يعنى بعد الانتهاء من - 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

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

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