اضافة كلمة سر للباركود

[نائل حازم]

السلام عليكم السادة الافاضل 

طيا الملف لانشاء باكود 

المطلوب اضافة كلمة سر عند محاولة قراءة الباركود

وان امكن عند ادخال كلمة السر ثلاثة مرات اقفال الباركود بشكل نهائي وسحب الرقم التسلسلي للجهاز 

اذا امكن المساعدة بالشروط المطلوبه اعلاه او احداهما 

QR.rar

[Foksh]

ما الهدف من الفكرة المطلوبة ؟؟

[Shivan Rekany]

في 29‏/6‏/2024 at 08:34, نائل حازم said:

المطلوب اضافة كلمة سر عند محاولة قراءة الباركود

 

السلام عليكم

انا الان استخدم موبايل لذلك قمت بتحويل سؤالك الی chatgpt وهذا هو جوابه ، جربه ووافينا بالنتيجة

لإضافة كلمة سر عند محاولة قراءة الباركود باستخدام VBA في Microsoft Access، يمكنك استخدام الخطوات التالية لإنشاء نموذج يتطلب إدخال كلمة مرور قبل عرض البيانات المرتبطة بالباركود.

1. إنشاء نموذج لإدخال الباركود وكلمة المرور:

   • قم بإنشاء نموذج جديد في Access يحتوي على حقل نص لإدخال الباركود (مثل txtBarcode) وحقل نص لإدخال كلمة المرور (مثل txtPassword)، وزر لتحقق من الباركود (مثل btnVerify).

2. إضافة الكود للتحقق من كلمة المرور والباركود:

   • استخدم الحدث On Click للزر btnVerify للتحقق من صحة الباركود وكلمة المرور وعرض البيانات إذا كانت صحيحة.

إليك مثالاً على كيفية القيام بذلك:

1. تصميم النموذج

1. افتح قاعدة بيانات Access.
2. قم بإنشاء نموذج جديد بالتصميم الذي ترغب فيه.
3. أضف الحقول النصية التالية:
   • txtBarcode: لإدخال الباركود.
   • txtPassword: لإدخال كلمة المرور.
4. أضف زرًا للتحقق من المدخلات (btnVerify).

2. إضافة كود VBA

1. افتح النموذج في وضع التصميم.
2. حدد الزر btnVerify، ثم اذهب إلى الخصائص (Properties).
3. انقر على علامة التبويب "Event" ثم انقر على زر "..." بجانب "On Click".
4. أضف الكود التالي:

Private Sub btnVerify_Click()
    Dim barcode As String
    Dim password As String
    Dim correctPassword As String
    
    ' قراءة الباركود وكلمة المرور المدخلة
    barcode = Me.txtBarcode.Value
    password = Me.txtPassword.Value
    
    ' كلمة المرور الصحيحة (يمكن تخزينها في مكان آمن بدلاً من الكود)
    correctPassword = "1234" ' قم بتغيير كلمة المرور كما تراه مناسباً
    
    ' التحقق من كلمة المرور
    If password = correctPassword Then
        ' التحقق من الباركود
        If Not IsNull(DLookup("FieldName", "TableName", "BarcodeField = '" & barcode & "'")) Then
            ' عرض البيانات إذا كانت صحيحة
            MsgBox "تم التحقق بنجاح! عرض البيانات الخاصة بالباركود."
            ' يمكنك إضافة الكود هنا لفتح نموذج آخر أو عرض البيانات بأي طريقة تريدها
        Else
            MsgBox "باركود غير صحيح."
        End If
    Else
        MsgBox "كلمة مرور غير صحيحة."
    End If
End Sub

 

الشرح:

• barcode: المتغير لتخزين الباركود المدخل.
• password: المتغير لتخزين كلمة المرور المدخلة.
• correctPassword: كلمة المرور الصحيحة التي يمكن تخزينها بأمان في مكان آخر بدلاً من الكود.
• DLookup: وظيفة للبحث عن الباركود في جدول البيانات. قم بتغيير FieldName, TableName, و BarcodeField لتناسب أسماء الحقول والجداول في قاعدة بياناتك.

