فتح سجل في نموذج برقم سري بشرط

[alzahrani2014]

السلام عليكم

جدول فيه حقل (سري و غير سري )  .... في نموذج البحث عن معاملة . اذا كانت المعاملة سرية لا تظهر البيانات الا برقم سري 

مع فائق التحية

مرفق مثال

b2.accdb

[ابوخليل]

السلام عليكم

الافضل لك ان تعمل نموذجا خاصا لعرض السجلات السرية ، ويكون الدخول اليه برقم سري

وملاحظة صغيرة : حاول ان تكون البيانات في الجدول عبارة عن ارقام  سواء كان نوع الحقل رقمي او نصي

مثلا : سري وغير سري يكون صفر وواحد

يمكنك ترجمة هذه الارقام من خلال النماذج والتقارير

عندما تتقدم في البرمجة سيتضح لك فائدة ذلك

 

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

بالاضافة الى ما تفضل به استاذنا الفاضل @ابوخليل وله الشكر

جرب الكود التالي

    Me.Filter = "noo =" & Me.مربع_تحرير_وسرد7
    Me.FilterOn = True
    Me.Requery
                    
                    
    If Me.sec.Value = "سري" Then
        Me.Visible = False
        If InputBox("الرجاء ادخال كلمة السر لفتح النموذج", "فتح النموذج") = "123" Then
        Me.Visible = True
        Else
            Me.Visible = False
            DoCmd.GoToRecord , , acNewRec
        End If
    End If

b21.accdb

تحياتي

[alzahrani2014]

1 ساعه مضت, محمد أبوعبدالله said:

جرب الكود التالي

perfect  🤙

شكرا لك ابو عبدالله  @محمد أبوعبدالله  سؤال هل ممكن يكون ماكرو ؟ اعتقد الماكرو اقوي في الاكسس من vb .

 

استاذنا وكبيرنا @ابوخليل كلامك جميل باذن الله مستقبلا سأعمل به 🌺

[kanory]

14 دقائق مضت, alzahrani2014 said:

perfect  🤙

شكرا لك ابو عبدالله  @محمد أبوعبدالله  سؤال هل ممكن يكون ماكرو ؟ اعتقد الماكرو اقوي في الاكسس من vb .

بل VB افضل من حيث الحماية واخفاء ما تريد حمايتة وخاصة في مثالك تريد عدم التعديل الا برقم سري ..... لان الماكروا حتى بعد حماية القاعدة وتحويلها mde يمكن الاطلاع عليها وتعديلها 

[محمد أبوعبدالله]

10 دقائق مضت, alzahrani2014 said:

اعتقد الماكرو اقوي في الاكسس من vb

ما معنى اقوى ... حقيقة لم افهمك جيدا

كما اني ارى في vb حرية حركة ومرونة عالية في كتابة الكود وهناك اكواد لا يمكن كتابتها في الماكرو لذلك افضل vb

والاهم ان يكون الناتج صحيح مهما اختلفت الطرق

تحياتي

[Eng.Qassim]

40 دقائق مضت, alzahrani2014 said:

اعتقد الماكرو اقوي في الاكسس من vb

الماكرو محدود .. ولهذا السبب ذكر لك الاستاذ ابو خليل ملاحظته.. حتى تقلل من الضغط على قاعدة البيانات وسرعة في البحث

تحياتي

[alzahrani2014]

كلام @ابوخليل سيف ...

حفظكم الله جميعا ... استفدت منكم كثيرا وقرب مشروعي على الانتهاء بفضل الله ثم عونكم 

[ابو جودي]

15 ساعات مضت, ابوخليل said:

السلام عليكم

الافضل لك ان تعمل نموذجا خاصا لعرض السجلات السرية ، ويكون الدخول اليه برقم سري

وملاحظة صغيرة : حاول ان تكون البيانات في الجدول عبارة عن ارقام  سواء كان نوع الحقل رقمي او نصي

مثلا : سري وغير سري يكون صفر وواحد

يمكنك ترجمة هذه الارقام من خلال النماذج والتقارير

عندما تتقدم في البرمجة سيتضح لك فائدة ذلك

 

وعليكم السلام ورحمة الله تعالى وبركاته

استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل .. حياكم الله وبياكم

اولا وقبل كل شئ

اشتاقت لكم نفسى كثيرا ... اسال الله تعالى لكم الصحة والعافية والبركة فى العمر والعلم والعمل والاهل والولد وكل اساتذتى الكرام واخواننا 

