البحث في العمود الثاني من مربع التحرير (معدل)

[ازهر عبد العزيز]

السلام عليكم

لدي نموذج Flib يحتوي نموذج فرعي داخلة مربع تحرير  مبني على استعلام ثلاث حقول idbf , fo ,bo كما  في الصورة عند الاختيار من هذا المربع تظهر قيم الحقل fo فقط  وهذا جيد المطلوب كيف اجعل هذا الحقل يستند الى الحقلين fo , bo عند الادخال  أي عند كتابة قيمه في مربع التحريرidbf وكانت هذا القيمة موجودة أيضا في الحقل  bo يقبل القيمة 

 

New Microsoft Access قاعدة بيانات.accdb

[jjafferr]

وعليكم السلام 🙂

استعمل استعلام union ،

بحيث من اول استعلام يظهر لك قيمة الحقل fo ، والاستعلام الآخر يظهر لك قيمة الحقل bo ، وتجمع الاستعلامين في استعلام union 🙂
االشرط الوحيد في استعلام union هو ان يكون عدد حقول الاستعلامات فيه ، نفسها ، يعني كل استعلام يظهر نفي عدد الحقول ،

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

 

جعفر

[ازهر عبد العزيز]

أستاذ @jjafferr فكرة إبداعية   سؤال انا لا اريد عند الاختيار من المربع التحرير تظهر قيم bo  اريد فقط ان يقبل عند كتابة القيم  وتظهر قيم  fo

[jjafferr]

يعني تريد اظهار قيم fo ، بشرط انها تكون موجود في الحقل bo كذلك ؟

[ازهر عبد العزيز]

8 دقائق مضت, jjafferr said:

يعني تريد اظهار قيم fo ، بشرط انها تكون موجود في الحقل bo كذلك ؟

أستاذ المطلوب اظهار قيم fo فقط لكن عند كتابة قيمة موجودة في الحقل bo  تقبل أيضا لكن الاسم الذي يظهر  في الحقل هو ما يقابلها لقيمة الحقل fo 

مثلا عند كتابة b8 يقبل لكن الذي سوف يظهر في الحقل هو f6 وطبعا عند كتابة او اختيار أي قيمة من الحقل fo لن تكون هناك مشكلة 

[jjafferr]

السلام عليكم 🙂

 

لا يمكن تصفية مربع التحرير إلا من حقل واحد ،

لذا ، سنستخدم حيلة في انه اذا القيمة غير موجودة في الحقل ، فنستخدم الكود التالي لجلب القيمة المطلوبة:

Option Compare Database
Option Explicit

Private Sub idbf_NotInList(NewData As String, Response As Integer)

    Dim ctlList As Control, i As Integer

    ' Return Control object variable pointing to list box.
    Set ctlList = Me.idbf
    ' Enumerate through selected items.
    For i = 0 To ctlList.ListCount - 1

        If ctlList.Column(2, i) = NewData Then
            ctlList.Value = CInt(ctlList.Column(0, i))
            Me.fo.SetFocus
            GoTo Get_Out
        End If
        
    Next
    
    MsgBox "هذه القيمة غير موجودة في القائمة"
    
Get_Out:
        Response = acDataErrContinue

End Sub

.

جعفر

Combo_value_from_another_column.zip