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

نائل حازم · يونيو 29

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

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

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

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

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

QR.rar

**Foksh** · يوليو 3

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

**Shivan Rekany** · يوليو 3

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

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

السلام عليكم

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

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

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

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

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

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

2. إضافة كود VBA

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

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 · يوليو 3

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

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

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

7 دقائق مضت, Shivan Rekany said:
السلام عليكم

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

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

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

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

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

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

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

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

افتح قاعدة بيانات Access.

قم بإنشاء نموذج جديد بالتصميم الذي ترغب فيه.

أضف الحقول النصية التالية:

txtBarcode: لإدخال الباركود.

txtPassword: لإدخال كلمة المرور.

أضف زرًا للتحقق من المدخلات (btnVerify).

2. إضافة كود VBA

افتح النموذج في وضع التصميم.

حدد الزر btnVerify، ثم اذهب إلى الخصائص (Properties).

انقر على علامة التبويب "Event" ثم انقر على زر "..." بجانب "On Click".

أضف الكود التالي:
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 لتناسب أسماء الحقول والجداول في قاعدة بياناتك.

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

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

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

نائل حازم · يوليو 4

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

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

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

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

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

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

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

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

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

افتح قاعدة بيانات Access.

قم بإنشاء نموذج جديد بالتصميم الذي ترغب فيه.

أضف الحقول النصية التالية:

txtBarcode: لإدخال الباركود.

txtPassword: لإدخال كلمة المرور.

أضف زرًا للتحقق من المدخلات (btnVerify).

2. إضافة كود VBA

افتح النموذج في وضع التصميم.

حدد الزر btnVerify، ثم اذهب إلى الخصائص (Properties).

انقر على علامة التبويب "Event" ثم انقر على زر "..." بجانب "On Click".

أضف الكود التالي:
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

نائل حازم · يوليو 6

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

تسجيل الدخول

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

الردود الموصى بها

نائل حازم

رابط هذا التعليق

شارك

Foksh

رابط هذا التعليق

شارك

Shivan Rekany

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

2. إضافة كود VBA

الشرح:

رابط هذا التعليق

شارك

naellord88

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

2. إضافة كود VBA

الشرح:

رابط هذا التعليق

شارك

نائل حازم

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

2. إضافة كود VBA

الشرح:

رابط هذا التعليق

شارك

نائل حازم

رابط هذا التعليق

شارك

من فضلك سجل دخول لتتمكن من التعليق

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information