marwa41 قام بنشر يوليو 26, 2020 مشاركة قام بنشر يوليو 26, 2020 بفضل الله وكرمه وصلت الى 65 % من تصميم خاصى بى مع المساعدة القوية والتى انجزت معى هذا العمل الاستاذ الافضل محمد ابو عبد الله فاضل اعمل نموذج بحث لكن لم اعرف كيفية الربط له متابعة الشيكات v391.rar رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر يوليو 26, 2020 مشاركة قام بنشر يوليو 26, 2020 5 ساعات مضت, marwa41 said: بفضل الله وكرمه وصلت الى 65 % من تصميم خاصى بى مع المساعدة القوية والتى انجزت معى هذا العمل الاستاذ الافضل محمد ابو عبد الله فاضل اعمل نموذج بحث لكن لم اعرف كيفية الربط له متابعة الشيكات v391.rar 222.81 kB · 5 تنزيلات إليك المرفق .. لا أدري إن كان ما تريد متابعة الشيكات v391.rar 2 رابط هذا التعليق شارك More sharing options...
marwa41 قام بنشر يوليو 26, 2020 الكاتب مشاركة قام بنشر يوليو 26, 2020 استاذ فايز تسلم ايدك لكن انا مرتبط بالنموذج الى المرفقات رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يوليو 26, 2020 مشاركة قام بنشر يوليو 26, 2020 السلام عليكم تفضل اخي الكريم تم الانتهاء من ( البحث العام - البحث بين تاريخين - البحث بقيمة الشيك ) 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 تحياتي 2 رابط هذا التعليق شارك More sharing options...
marwa41 قام بنشر يوليو 26, 2020 الكاتب مشاركة قام بنشر يوليو 26, 2020 (معدل) جزاك الله كل خير وكل عام وانت اقرب الى الله توجد ملحوظة وهى عند كتابة تاريخ او قيمة الشيك تحضر البيانات ولكن عند اعادة البحث تبقى بيانات فى النموذج الفرعى فقط على اساس التاريخ وقيمة الشيك تم تعديل يوليو 26, 2020 بواسطه marwa41 رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يوليو 27, 2020 مشاركة قام بنشر يوليو 27, 2020 تفضل اخي الكريم متابعة الشيكات v391.rar تحياتي 1 1 رابط هذا التعليق شارك More sharing options...
marwa41 قام بنشر يوليو 27, 2020 الكاتب مشاركة قام بنشر يوليو 27, 2020 تسلم ايدك عندما ننتهى من هذا البرنامج سوف اضعه لوجه الله تعالى وستاذنك سوف اضع اسمك وتليفونك وهذا ابسط شئ لمجهودك العظيم فقط اريد اريد تفريغ قاعدة البيانات وقبلها عمل نسخة احتياطى وارجاع نسخة احتياطى وانا ان شاء الله حشتغل المستخدمين رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر يوليو 27, 2020 مشاركة قام بنشر يوليو 27, 2020 38 دقائق مضت, marwa41 said: عندما ننتهى من هذا البرنامج سوف اضعه لوجه الله تعالى تقبل الله منا ومنكم صالح الاعمال 39 دقائق مضت, marwa41 said: اريد تفريغ قاعدة البيانات وقبلها عمل نسخة احتياطى وارجاع نسخة احتياطى خيرا ان شاء الله ولكن برجاء فتح موضوع جديد تقديرا لقوانين المنتدى تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.