كيفية ربط تكست مع نموذج فرعى للبحث العام

[marwa41]

بفضل الله وكرمه

وصلت الى 65 % من تصميم خاصى بى 

مع المساعدة القوية والتى انجزت معى هذا العمل 

الاستاذ الافضل محمد ابو عبد الله

فاضل اعمل نموذج بحث لكن لم اعرف كيفية الربط له

متابعة الشيكات v391.rar

[عفرنس]

5 ساعات مضت, marwa41 said:

بفضل الله وكرمه

وصلت الى 65 % من تصميم خاصى بى 

مع المساعدة القوية والتى انجزت معى هذا العمل 

الاستاذ الافضل محمد ابو عبد الله

فاضل اعمل نموذج بحث لكن لم اعرف كيفية الربط له

متابعة الشيكات v391.rar 222.81 kB · 5 تنزيلات

إليك المرفق .. لا أدري إن كان ما تريد

متابعة الشيكات v391.rar

[marwa41]

استاذ فايز تسلم ايدك 

لكن انا مرتبط بالنموذج الى المرفقات 

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

السلام عليكم

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

تم الانتهاء من ( البحث العام - البحث بين تاريخين - البحث بقيمة الشيك )

Option Compare Database
Option Explicit
Dim myCriteria As String

Private Sub X0_Exit(Cancel As Integer)
    Me.Search2.Requery
End Sub

Private Sub X2_Exit(Cancel As Integer)

     If IsNull([X1]) Or IsNull([X2]) Then
        MsgBox "يجب أن تدخل التاريخين الافتتاحي والختامي", vbInformation, "Acoade 2019"
        DoCmd.GoToControl "X1"
 Else
     If [X1] > [X2] Then
        MsgBox "يجب أن يكون التاريخ الختامي أكبر من التاريخ الافتتاحي", vbInformation, "Acoade 2019"
        DoCmd.GoToControl "X2"
 Else
        myCriteria = myCriteria & "("
        myCriteria = myCriteria & "[الشيك].[تاريخ الاصدار] between #" & Format(Me.X1.Value, "mm/dd/yyyy") & "# and #" & Format(Me.X2.Value, "mm/dd/yyyy") & "#"
        myCriteria = myCriteria & ")"
        Debug.Print myCriteria
        Me.Search2.Form.Filter = myCriteria
        Me.Search2.Form.FilterOn = True
 End If
 End If

End Sub

Private Sub X3_Exit(Cancel As Integer)
    If Not IsNull(Me.X3) Then
        myCriteria = myCriteria & "("
        myCriteria = myCriteria & "[الشيك].[المبلغ ارقام]= " & Me.X3 & ""
        myCriteria = myCriteria & ")"
        Debug.Print myCriteria
        Me.Search2.Form.Filter = myCriteria
        Me.Search2.Form.FilterOn = True
    End If

End Sub

متابعة الشيكات v391.rar

تحياتي

[marwa41]

جزاك الله كل خير

وكل عام وانت اقرب الى الله 

توجد ملحوظة

وهى عند كتابة تاريخ 

او قيمة الشيك

تحضر البيانات ولكن عند اعادة البحث تبقى بيانات فى النموذج الفرعى فقط على اساس التاريخ وقيمة الشيك

تم تعديل يوليو 26, 2020 بواسطه marwa41

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

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

متابعة الشيكات v391.rar

تحياتي

[marwa41]

تسلم ايدك

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

وستاذنك سوف اضع اسمك وتليفونك 

وهذا ابسط شئ لمجهودك العظيم فقط اريد 

اريد تفريغ قاعدة البيانات 

وقبلها عمل نسخة احتياطى 

وارجاع نسخة احتياطى 

وانا ان شاء الله

حشتغل المستخدمين 

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

38 دقائق مضت, marwa41 said:

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

تقبل الله منا ومنكم صالح الاعمال

39 دقائق مضت, marwa41 said:

اريد تفريغ قاعدة البيانات 

وقبلها عمل نسخة احتياطى 

وارجاع نسخة احتياطى

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

تحياتي