ممكن اظهار رسالة بعدم وجود الاسم المطلوب في البحث

[نبراس كاظم]

السلام عليكم الكود يعمل بحث من الجدول المطلوب

ويظهر المعلومات في النموذج الفرعي

لكن فيحالة لم يجد الاسم المطلوب كيف يظهرلي رسالة عدم وجود اسم الشركة في الجدول 

 

 

My_DB.rar

تم تعديل يناير 23, 2021 بواسطه نبراس كاظم
ارفاع ملف بدل الصور

[نبراس كاظم]

تم الحل 

If IsNull(DLookup("[company_name]", "tbl_company", "[company_name]='" & Me.txt_search & "'")) Then
            MsgBox "هذه الشركة غير موجودة", 16, "بحث"
        

لكن في مشكلة صغيرة وهي

البحث عاملة خاصة لايك يعني اي شي مشابة لكلمة البحث يظهر 

اما الان فلا يظهر يجب اسم الكلمة بشكل عام 

تم تعديل يناير 23, 2021 بواسطه نبراس كاظم

[ابوبسمله]

السلام عليكم

55 دقائق مضت, نبراس كاظم said:

اما الان فلا يظهر يجب اسم الكلمة بشكل عام

جرب ووافنا بالنتيجه

Private Sub btn_search_Click()

Set db = CurrentDb
Set rs = db.OpenRecordset("select * from tbl_company ")

        Dim ser As String
        Me.txt_search.SetFocus
        ser = "*" & Me.txt_search.Text & "*"
            
        If IsNull(Trim(Me.txt_search.Value)) Then
            MsgBox "ادخل اسم الشركة للبحث عنها ", vbCritical, "البحث"
            Me.txt_search.SetFocus
            Exit Sub
            
        ElseIf IsNull(DLookup("[company_name]", "tbl_company", "company_name like '" & ser & "'")) Then
            MsgBox "هذه الشركة غير موجودة", 16, "بحث"

        ElseIf Not (Me.txt_search.Text = "") Then
            Me.sub_company.Form.Filter = "company_name like '" & ser & "'"
            Me.sub_company.Form.FilterOn = True
        Else
        
            Me.sub_company.Form.FilterOn = False
            Me.sub_company.Form.Refresh
            Me.txt_search = Null

        End If
        
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub

بالتوفيق

[نبراس كاظم]

تسلم اخي احمد

كان عندي مشكلة في دالة if

[ابوبسمله]

العفو اخى

7 ساعات مضت, نبراس كاظم said:

كان عندي مشكلة في دالة if

ماهى المشكله التى واجهتك ؟

بالتوفيق

[نبراس كاظم]

18 hours ago, احمد الفلاحجي said:

العفو اخى

ماهى المشكله التى واجهتك ؟

بالتوفيق

لاتوجد مشكلةالحمد لله قصدي كان عندي مشكلة فيترتيب الدالة