صالح حمادي

أخي لا يمكن أن أبخل على نهر أشرب منه دائما أنا الذي له الشرف عزيز فأنت صاحب الموضوع و صاحب الفكرة أنا أخذت منك الفكرة و إجتهدت على تطبيقها بطريقة الخاصة. لا أدري ربما تكون نفس الأكواد التي استعملته أنت و ربما لا و رغم ذلك تبقى أنت السيد يا سيد لكن كما يقول الأستاذ @jjafferr دائما نعود للبرنامج: يعتمد البرنامج على رقم النسخة و قد وضعت مربع نص لكتابة رقم النسخة لكن لما نكون في برنامج فعلي راح نخليه يقرأ رقم النسخة تلقائيا كل ما عليك فعله هو ادخال رقم من 1000 الى 1005 أنا وضعت 6 أرقام فقط ثم. تضغط على استيراد و سوف تلاحظ النتائج جرب غير في كل مرة رقم و لاحظ الفرق. بعيدن خبرني راح أغير الرسائل لإتمام تجربة البرنامج و أتمنى من الجميع التجربة active file.rar

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

تفضل جرب هذا التعديل barcode.rar

نستطيع جعل ملف نصي واحد لتفعيل جميع النسخ التي نبيعها بحيث نضع لكل نسخة رقم تسلسلي خاص بها تبحث عنه في الملف النصي و تأخذ بياناته التاريخ و حالة التفعيل و الملاحظة يعني كل عميل راح تظهر عنده رسالة خاص به حسب نسخته. لقد جربت هذه الطريقة و نجحت معي 100%

و لك بالمثل إن شاء الله أخي

شكرا أخي

و فيك بارك الله أخي علي محمد علي

حاجاتك تعجبنا كثيرا أخي جمال يالله أعصر دماغك يا مبدع

لقد اشتغل البرنامج عندي بشكل جيد لكن مربعات النص تظهر فارغة

نعم يا غالي تخطي كلمة المرور يعني إنتهاك للحقوق

البرنامج يعمل بشكل جيد انظر للصورة

البرنامج يشتغل مع الأرقام و الحروف شكرا جزيلا صديقي العزيز

تأكد من الملف به كلمة مرور يجب عليك إضافتها

و عليكم السلام و رحمة الله تعالى و بركاته أهلين أخي جعفر و الله إشتقنالك طال غيابك هذا المرة أكثر من اللازم نعم . لقد عدلت على المرفقة و أصبح يستقبل جميع الإمتدادات شكرا على الملاحظة شكرا أخي kanory

و فيك بارك الله أخي محمد هل جربت المرفق

السلام عليكم و رحمة الله تعالى و بركاته أقدم لكم اليوم مرفقا يقوم بإضافة كلمة مرور جديد لملف الأكسس أو تعديل كلمة مرور قديمة أو حذفها نهائيا. 1- لإضاف كلمة مرور جديدة يجب ترك مربع كلمة السر القديمة فارغا و كتابة الكلمة الجديدة فقط ثم الضغط على زر الأمر 2- لتعديل كلمة المرور نكتب الكلمة القديمة و نكتب الكلمة الجديدة ثم الضغط على زر الأمر 1- لحذف كلمة المرور نكتب الكلمة القديمة ونترك مربع كلمة السر الجديدة فارغا ثم الضغط على زر الأمر و قد استخدمة هذه الوحدة النمطية: Public Function ChangePassword(path_file As String, Old_Password As String, New_Passwod As String) On Error GoTo err Dim odb As DAO.Database Set odb = DBEngine.OpenDatabase(path_file, True, False, ";pwd=" & Old_Password) odb.NewPassword Old_Password, New_Passwod MsgBox "لقد تم تغيير كلمة المرور بنجاح" fin: Set odb = Nothing Exit Function err: Select Case err.Number Case 3031 MsgBox "كلمة المرور غير صحيحة", vbCritical, "Sécurité" Case Else MsgBox err.Description, vbCritical, "Erreur No." & err.Number End Select Resume fin End Function و قمت بإستدعائها من خلال هذا الكود: Call ChangePassword(Me.txtpath1, Nz(Me.OldMot, ""), Nz(Me.NewMot, "")) تغيير كلمة السر برمجيا.rar

معذرة لم أجد كلمة أفضل من رائع بإمتياز لتعليق بها برافو عليك يا بطل أعمالك مذهلة حقيقة

هذا الرابط ممتاز

السلام عليكم من أجل الحصول على اسم الكمبيوتر ضع هذا الكود في وحدة نمطية جديدة (منقول): Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Public Function fOSUserName() As String ' Returns the network login name Dim lngLen As Long, lngX As Long Dim strUserName As String strUserName = String$(254, 0) lngLen = 255 lngX = apiGetUserName(strUserName, lngLen) If (lngX > 0) Then fOSUserName = Left$(strUserName, lngLen - 1) Else fOSUserName = vbNullString End If End Function قم بإستدعائها في مربع النص من خلال هذا الكود: =fOSUserName()

السلام عليكم تفضل لقد استخدمت التنيسق الشرطي جرب هذا الحل 222.accdb

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

لم أفهم ماذا تقصد

إذن أنا عندي مشكل أضيف الأداة تعمل بشكل جيد و عند إغلاق الملف و إعادة فتحه تظهر الأداة بشكل آخر و لا تعمل مثل الأول سوف أبحث عن المشكل في جهازي

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

خلاص أخي قررت أدفع بيك شكوة لمحكمة لاهاي الدولية ليش مخبي كل هذا الإبداع لقد اشتغل البرنامج بشكل ممتاز