محمد ايمن

اخي الكريم الدالة dsum تكتب كالآتي =DSum("[fildname]","[tablename]","[Condition]") fildname اسم الحقل tablename اسم الجدول Condition الشرط ارجو ان يفيدك هذا

اخواني الاكارم السلام عليكم و رحة الله و بركاته بعد التجريب و الفحص الدقيق تبين وجود خطأ في الكود السابق الخطأ هو ان الكود يقوم بفحص اول جهاز usb يصادفه فاذا لم يكن الرقم مطابق يخرج من البرنامج هذه مشكلة كبيرة فهل معنى هذا ان المستخدم سيضطر الى نزع كافة الاجهزة ليعمل البرنامج ؟؟؟؟ من المؤكد لا الحل هو تغيير ترتيب الحماية المستويات في الكود السابق كانت كالآتي 1 التاكد من صحة الرقم 2 التأكد من ملفات ضمن الفلاش 3 التأكد من رقم ضمن احد هذه الملفات اما المستويات الحالية 1 التأكد من ملفات موجودة ضمن الفلاش ( وهذه الطريقة تضمن الدخول الى الفلاش الصحيح للبرنامج ) 2 التاكد من الرقم التسلسي للفلاش 3 التاكد من رقم ضمن احد هذه الملفات وانا بانتظار تجربتكم و آرائكم استخراج رقم الفلاش ميموري 6.rar

لك ذلك اخي الكريم واكن فقط اعطني بعض الوقت

اخي الكريم ارفع ملف مرفق و انشالله سنجد حلا لك

رفم مستوى الحماية الى ثلاث مستويات : بسم الله الرحمن الرحيم و به نستعين اخواني الاكارم البرنامج السابق و كما قلت يستخرج الرقم الاصلي للفلاش ميموري و هو رقم ثانت لا يتغير ابدا لنفرض و بطريق الصدفة انه حصلت معجزة و تطابق هذا الرقم مع فلاش ميموري اخرى هل هذا يعني ان المستخدم سيملك نسخة ثانية من البرنامج ؟؟؟؟؟ طبعا اذا الحل رفع مستوى الحماية و انا قمت برفعه الى ثلاث مستويات المستوى الاول : رقم الفلاش ميموري المستوى الثاني : ملفات موجودة ضمن الفلاش ميموري المستوى الثالث : رقم موجود ضمن احد هذه الملفات نبدأ على بركة الله في البداية و قبل كل شيئ قم بازالة جميع الاجهزة الموصولة بمنافذ usb ضع الفلاش ميموري التي تريد استخراج الرقم الاصلي لها قم بتشغيل البرنامج و استبدل ارقام الفلاش ميموري الكود الاول موجود سابقا ولن اتطرق الى شرحه الكود الثاني وهو خاص بالبحث عن الملفات ضمن الفلاش ميموري Set fso = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives With CreateObject("Scripting.FileSystemObject") For Each d In .Drives xx = d.driveletter & ":" Next If .FileExists(xx & "\Dummy_Protector_File.ldf") And .FileExists(xx & "\domin.ldf") Then Else MsgBox "خطأ في ملفات دارة الحماية" Exit Sub End If End With هذا الكود يبحث عن الملفين Dummy_Protector_File.ldf و domin.ldf فإذا وجدهما اكمل و اذا لم يجدها يخرج من الكود الكود الثالث وهو يتاكد من صحة نص او رقم موجود ضمن احد هذه الملفات وهو domin.ldf على سبيل المثال Open xx & "\" & "Domin.ldf" For Input As #1 Do While Not EOF(1) Line Input #1, y Loop Close #1 If [y] <> "66cfe929b73cd1b8" Then MsgBox "الرقم التسلسي للنسخة غير صحيح" End If Exit Sub و الآن يجب الربط الكودات الثلاثة فتصبح النتيجة Dim d, fso, dc As Object Dim chek, xx As String Dim objWMIService, objItem, colItems, strComputer, IDD On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive") For Each objItem In colItems If objItem.InterfaceType = "USB" Then chek = objItem.PNPDeviceID If chek <> "USBSTOR\DISK&VEN_GENERIC&PROD_USB_FLASH_DISK&REV_0.00\01AF0000000003EA&0" Then ' غير هذا الرقم الى رقم الفلاش الخاص بك MsgBox "الرقم غير صحيح" Exit Sub Else Set fso = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives With CreateObject("Scripting.FileSystemObject") For Each d In .Drives xx = d.driveletter & ":" Next If .FileExists(xx & "\Dummy_Protector_File.ldf") And .FileExists(xx & "\domin.ldf") Then ' غير اسماء الملفات و امتداها Open xx & "\" & "Domin.ldf" For Input As #1 Do While Not EOF(1) Line Input #1, y Loop Close #1 If [y] <> "66cfe929b73cd1b8" Then ' غير هذا النص MsgBox "الرقم التسلسي للنسخة غير صحيح" End If Exit Sub Else MsgBox "خطأ في ملفات دارة الحماية" Exit Sub End If End With End If End If Next MsgBox "قم بتوصيل دارة الحماية" و اخيرا يجب اضافة خطوة جمالية الى الفلاش لكي تصبح شبيهة بالدنكل وهي وضع ملف يقوم بحجز كامل المساحة في الفلاش ميموري اسم البرنامج Dummy File creator برنامج بسيط جدا يعطي ملف يحجز كامل مساحة الفلاش ميموري و الشرح موجود في الصور الآن انا بانتظار تجربتكم و نتائجكم و آرائكم Dummy File creator.rar استخراج رقم الفلاش ميموري 5.rar

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

