kkhalifa1960

سؤالك في مكانه 👍 — والفكرة صحيحة جزئياً، لكن الواقع التقني مختلف شوية. أولاً: هل الدنقل مثل الفلاش؟ نعم من ناحية الشكل (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

بالنسبة للماسج تفضل Private Sub B8_Click() Dim helpMessage As String helpMessage = "كلمة السر : رمز مرور التطبيق 1 ، و يمكن تغييره من داخل شاشة بيانات أساسية" & vbCrLf & _ "Chang Pass بالنقر على زر إعدادات البرنامج ، ومن ثم النقر بداخلها على زر" & vbCrLf & vbCrLf & _ "شاشة البيانات الأساسية : فيها يتم ضبط كل الحقول الثابتة برؤوس كل الشاشات" & vbCrLf & _ "فى هذه الشـاشـة متاح للمسـتخدم حذف كل بيانات الموظفين ، للبـدء من جديـد" & vbCrLf & _ "وفيها يمكن حفظ وتصدير الجدول كنسـخة احتياطية، واسـترجاعها لاحقاً بسـهولة" & vbCrLf & vbCrLf & _ "شاشة بيانات الموظف : هي شاشة الإدخال الرئيسية لكل حقول بيانات الموظف" & vbCrLf & _ "Tab من الأفضل للتنقل بين الحقول بدلاً من استخدام الماوس ، اسـتخدم مفتاح" & vbCrLf & _ "حفاظاً على الأبجدة يجب كتابة الأسـماء التى تبدأ بحرف الألف بدون همزة للكل" & vbCrLf & _ "الأسماء المركبة مثل : عبدالرحمن ،هبةالله ،يجب أن تكون بدون فراغ بين المقطعين" & vbCrLf & vbCrLf & _ "مطبوعات منسقة: باختيارمربع معاينة يتم عرض تقرير واحد بالنقر المزدوج عليه" & vbCrLf & _ "أو بعد اختيارمربع طباعة يتم طباعة مجموعة تقارير دفعة واحدة بعد اختيارهم" & vbCrLf & _ "سبجان الله" & vbCrLf & _ "الحمد لله" & vbCrLf & _ "لا إله إلا الله" & vbCrLf & _ "الله اكبر" & vbCrLf & _ "" MsgBox helpMessage, vbMsgBoxRight, "أهم تعليمات التطبيق" End Sub اما بخصوص الصور لك برنامجين بالمرفق . imagetuner لاتحدثه خليه كما هو استدعي له صورة او فولدر صور عاوز تكبر الرزليوشن . واعمال اخرى toycon-0.7 اسكب به أي صورة وهو بيحولها لايكن . جرب . ووافني بالرد . Icons.rar