هذا الكود يتحقق من صحة كلمة المرور أولاً، وإذا كانت صحيحة، يتحقق من وجود الباركود في قاعدة البيانات. إذا كان كلاهما صحيحًا، يتم عرض رسالة تأكيد، ويمكنك تعديل الكود لعرض البيانات الفعلية أو تنفيذ أي إجراء آخر

[naellord88]

36 دقائق مضت, Foksh said:

ما الهدف من الفكرة المطلوبة ؟؟

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

7 دقائق مضت, Shivan Rekany said:

 

السلام عليكم

انا الان استخدم موبايل لذلك قمت بتحويل سؤالك الی chatgpt وهذا هو جوابه ، جربه ووافينا بالنتيجة

لإضافة كلمة سر عند محاولة قراءة الباركود باستخدام VBA في Microsoft Access، يمكنك استخدام الخطوات التالية لإنشاء نموذج يتطلب إدخال كلمة مرور قبل عرض البيانات المرتبطة بالباركود.

1. إنشاء نموذج لإدخال الباركود وكلمة المرور:

   • قم بإنشاء نموذج جديد في Access يحتوي على حقل نص لإدخال الباركود (مثل txtBarcode) وحقل نص لإدخال كلمة المرور (مثل txtPassword)، وزر لتحقق من الباركود (مثل btnVerify).

2. إضافة الكود للتحقق من كلمة المرور والباركود:

   • استخدم الحدث On Click للزر btnVerify للتحقق من صحة الباركود وكلمة المرور وعرض البيانات إذا كانت صحيحة.

إليك مثالاً على كيفية القيام بذلك:

1. تصميم النموذج

1. افتح قاعدة بيانات Access.
2. قم بإنشاء نموذج جديد بالتصميم الذي ترغب فيه.
3. أضف الحقول النصية التالية:
   • txtBarcode: لإدخال الباركود.
   • txtPassword: لإدخال كلمة المرور.
4. أضف زرًا للتحقق من المدخلات (btnVerify).

2. إضافة كود VBA

1. افتح النموذج في وضع التصميم.
2. حدد الزر btnVerify، ثم اذهب إلى الخصائص (Properties).
3. انقر على علامة التبويب "Event" ثم انقر على زر "..." بجانب "On Click".
4. أضف الكود التالي:

Private Sub btnVerify_Click()
    Dim barcode As String
    Dim password As String
    Dim correctPassword As String
    
    ' قراءة الباركود وكلمة المرور المدخلة
    barcode = Me.txtBarcode.Value
    password = Me.txtPassword.Value
    
    ' كلمة المرور الصحيحة (يمكن تخزينها في مكان آمن بدلاً من الكود)
    correctPassword = "1234" ' قم بتغيير كلمة المرور كما تراه مناسباً
    
    ' التحقق من كلمة المرور
    If password = correctPassword Then
        ' التحقق من الباركود
        If Not IsNull(DLookup("FieldName", "TableName", "BarcodeField = '" & barcode & "'")) Then
            ' عرض البيانات إذا كانت صحيحة
            MsgBox "تم التحقق بنجاح! عرض البيانات الخاصة بالباركود."
            ' يمكنك إضافة الكود هنا لفتح نموذج آخر أو عرض البيانات بأي طريقة تريدها
        Else
            MsgBox "باركود غير صحيح."
        End If
    Else
        MsgBox "كلمة مرور غير صحيحة."
    End If
End Sub

 

الشرح:

• barcode: المتغير لتخزين الباركود المدخل.
• password: المتغير لتخزين كلمة المرور المدخلة.
• correctPassword: كلمة المرور الصحيحة التي يمكن تخزينها بأمان في مكان آخر بدلاً من الكود.
• DLookup: وظيفة للبحث عن الباركود في جدول البيانات. قم بتغيير FieldName, TableName, و BarcodeField لتناسب أسماء الحقول والجداول في قاعدة بياناتك.

هذا الكود يتحقق من صحة كلمة المرور أولاً، وإذا كانت صحيحة، يتحقق من وجود الباركود في قاعدة البيانات. إذا كان كلاهما صحيحًا، يتم عرض رسالة تأكيد، ويمكنك تعديل الكود لعرض البيانات الفعلية أو تنفيذ أي إجراء آخر

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

وساوافيك بالنتائج

[نائل حازم]

7 ساعات مضت, Shivan Rekany said:

 

السلام عليكم