مشاركة مع اساتذتى الأفاضل
هذا تطبيقى المتواضع بناء على توجيهاتكم ولكن بما ان اخى الكريم الاستاذ @alzahrani2014 يريد عمل فزر وتصفية فى نموذج
تلك فكرتى المتواضعة وحاولت جاهدا امعان النظر والتفكير خارج الصندوق وفى انتظار رأيكم  وتوجيهاتكم

المرفق يضم بين طياته

- نموذج واحد لإجراء الفرز والتصفية على كل البيانات سواء كان السجل سرى أو غير سرى
-عند فتح النموذج يتم الفرز والتصفية فقط على السجلات الغير سرية
-عند تحديث مربع السرد الخاص بالفرز فى حالة كانت البيانات سرية يتم اخفائها على الفور وتظهر البيانات فقط بكتابة كلمة المرور الصحيحة (123) والا لا ولن يتم عرض البيانت >>---> حيلة وخدعة
-التغلب على التنقل بين الحقول بالضغط على زر TAP  من لوحة المفاتيح حتى لا يتم استعراض البيانات السرية >>---> حيلة وخدعة
-فى حالة الغاء الفرز والتصفية
             سواء كان السجل الحالى سرى
             او حتى بعد ادخال كلمة مرور خطأ
             او حتى كان السجل الحالى لا يحتوى بيانات سرية يتم اليا اجراء تطبيق الفرز على السجلات الغير سرية 
- طبعا تم التعديل على بنية الحقل sec فى الجدول بتحويله الى حقل رقمى
  وتم التعديل علية بحيث يتم تحويله الى Combo Box
   بحيث يكون نوع مصدر بيانات الحقل Value List وقيم الحقل الافتراضية تتكون من -1;"سرى";0;"غير سرى"
-تم اضاقة موديول لاخفاء كلمة المرور اثناء الكتابة لتظهر على شكل ***** 

اترككم مع المرفق

 

b2- Moh3sam.mdb

تم تعديل سبتمبر 20, 2021 بواسطه ابا جودى

[محمد أبوعبدالله]

جزاك الله خيرا استانا الفاضل @ابا جودى على هذا العمل الرائع

واثراءا للموضوع اسمح لي بتطبيق الفكرة بشكل اخر مختصر بعض الشىء

Private Sub XH_S()

    If Me.sec.Value = "سري" Then
        Me.Label12.Visible = True
    Else
        Me.Label12.Visible = False
    End If

End Sub

Private Sub Form_Current()

    Me.مربع_تحرير_وسرد7.SetFocus
    XH_S

End Sub

Private Sub Form_Open(Cancel As Integer)
    XH_S
End Sub

Private Sub مربع_تحرير_وسرد7_AfterUpdate()

    Me.Filter = "noo =" & Me.مربع_تحرير_وسرد7
    Me.FilterOn = True
    Me.Requery
          
    If Me.sec.Value = "سري" Then
'        Me.Visible = False
        If InputBox("الرجاء ادخال كلمة السر لفتح النموذج", "فتح النموذج") = "123" Then
        Me.Label12.Visible = False
        Else
'            Me.Visible = False
            Me.Label12.Visible = True
        End If
    End If
    
End Sub

b21.accdb

تحياتي

[ابوخليل]

ابوعبدالله .. ابوجودي  شكرا لكما لإثراء الموضوع .. جزيتم خيرا

انا مع تخصيص نموذج للسري فقط .. يكون المعيار في مصدر بياناته اظهار السري فقط

[Eng.Qassim]

استاذي و معلمي الجليل @ابوخليل بصراحة لم افهم مالذي تقصده بعمل نموذج خاص للسري ؟

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

[alzahrani2014]

ماشاء الله اثراء جميل للسؤال

 

ماتوقعت ان يثير السؤال حفيضتكم بهذا الشكل لتنثروا ابداعاتكم وخبراتكم ....

@ابا جودى سأجرب طريقتكم الليله ان شاء الله ( صبر مافيه 😄) وكذلك طريقة الاستاذ @محمد أبوعبدالله

ابداع وامتاع .... ماشاء الله تبارك الرحمن 

شكرا لكم جميعا 

تم تعديل سبتمبر 20, 2021 بواسطه alzahrani2014

[ابوخليل]

2 ساعات مضت, Eng.Qassim said:

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

لا حظ ان ما تفضلوا به يتم ضمن نموذج واحد

وفكرتي هي تخصيص نموذج لكل نوع