ابو جودي

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

جزاكم الله خيـرا احبكـــــم فى الله

جزاكم الله خيـــــــــــــــرا أستاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr

انا اريد النتيجة مطابقة تماما لنفس نتيجة الزر الاول انا اريد النتيجة مطابقة تماما لنفس نتيجة الزر الاول

السلام عليكم احيانا يكون عندنا مثلا مربع نص على النموذج تتغير القيم بداخله نحتاج احيانا ان نمرر هذه القيمة الى الرسالة احيانا حسب الحاجه كيف السبيل الى ذلك فى طريقة جلب الرسائل من سجل بجدول الرسائل من داخل V .01.mdb

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

بسيطة ولا تزعل اتفضل 'هذا الكود فى وحدة نمطيه Public Function FileExist(strpath As String) As Boolean On Error GoTo ErrHandler If Dir(strpath) <> Empty Then FileExist = True Else FileExist = False ErrHandler: If Err Then Exit Function End Function '-------------------------------- 'هذا الكود فى النموذج Private Function Go() هنا كود الحدث الذى تريده End Function '--------------------------------- 'هذا الكود على حدث النقر على زر امر If FileExist("\\192.168.1.2\Pro\IP.mdb") Then Call Go Else MsgBox "sorry, update not available now"

'هذا الكود فى وحدة نمطيه Public Function FileExist(strpath As String) As Boolean If Dir(strpath) <> Empty Then FileExist = True Else FileExist = False End Function '-------------------------------- 'هذا الكود فى النموذج Private Function Go() هنا كود الحدث الذى تريده End Function '--------------------------------- 'هذا الكود على حدث النقر على زر امر If FileExist("\\192.168.1.2\Pro\IP.mdb") Then Call Go

up

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير وملهمى و والدى الحبيب الاستاذ @jjafferr كان قد أشار على من فترة وجيزة بعدم استخدام الاحرف العربية مطلقا داخل محرر الأكود وسألته عن الرسائل كان قد أشار الى انه يمكن كتباتها داخل جدول مخصص وجلبها وقت الحاجة هذا المرفق ناتج عن تطبيق إرشادات معلمى الجليل وبعد ان توصلت لهذه النتيجة وبعد أن ملئنى السرور بعد تعب وتلاحق الأفكار لالية العمل بل وتغيير مجرى تفكيرى اصلا عند بدء التصميم اصابنى الاحباط فجأه بسبب حرف كنت قد كتبته بالخطأ فلم يجلب الرساله وعوضا عنها كانت رسالة فارغة وتلاحقت الأفكار تباعا بسبب هذه الغلطة الغير مقصودة - ماذا لو تم فقد الجدول الخاص بالرسائل لاى سبب ايا كان - ماذا لو تم حذف اسطر الرسالة من الجدول -ماذا لو تم تغير المعيار الذى استخدمه لجلب الرسالة -ماذا لو تم حذف السجل كاملا و الخاص بتلك الرسالة ... وماذا لو ولو ولو بلا بلا بلا بلا ولذلك فكرت بسد هذه الثغرات القاتلة بتلافى ذلك كله بوضع نفس محتوى الرساله بالانجليزية داخل محرر الأكواد ليتم عرضها فى حالة وجود اى خطأ ما عوضأ عن الرسالة العربية او اى مشكلة قد تطرأ بصراحة واجهت صعوبة بالغة فى التفكير وترتيب أفكارى بترتيب الكود لاصل الى مرادى وبعد تعب وعناء مريرين بفضل الله تعالى تم تقريبا سد كل الثغرات والتى خطرت على بالى بهذا الكود ولكن متعب لانه عند كل رساله لابد من كتابة هذه الاسطر السؤال : هل ممكن اختزالها بشكل ما او عمل كود فى موديول ليسهل الامر لمشاهدة النتيجة - غير اسم الجدول على اعتبار انه تم حذفه وجرب - غير المعيار aa من داخل الجدول - امسح كل اسطر الرساله من الحقول MsgLin1 و MsgLin2 و MsgLin3 و MsgLin4 و MsgLin5 محاور العمل تلافى مسح الجدول او تغيير اسمه المعيار المستخدم لجلب الرسالة التأكد من وجوده اولا داخل الجدول ان لا تكون اسطر الرسالة خالية ( على الأقل سطر واحد لتظهر الرسالة من واقع الجدول ) On Error GoTo ErrHandler If Len(DLookup("[MyCriteria]", "tbllvlUsefulData", "MyCriteria ='aa'") & "") = 0 Then MyMesg ("This alternative message is in English" & vbCrLf & "Due to a bugs in the message table"), vbOKOnly, "The idea of a professor /" & strUserLogin Else strMyCriteria = "MyCriteria ='aa'" If Len(txtOfMesg & "") = 0 Then MyMesg ("This alternative message is in English" & vbCrLf & "Due to a bugs in the message table"), vbOKOnly, "The idea of a professor /" & strUserLogin Else If Len(strMsgTitle & "") <> 0 Then MyMesg (txtOfMesg), vbOKOnly, strMsgTitle & strUserLogin Else MyMesg (txtOfMesg), vbOKOnly, "NEW Title" & strUserLogin End If End If End If ErrHandler: If Err = 3078 Then Resume Next الرسائل من داخل جدول.mdb

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

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

وهذا المرفق لتمرير اى تاريخ كم القاعدة والتحكم بتنسيق هذا التاريخ دون النظر لاعدادات الجهاز ومن واقع جدول المرفق لــ أستاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @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

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

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

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