ممكن طريق البحث بشرطيين معا

[nabil2255]

السلام عليكم

اريد طريقة البحث بشرطيين معا 

اي يجب ادخال الاسم و تاريخ الميلاد للبحث

وشكراااا

FrEmpl.rar

تم تعديل يونيو 16, 2020 بواسطه nabil2255

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

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

واين تريد ظهور النتيجة ؟

تحياتي

[nabil2255]

9 دقائق مضت, محمد أبوعبدالله said:

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

واين تريد ظهور النتيجة ؟

تحياتي

في نفس النموذج اخي الكريم

[أبوبسمله]

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

مشاركه مع اخى واستاذى @محمد أبوعبدالله جزاه الله خيرا

هل هذا ما تريد ؟

FrEmpl.rar

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

بارك الله فيك استاذنا أحمد الفلاحجى

وهذا خل اخر

 

تحياتي

 

FrEmpl.rar

[أبوبسمله]

8 دقائق مضت, محمد أبوعبدالله said:

وهذا خل اخر

تحياتي

FrEmpl.rar 33.72 kB · 0 تنزيلات

وفيك بارك الله اخى واستاذى محمد وجزاك الله كل خير 💐

[nabil2255]

27 دقائق مضت, محمد أبوعبدالله said:

بارك الله فيك استاذنا أحمد الفلاحجى

وهذا خل اخر

 

تحياتي

 

FrEmpl.rar 33.72 kB · 1 تنزيلات

اخي بارك الله فيك ولكن هناك مشكلة صغيرة و هي بالرغم من ان البيانات صحيحة عند عملية البحث و لكن تظهر الرسالة لا توجد بيانات ممكن حل 

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

تفضل اخي الكريم

FrEmpl.rar

تحياتي

[nabil2255]

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

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

تفضل اخي الكريم

Private Sub Command24_Click()

    On Error GoTo Error_ErrorZ
    
    If Len(Me.Text20 & "") = 0 Or Len(Me.Text22 & "") = 0 Then
    MsgBox "ادخل الاسم وتاريخ الميلاد"
    Exit Sub
    Else
     
    myCriteria = myCriteria & "("
    
    myCriteria = myCriteria & "[Emply].[name]= '" & Me.Text20 & "'"
    myCriteria = myCriteria & " And "
    myCriteria = myCriteria & "[Emply].[datN] =#" & Format(Me.Text22.Value, "mm/dd/yyyy") & "#"
    
    myCriteria = myCriteria & ")"
    
    Debug.Print myCriteria
    
    Me.Filter = myCriteria
    Me.FilterOn = True
    
    xx = Me.RecordsetClone.RecordCount
        If xx = 0 Then
            MsgBox "لا توجد بيانات"
        End If
    
    End If
    

Error_ErrorZ:

    End Sub

FrEmpl.rar

تحياتي

[nabil2255]

شكرا لكم جميعا على المساعدة و لكم مني كل التبجيل و التوقير منكم نتعلمنا ونستفيذ اساتذتنا الافاضل و كل القائمين على هذا الموقع  الرائع و المميز .