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

[حامل المسك]

السلام عليكم،،

ونسأل الله أن يجعلنا وإياكم من المقبولين وممن وفق لقيام ليلة القدر،،

أساتذتي الكرام،،

لدي برنامج واجهتني مشكلة في توافق علمية البحث واستعرضت كثيرا من الأمثلة لكن لم أوفق في التطبيق،، وهي في حال إضافة سجل جديد كيف نجعل حركة السهم عند فتح القائمة المنسدلة متوافق مع النموذج الفرعي بحيث إذا تحركت بالسهم للأعلى أو للأسفل تظهر النتائج مباشرة أو إذا كتب في الخانة فمن حيث كتابة أول رقم تظهر النتائج تبعا لما كُتب في الخانة،،

وكذلك في حال الاختيار إذا كانت الإدارة غير ملغاة أو لم ينته تاريخها تأتي رسالة تفيد بذلك،،

مرفق المثال يا كرام،،

بحث تلقائي.accdb

[حامل المسك]

[SEMO.Pa3x]

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

تفضل حمل المرفق.

بخصوص طلبك الثاني بخصوص الإدارة الملغية والتأريخ صراحة لم افهمة.

كيف اعرف ان التاريخ قد انتهى؟ لماذا لا تقم بعمل CheckBox في الجدول اذا تم وضع علامة صح

معناها ان الادارة منتهية والعكس.

 

بحث تلقائي.accdb

[حامل المسك]

أولا :: في هذه الساعات المباركات قبل أذان المغرب لك صادق الدعوات وللمشرفين الكرام على هذا المنتدى المتميز،،

ثانيا:: حملت المرفق لكن لم تظهر النتائج بالشكل المطلوب نعم تظهر عن التحرك بالسهم لكن عند الكتابة لا تظهر،،

وبالنسبة لمعرفة التاريخ المنتهي مقارنة بالتاريخ الحالي فإذا كان التاريخ المكتوب يوافق أو قبل التاريخ الحالي يعني أن التاريخ منتهي وإذا كان بعده يعني لم ينته

وبالنسبة للإدارة الملغات هي التي عليها علامة صح

فإذا كانت الإدارة غير ملغاة أو لا زال التاريخ لم ينته يعطي رسالة بأنه لا يمكن إضافة شخص لكون الإدارة غير ملغاة أو التاريخ غير منتهي،،

سلمكم الله ورعاكم،،

[SEMO.Pa3x]

18 ساعات مضت, حامل المسك said:

أولا :: في هذه الساعات المباركات قبل أذان المغرب لك صادق الدعوات وللمشرفين الكرام على هذا المنتدى المتميز،،

ثانيا:: حملت المرفق لكن لم تظهر النتائج بالشكل المطلوب نعم تظهر عن التحرك بالسهم لكن عند الكتابة لا تظهر،،

وبالنسبة لمعرفة التاريخ المنتهي مقارنة بالتاريخ الحالي فإذا كان التاريخ المكتوب يوافق أو قبل التاريخ الحالي يعني أن التاريخ منتهي وإذا كان بعده يعني لم ينته

وبالنسبة للإدارة الملغات هي التي عليها علامة صح

فإذا كانت الإدارة غير ملغاة أو لا زال التاريخ لم ينته يعطي رسالة بأنه لا يمكن إضافة شخص لكون الإدارة غير ملغاة أو التاريخ غير منتهي،،

سلمكم الله ورعاكم،،

 

Option Compare Database


'جلب البيانات في حال البحث والإختيار من القائمة المنسدلة
Private Sub ba_AfterUpdate()
    fta.Requery
    Call CheckManagementDate
    Call CheckManagementBoolean
End Sub

'جلب البيانات في حال الضغط على الأسم الأعلى والأسفل
Private Sub ba_KeyUp(KeyCode As Integer, Shift As Integer)

    '40 = arrow down
    '38 = arrow up

    If KeyCode = 38 Or KeyCode = 40 Then
        Me.Recalc
        fta.Requery
        ba.Dropdown
        Call CheckManagementDate
        Call CheckManagementBoolean
    End If
    
End Sub

'اذا كان الحقل عليه علامة صح في الجدول معناها ان الادارة منتهية والعكس
Sub CheckManagementBoolean()

    Dim ManagementBoolean As Boolean
    ManagementBoolean = ba.Column(3)
    
    If (ManagementBoolean = True) Then
        MsgBox "الادارة منتهية"
    Else
        MsgBox "الادارة غير منتهية"
    End If
    
End Sub

'اذا كان حقل التاريخ في الجدول أصغر من أو يساوي التاريخ الحالي معناها ان الادارة منتهية والعكس
Sub CheckManagementDate()

    Dim ManagementDate As Date
    ManagementDate = ba.Column(2)
    
    If (ManagementDate <= Date) Then
        MsgBox "الادارة منتهية"
    Else
        MsgBox "الادارة غير منتهية"
    End If
    
End Sub

 

تفضل جرب وأخبرني النتيجة

بحث تلقائي.accdb

[حامل المسك]

سلمت أبا مهاب ،،

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

فعدلت على المثال المرفق للتكرم بالنظر رعاكم الله،،

 

بحث تلقائي (3).accdb

تم تعديل مايو 11, 2021 بواسطه حامل المسك