اخي الكريم تستطيع استخدام احد الكودين docmd.gotocontrol"aa" او me.aa.setfouces aa هو اسم الحقل الذي تريد التركيز عليه

هل تقصد ان يكون قائمة منسدلة في نموذج البحث ؟

اخي الكريم جرب المرفق التالي حيث اسم المستخدم admin الباسوورد admin يوجد داخل الجدول useraccount خانة اسمها pro اذا وضعت ( صح ) في هذه الخانة عندها لا يمكن حذف هذا المستخدم ابدا صلاحيات المستخدمين.rar

؟؟؟؟؟؟؟

اخي نارت الفضل طبعا لله عز وجل ولكن انت قمت بالعمل الحقيقي وانا بانتظر النتائج من الاخوة

ضع الكودات في حدث التحميل الخاص بالنموذج

جرب الكود التالي Dim aa As String DoCmd.GoToRecord , , acLast aa = simplename DoCmd.GoToRecord , , acNewRec semplename2 = aa semplename هو اسم الحقل الذي نريد قيمته semplename2 هو اسم الحقل الذي نخزن فيه قيمة آخر حقل و هو غير منضم

السلام عليكم و رحمة الله و بركاته بسم الله الرحمن الرحيم و الحمد لله رب العاليمن و الصلاة و السلام على سيد المرسلين نبينا محمد ( صلى الله عليه و سلم ) الحمد لله الذي هدانا لهذا و ما كنا لنهتدي لو لا ان هدانا الله اما بعد اخواني الكرام جميعنا يفكر بكيفية حماية برنامجه المصنوع بواسطة الاكسسز و تعددت الطرق منها الحماية بزراعة ملف نصي و الحماية عن طريق رقم الهارد إلخ........ وطبعا المعرف ان افضل طريقة للحماية هي عن طريق الدنكل ولكن الدنكل غالي الثمن اذا كان لابد من ايجاد طريقة للحماية ولكن بسعر رخيص واقرب شيئ للدنكل هو الفلاش ميموري ولكن كيف ستطبق الحماية الطرق التي انتشرت للحماية عن طريق الفلاش ميموري كانت تستخرج الرقم التسلسي للفلاش ميموري ولكن هناك مشكلة ان هذا الرقم يتغير عند اجراء تهيئة للفلاش ( فورمات ) اذا فهذه الطريقة ضعيفة :wallbash: ولكن ماذا اذا حصلت على الرقم التسلسي الاصلي الذي لا يتغير ابدا :smile: عندها لن يتائر برنامجك حتى عند عمل فورمات للفلاشة و سيبقى محميا و قابل للاستخدام من قبل الشخص الذي يملك الفلاش ميموري حصرا اترككم مع المرفقات و ارجو ابداء الرأي حول الموضوع ملاحظة البرنامج ليس مجاني انما مأجور و الأجرة هي الدعاء للاستاذ الكبير نارت لبزو ( ابو آدم ) استخراج رقم الفلاش ميموري 4.rar

