Shivan Rekany

شوف هذا الحل مع صور التوضيحية شوف الجدول اي اسم من الاسماء لم يتم الدفع الحوالة باكثر من 10 ايام علي اخر دفع له كان في 5\1\2017 وصالح كان اخر فع له في 17\1\2017 و محمد كان اخر دفع له في 6\1\2017 واليوم هو 19\1\2017 اي يعني صار اكثر من 10 ايام لدفع الحوالة من قبل على و محمد شوف الصور التانية الاستعلام مش محتاح اشرح اكثر وشوف النتيجة وهذا ملف بعد تعديل Database1 (3).rar مع تقدير

شوف هذا هل هو المطلوب ؟ في استعلام H1 في حقل فرق بين تاريخ الان والتاريخ الدفع بيكون < 10 ولكي لا يتم التكرار مرتين عملنا استعلام اخر باسم Q1 شوف النتيجه‌ Database1 (3).rar

اخي الكريم هذا الموضوع مكرر هناك انا طلبت منك ان ترفع قاعدة بيانات لكي نتم العملية عليه مع تقدير

هل قصدك هذا =DLookUp("[Holiday_Name]";"Holiday_Table";" [Holiday_Table]![SN]=" & 1) =DLookUp("[Holiday_Name]";"Holiday_Table";" [Holiday_Table]![SN]=" & 2) =DLookUp("[Holiday_Name]";"Holiday_Table";" [Holiday_Table]![SN]=" & 3) =DLookUp("[Holiday_Name]";"Holiday_Table";" [Holiday_Table]![SN]=" & 4) شوف المرفق بعد تعديل على ليبل اسفل النموذج Holiday.rar

اشكرك استاذي الفاضل Rudwan شكرا لمتابعتك شكرا للتوضيح و ملاحضتك في الحقيقة انا خبرتي اقل من قليلة في هذا المجال وما اعرف الكتير عن الشغل لذا اقدم اعتذاري اذا كان هناك تقصير من قبلي او عملت شيء خطأ مع تقدير

استخدم هذه الكود للتنبيه و التأكيد اولا قبل اضافة Private Sub Command29_Click() On Error GoTo g: If MsgBox(" هل انت متأكد من اضافة سجلات", _ vbCritical + vbYesNo, _ "تنبيه") = vbNo Then Exit Sub Else Dim i As Integer Dim x As Date Dim N As Integer DoCmd.GoToRecord , , acNewRec x = Forms![test1]![Date_M] Me.no = Forms![test1]![no1] - 1 Me.Refresh For i = Forms![test1]![no1] To Forms![test1]![no] + Forms![test1]![no1] - 1 N = DMax("[NO]", "Q1", "[ID]=" & Forms![test1]![id1]) Me.date1 = Forms![test1]![Date_M] Me.serial = Forms![test1]![serial] Me.date1 = DateAdd("d", Forms![test1]![no2], x) x = Me.date1 Me.no = N + 1 DoCmd.GoToRecord , , acNext Next i DoCmd.Requery End If g: Exit Sub End Sub

فهمني ما تريد بالظبط 1 / يعني ما تريد ان يظيف اي سجل بعد اذا بيكون سجل موجود في نموذج فرعي في حقل NO برقم 10 2 / او تريد ان لا يتجاوز عدد السجلات من 10 سجلات

استخدم هذا الكود في حدث عندما لا يكون بها البيانات Private Sub Report_NoData(Cancel As Integer) MsgBox "التقرير ما بها بيانات" DoCmd.Close acReport, "REP1" End Sub بدل ريب1 الى اسم تقريرك

اتفضل هذا هو الكود On Error GoTo g: Dim i As Integer Dim x As Date Dim N As Integer DoCmd.GoToRecord , , acNewRec x = Forms![test1]![Date_M] Me.no = Forms![test1]![no1] - 1 Me.Refresh For i = Forms![test1]![no1] To Forms![test1]![no] + Forms![test1]![no1] - 1 N = DMax("[NO]", "Q1", "[ID]=" & Forms![test1]![id1]) Me.date1 = Forms![test1]![Date_M] Me.serial = Forms![test1]![serial] Me.date1 = DateAdd("d", Forms![test1]![no2], x) x = Me.date1 Me.no = N + 1 DoCmd.GoToRecord , , acNext Next i DoCmd.Requery g: Exit Sub اي بدل هذا السطر قديم For i = Forms![test1]![no1] To Forms![test1]![no] بهذا الجديد For i = Forms![test1]![no1] To Forms![test1]![no] + Forms![test1]![no1] - 1

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

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

في البدايه‌ انا قلت لك ان هژا الشغل تابع الك واذا تقلل الجداول راح يقلل حجم القاعدة لكن مادام شغلك يريد منك كل هذه المعلومات انت على الحق ان تعمل كل هذه الجداول وبالمناسبة العلاقات كلها تمام مع تحياتي

شوف هل تريد هذا ProSa.rar

اتفضل حسب طلبك test4 (2).rar

السلام عليكم ورحمة الله وبركاته اخي الكريم اريد اسألك هل تعلم ما تريد ام لا ؟ اذا نعم ! الله يخليك قل ما تريد بالتفصيل لكن اذا ما تعرف تشرح لنا مالمطلوب اعمل صورة واكتب عليه مالمطلوب ومع قاعدة بياناتك ليتم العملية عليه لكن اذا الجوابك بيكون لا ! الله يغفر لك ولنا ذنوبنا القاعدة بيانات لاخونا واستاذنا صالح حمادي يتم المطلوب حسب ما شرحت في الاول مع تقدير

اليك نموذج للاخت الفاضلة ( زهرة ) - ( ام عهود ) خذت من منتدى فريق العربي للبرمجة حين يفتح النموذج راح يغير ريسوليشن الشاشة وحين تغلق الفور راح يرجع الى المسبق واذا احتجت بشيء اضافي وافينا لعل نكدر نساعدك اكثر مع تقدير za-ChangeResolution-UP.rar

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

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

استخدم نموذج بخاصية مجموع شوف الصورة db (5).rar

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

اخي الكريم بس لكي يتم الفكر اليك عملت هذا اتمنى ان يوصل لك المفهوم واذا ما فهمت مني ارجع الى طريقتك السابقة لانه ذاك الطريقة راح يفيدك اكثر لانك تعرف كيف تشتغل مع ذاك الطريقة مع تقدير New_Family.rar

اتفضل انا معك

من زمان كان اريد اقولك اشرح لي الموضوع كامل لكن قلت لنفسي احتمال بيكون صعب عليك ان تفهمني لان انا ضعيف في اللغة العربية شوية

هناك تقدر تفرق بينهم اي يعني تكدر تنقسم الجدول الى جدولين او اذا تريد بيكون هكذ تكدر تغمل نموذج واحد لادخال البيانات وبيكون كل الحقلو مخفية عدى الرئيسي اللي مشتركة بين كل الاسرة و في البداية حين تعمل سجل جديد تختار بواسطة كومبوبوكس من اي نوع من الاسرة هذا وحين تختار الاسرة بيظهر كل الحقول المتعلة بذلك الاسرة لادخال ابيانات ارجوا ان يوصل لك المفهوم مع تقدير

عندك خمسين حقل في جدول هل انت فعلا تحتاج لكل حقول ؟ اذا نعم اعمل نموذج عليه لادخال البيانات