انا الان استخدم موبايل لذلك قمت بتحويل سؤالك الی chatgpt وهذا هو جوابه ، جربه ووافينا بالنتيجة

لإضافة كلمة سر عند محاولة قراءة الباركود باستخدام VBA في Microsoft Access، يمكنك استخدام الخطوات التالية لإنشاء نموذج يتطلب إدخال كلمة مرور قبل عرض البيانات المرتبطة بالباركود.

1. إنشاء نموذج لإدخال الباركود وكلمة المرور:

   • قم بإنشاء نموذج جديد في Access يحتوي على حقل نص لإدخال الباركود (مثل txtBarcode) وحقل نص لإدخال كلمة المرور (مثل txtPassword)، وزر لتحقق من الباركود (مثل btnVerify).

2. إضافة الكود للتحقق من كلمة المرور والباركود:

   • استخدم الحدث On Click للزر btnVerify للتحقق من صحة الباركود وكلمة المرور وعرض البيانات إذا كانت صحيحة.

إليك مثالاً على كيفية القيام بذلك:

1. تصميم النموذج

1. افتح قاعدة بيانات Access.
2. قم بإنشاء نموذج جديد بالتصميم الذي ترغب فيه.
3. أضف الحقول النصية التالية:
   • txtBarcode: لإدخال الباركود.
   • txtPassword: لإدخال كلمة المرور.
4. أضف زرًا للتحقق من المدخلات (btnVerify).

2. إضافة كود VBA

1. افتح النموذج في وضع التصميم.
2. حدد الزر btnVerify، ثم اذهب إلى الخصائص (Properties).
3. انقر على علامة التبويب "Event" ثم انقر على زر "..." بجانب "On Click".
4. أضف الكود التالي:

Private Sub btnVerify_Click()
    Dim barcode As String
    Dim password As String
    Dim correctPassword As String
    
    ' قراءة الباركود وكلمة المرور المدخلة
    barcode = Me.txtBarcode.Value
    password = Me.txtPassword.Value
    
    ' كلمة المرور الصحيحة (يمكن تخزينها في مكان آمن بدلاً من الكود)
    correctPassword = "1234" ' قم بتغيير كلمة المرور كما تراه مناسباً
    
    ' التحقق من كلمة المرور
    If password = correctPassword Then
        ' التحقق من الباركود
        If Not IsNull(DLookup("FieldName", "TableName", "BarcodeField = '" & barcode & "'")) Then
            ' عرض البيانات إذا كانت صحيحة
            MsgBox "تم التحقق بنجاح! عرض البيانات الخاصة بالباركود."
            ' يمكنك إضافة الكود هنا لفتح نموذج آخر أو عرض البيانات بأي طريقة تريدها
        Else
            MsgBox "باركود غير صحيح."
        End If
    Else
        MsgBox "كلمة مرور غير صحيحة."
    End If
End Sub

 

الشرح:

• barcode: المتغير لتخزين الباركود المدخل.
• password: المتغير لتخزين كلمة المرور المدخلة.
• correctPassword: كلمة المرور الصحيحة التي يمكن تخزينها بأمان في مكان آخر بدلاً من الكود.
• DLookup: وظيفة للبحث عن الباركود في جدول البيانات. قم بتغيير FieldName, TableName, و BarcodeField لتناسب أسماء الحقول والجداول في قاعدة بياناتك.

هذا الكود يتحقق من صحة كلمة المرور أولاً، وإذا كانت صحيحة، يتحقق من وجود الباركود في قاعدة البيانات. إذا كان كلاهما صحيحًا، يتم عرض رسالة تأكيد، ويمكنك تعديل الكود لعرض البيانات الفعلية أو تنفيذ أي إجراء آخر

السلام عليكم 

طبقت الكود ولم ينجز ما مطلوب

حيث انه المطلوب عند مسح رمز qr code  من كامرة الهاتف لا يتم قرائته الا بعد ادخال كلمة مرور 

هنالك مواقع مثل tiger qr generator تقوم بانشاء كلمة سر لل qr code 

لكني ارفقت ملف اعلاه بالمشاركة اردت ان يكون العمل ضمن الاكسس 

شاكرا تعاونكم معي 

ارفق الملف مره ثانية لسهولة تحميله

QR.rar

[نائل حازم]

اخوان هل من حل لما مطلوب اعلاه ؟