والله يا استاذي يعجز لساني عن شكرك ولم اعد اجد كلمات لمدحك بها اسال الله العلي العظيم ان يجزيك الجنة

جرب المرفق التالي اخي الكريم دليل الهاتف 2012.rar

اخي الكريم جرب الرابط التالي يمكن يفيدك http://www.officena.net/ib/index.php?showtopic=534&hl=%2B%D9%83%D9%88%D8%AF+%2B%D8%B9%D8%AF%D9%85+%2B%D8%AA%D9%83%D8%B1%D8%A7%D8%B1+%2B%D8%A7%D9%84%D8%B3%D8%AC%D9%84%D8%A7%D8%AA&fromsearch=1 ولي طلب خاص منك ياريت ترفع القاعدة بصيغة 2003 في المرات القادمة

اخي نارت تحية طيبة و بعد جربت البرنامج اكثر من مرة و تبن لي انه لامشكلة من ظهور الرقم كاملا ( اقصد يمكن الاستغناء عن الطلب الثاني في المشاركة السابقة ) اما التعديل الاول ( امكانية البحث عن الاقراص القلابلة للازالة ) اذا كان ممكنا فيا حبذا واذا لم يكن ممكنا فلا مشكلة واسال الله العلي العظيم ان يجزيك الجنة و كل خير

اخي الكريم لن اكذب و اقولك فهمت 100% ولكن هل جربت مشاريع اكسسز ؟؟؟ انتبه لا تحول كامل قاعدة البيانات الى مشروع اكسسز فقط قم بتصير الجدوال الى sql ثم حاول الاتصال بالقاعدة السيرفر ادرك ان الشرح غير مفهوم ولكن حاول تطبيق الآتي قم بتقسيم القاعدة الى جداول وواجهات الجداول data والواجهات view ادخل الى القاعدة التي تحتوي الجداول data واختر معالج التكبير ثم اختر تصدير الى sql ( لا تختر انشاء قاعدة جديدة ) ضع اسم قاعدة sql ثم التالي ستلاحظ بعد الانتهاء ان هناك جدولين الاول ayman وشكله مثل الكرة الارضية والثاني local_ayman وشكله جدول عادي اذهب الى القاعدة view التي تحتوي على النماذج و ارتبط بالجداول التي شكلها كالكرة الارضية ضع قاعد جديدة تحتوي على النماذج على جهاز آخر و ارتبط بالقاعدة data وقم بالتجربة وساحاول ان ارفع شرحا بالصور ملاحظة لابد من توفر msde sqldisktopengine ملاحظة اخرى القاعدة Data يجب ان تكون متوفرة على جهاز السيرفر اما القاعدة view على الاجهزة الاخرى

السلام عليكم ورحمة الله و بركاته اخي نارت في البداية اسال الله عز وجل ان يجزيك الجنة وكل خير اخي نارت اغبطك على خبرتك واتمنى ان يكون لدي 1 من 100000 من خبرتك الكود يعمل بشكل صحيح ولكن هناك بعض التعديلات التي اريدها اولا الكود يعطي رسالة لكافة الاقراص وهو يجب ان يعطي رسالة للقرص القابل للازالة فقط ( الفلاش ميموري ) ثانيا الكود يعطي رقم الفلاش كمايلي : USBSTOR\DISK&VEN_GENERIC&PROD_USB_FLASH_DISK&REV_0.00\01AF0000000003EA&0 بينما يجب ان يعطي 01AF0000000003EA فقط استخراج رقم الفلاش ميموري 2.rar

امهلني فقط بعض الوقت اخي الكريم

هل من جديد

10000000000000000000000000000000000000000000000000000000000000000000000000000 شكر هذا هو المطلوب بعينه :signthankspin: :signthankspin: :signthankspin: للجميع

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

اخي الكريم شغل النموذج و اضغط بزر الفارة الايمن اذا اعجبتك هذه الطريقة ساقوم بادراج فيديو للشرح 22db.rar