ابو جودي

وهذا ما تريده على مرفق استاذى الحبيب واخى الاستاذ @صالح حمادي ولكن لم اضف ال gif لانها لن تتحرك إضافة و حذف مرفقات.accdb

وذلك تعديل جديد لعرض الشعار فى كل زوايا القاعدة imgLogo.Picture = MyLogo() على ان يتم استبدل كلمة imgLogo باسم عنصر التحكم الخاص بالصورة كما تسميه انت Logo Company (Up 3).mdb

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

اعتذر ما قدمته فى المرفق كان التصور الذى جال بخاطرى انا ولم انتبه للمناقشات التى دارات مع استاذى الحبيب وتقريبا بفضل الله كل شئ موجود وهذا فقط ما كان ينقص المرفق حيث تم تعديل الكود ليتم التصفية فقط على الصور دون غيرها اثناء تغير صورة الشعار Logo Company (Up 2).mdb

واثراء للموضوع طالما سبقنى استاذى الجليل الاستاذ @صالح حمادي هذه فكرة على طريقة استاذى الجليل ومعلمى القدير الاستاذ @jjafferr حمل الصورة داخل القاعدة وليس مرفق والقاعدة المرفقة بتنسيق 2003 افتح القاعدة فى مجلد فارغ ولاحظ وجود الشعار فى النموذج اذهب للمجلد الذى وضعت به القاعدة تجد مجلدات تم اضافتها وبداخلها الشعار امسح الشعار وقم باغلاق وفتح القاعدة وشاهد السحر قم بتغيير الشعار مهما كان اسمه ومهما كانت صيغة الملف jpg . png bmp ارجع الى المجلدات تجد الشعار الجديد وحذف القديم واستبداله داخل القاعدة مهما كان اسم الشعار دون ادنى تدخل من المستخدم Logo Company.mdb اعتذر للتأخير كان وقت الصلاة

ابشر ان شاء الله الان سوف اقوم بتجهيز القاعدة المطلوبة بعد قليل اوافيكم بما يشرح فؤادك

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

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

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

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

فكرة رقم ( 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