kkhalifa1960

اعتذر استاذنا @kanory لم انتبه لردك .

تفضل الشرح والمرفق . ووافني بالرد . ahmed helmy draz-2.rar

مشاركة مع استاذي @منتصر الانسي تفضل استاذ @ahmed helmy draz محاولتي طالع التقريران . ووافني بالرد . ahmed helmy draz.rar

تفضل استاذ @abkyasserabk محاولتي ، اليك الشرح والمرفق . حسب مافهمت . واذا ارسلت طلبك كما قال لك استاذنا @ابوخليل كان اسرع لي . تفضل ووافني بالرد . abkyasserab.rar

للاسف لم ترسل كل الجداول جدول المدرسين وجدول اللجان وجدول المراقبين والجدول الذي به حالة الطالب حاضر/غائب

استاذ @2saad اعتذر للتأخر بالرد تفضل المرفق بعد الضبط . saad-1.rar

راجع العمل جيداً وادخل مادتاين بيوم واحد

مشاركةً مع استاذي @منتصر الانسي تفضل استاذ @2saad طريقتي اليك الشرح والمرفق . ووافني بالرد . saad-1.rar

تفضل استاذ @أحمد العيسى الشرح والمرفق . ووافني بالرد . طريقة للبحث-احمد العيسى.mdb

تفضل استاذ المرفق بعد التعديل بطلبك . طريقة للبحث-فهد الدوسري.mdb

كي يتم التعديل صح ارسل القاعدة الاصلية قبل تعديلك موضح عليها طلبك .

سؤالك في مكانه 👍 — والفكرة صحيحة جزئياً، لكن الواقع التقني مختلف شوية. أولاً: هل الدنقل مثل الفلاش؟ نعم من ناحية الشكل (USB)، لكن ليس مثل الفلاش العادي من ناحية الوصول للبيانات. الفلاش العادي → له Serial Number يمكن قراءته بسهولة من النظام. الدنقل (Hardware Dongle) → غالباً يكون محمي ومشفّر، ولا يعرض رقمه التسلسلي للنظام مباشرة. ثانياً: هل يمكن قراءة الرقم التسلسلي من Access؟ ❌ بشكل مباشر: لا برنامج مثل Microsoft Access لا يستطيع: قراءة Serial Number للدنقل أو التعامل معه كجهاز عادي ثالثاً: لماذا؟ لأن معظم الدنقلات (مثل): HASP Dongle Sentinel Dongle تعتمد على: Driver خاص (تعريف) API أو DLL من الشركة المصنعة بمعنى: لا يمكنك الوصول له إلا عبر مكتبة رسمية من الشركة رابعاً: متى يمكن الوصول للرقم؟ ✔ فقط إذا الشركة المصنعة توفر: DLL أو API أو ActiveX وقتها تقدر من Access (VBA) تعمل: Declare Function GetDongleID Lib "dongle.dll" () As Long لكن هذا يعتمد كلياً على: 👉 نوع الدنقل 👉 الشركة المصنعة 👉 هل تسمح بقراءة الـ ID أصلاً خامساً: هل يمكن خداعه كفلاش؟ ❌ لا الدنقلات الحديثة: تمنع القراءة المباشرة تستخدم تشفير داخلي أحياناً ما تعطيك رقم ثابت أصلاً (Challenge/Response) الخلاصة الدنقل ليس فلاشة عادية لا يمكن قراءة الرقم التسلسلي من Access مباشرة الحل الوحيد: استخدام SDK رسمي من الشركة المصنعة

لو عاوز الباركود ملون ... Jo-QR_Code_Arabic-Color.rar

تفضل .... باركود بالنموذج ومُصدر كمان للاكسل والبي دي اف . Jo(4-5-2026)-QR_Code.rar

هل تريد عمل QR_Code لقراء بيانات المريض . امسح الصورة بقارئ QR_Code لديك بتليقونك

تفضل التعديل بالمرفق . Jo(4-5-2026).rar

تفضل د/ @jo_2010 المرفق بعد التعديل بطلبك . ووافني بالرد . Jo(3-5-2026).rar

استاذي @jjafferr دمت دائماً مدداً لنا ولا انسى فضلك وفضل الزملاء جميعاً بمددي ..

مشاركة مع استاذي @jjafferr تفضل د/ @jo_2010 محاولتي حسب ما فهمت . الشرح والمرفق . ووافني بالرد . Jo(2-5-2026).rar

تفضل استاذ @أحمد العيسى اليك الشرح والمرفق .. نوعان من الماسج المخصص وقابلين للتمدد . الاول بدون صور واضافة الاسطر بمحرر الاكواد والثاني بالصور والاضافة بنموذج . جرب ووافني بالرد . احمد العيسى-1.rar

كودك صحيح من ناحية التركيب والمنطق، لكن هناك ملاحظات مهمة: 1. الاستخدام العملي هذا الكود يستدعي دالة داخلية غير موثقة (#53) في msaccess.exe لعرض صندوق حوار اختيار الألوان. هل ستنجح؟ على الأرجح لا، لأن الدالة الداخلية #53 قد تكون غير موجودة أو لا تقوم بما تظن. الطريقة الصحيحة والمستقرة هي استخدام Comdlg32.dll (ChooseColor API). 2. النظام الصحيح باستخدام API ويندوز بدلاً من ذلك، استخدم هذا الكود الموثوق: ' في بداية الموديول #If VBA7 Then Private Declare PtrSafe Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long #Else Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long #End If Private Type CHOOSECOLOR lStructSize As Long hwndOwner As LongPtr hInstance As LongPtr rgbResult As Long lpCustColors As LongPtr Flags As Long lCustData As LongPtr lpfnHook As LongPtr lpTemplateName As String End Type Function DialogColor(Optional ByVal InitialColor As Long = &H0) As Long Dim cc As CHOOSECOLOR Dim CustColors(0 To 15) As Long cc.lStructSize = Len(cc) cc.hwndOwner = Application.hWndAccessApp cc.rgbResult = InitialColor cc.lpCustColors = VarPtr(CustColors(0)) cc.Flags = &H2 ' CC_RGBINIT If ChooseColor(cc) <> 0 Then DialogColor = cc.rgbResult Else DialogColor = InitialColor ' إذا تم الإلغاء End If End Function تفضل مرفقك بعد التعديل .ووافني بالرد . Database1-1.accdb

تفضل استاذ @أحمد العيسى مع انك مايعجبك العجب لكني مصر ارضيك . هل هذا يعجبك . ماسج احترافي . ولو تريد ماسج بمحتويات ملف pdf ارفق استعلامه . الشرح والمرفق .ووافني بالرد احمد العيسى.rar

انا حاضر لك بأي وقت .

لايوجد تاريخ انتهاء اقامة ........ لو تقصد تاريخ انتهاء هوية المستخدم تفضل التعديل . مع ملاحظة انا لم ادخل بيانات السيارة والمستخدمي والمفوضين من عندي كله من ملف الاكسل الذي ارسلته . Ahmed ElShahat_3.rar

وهذل برنامج ممتاز سطبه وجربه انا استخدمه كثيراً لصناعة ابقوناتي . easy-button-creator-1.4.zip طالع أحمد العيسى.mdb