ابو جودي

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

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

فكرة رقم ( 2 ) 123-up (2).accdb

اتمنى اكون قدرت افهمك كويس اتفضل جرب 123-up.accdb

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

وهذا المرفق ايضا اثراء للموضوع وللامانه لا اذكر من اين حصلته لكن قمت ببعض التعديلات التى تتماشى مع افكارى ومتطلباتى ولكنه يتيح تحكم اشمل واعم من المرفق السابق Full Control Of Print Report.accdb

جزاكم الله خيرا استاذى الفاضل واخى الحبيب

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

طبعا استاذى الجليل واخى الجبيب والعزيز على قلبى الاستاذ @Barna جزاه الله خيـــر كفى ووفى وإثراء للموضوع اضف هذا المرفق - اختزال كامل وشامل لكود حساب العمر - الحساب مباشرة داخل النموذج بمجرد وضع التاريخين - عدم اضافة اى بيانات داخل الجدول نتيجة لاحتساب العمر فقط يحتسب العمر من الدالة داخل الموديول ومن خلال الاستعلام دفعة واحدة لاى عدد من السجلات مهما كان الفرق بين تاريخين.mdb

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

طبعا كل اساتذتى الكرام واخوانى الاحباب كفوا ووفوا جزاهم الله خيرا ومساهمة من العبد الفقيـر الى الله هذا المرفق للاستاذى الجليل ومعلمى القدير الاستاذ @أبو آدم جمال المرفق فى انه ان وجدت اكثر من طابعة يمكن فى كل مرة اختيار احداهم بكل يسر ومرونة NA_ReportPrenter.mdb

الله يسلم حضرتك استاذى الجليل واخى الحبيب استاذ @محمد صلاح1 جزاكم الله خيرا

وتيسيرا على احبابى الاستاذ @محمد صلاح1 و الاستاذ @عبد اللطيف سلوم هذا مثال عملى getMacAddress.mdb

Public Function getMacAddress(Optional strComputer As Variant) As String Dim oWMIService As Object Dim oMacs As Object Dim oMac As Object Dim strComp As Variant 'if no computer name is passed then use the name of the computer running the code. If IsMissing(strComputer) Then strComputer = "." End If Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set oMacs = oWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration") 'Win32_ComputerSystem For Each oMac In oMacs If IsNull(oMac.MacAddress) = False Then 'Debug.Print oMac.MacAddress getMacAddress = oMac.MacAddress End If Next End Function call getMacAddress MacAddress ان اردت القراءة اكثر عنها https://ar.wikipedia.org/wiki/عنوان_التحكم_بالنفاذ_للوسط الله يسلم حضرتك استاذى الجليل واخى الحبيب استاذ @Barna جزاكم الله خيرا

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

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

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