Shivan Rekany

اللهمّ اجعلها ممن تواضع لك فرفعته، واستكان لهيبتك فأحببته، وتقرّب إليك فقرّبته، وسألك فأجبته.

استخدم هذا الكود عند فتح التقرير Private Sub Report_Load() Dim ctl As Control For Each ctl In Report.Controls If ctl.ControlType = acTextBox Then If IsNull(ctl) Then ctl.Visible = False Else ctl.Visible = True End If End If Next ctl End Sub ووافينا بالنتيجة

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

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

السلام عليكم ورحمه‌ الله وبركاته اولا هذا هو الكود اللي اضفت الى قاعدة بياناتك On Error GoTo g: Dim i As Integer Dim x As Date Dim N As Integer DoCmd.GoToRecord , , acNewRec x = Forms![test1]![Date_M] For i = Forms![test1]![no1] To Forms![test1]![no] 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 ثانيا هذا خطأ لان ME.NO = N + 1 اي يعني N = اكبر رقم لحقل اي دي NO في استعلام Q1 بشرط ان يكون رقم اي دي في الاستعلام بيكون يساوي اي دي في نموذج رئيسي Dim N As Integer ' ئين هو متغير بنوع رقمي N = DMax("[NO]", "Q1", "[ID]=" & Forms![test1]![id1]) والاستعلام Q1 هو مصدر نموژج فرعي وحين قلنا ME.NO = N + 1 اي يعني اي رقم في استعلام اي يعني في نموذج الفرعي هو اكبر خلي بيزيد 1 وشوف الترتيب الكود لانه هو مهم ثالثا اي يعني اذا صار مشكلة شو بيعمل بيروح الى g وما هو g g: Exit Sub اي يعني خروج من العمليه‌ كما قلت مسبقا هو متغير رقمي باسم ئين

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

هل انت متأكد شوف هذا الفيديو كيف يزيد 2017-01-17_17-14-18.rar

جرب هل هذا هو المطلوب test4.rar

اذا تتذكر من قبل كان قلت لي اريد ان يبدأ بالرقم اللي انا اكتبه في تسلسل الاول ؟ هل تتذكر لذا اي رقم تكتبه في الاول راح يبدأ من ذاك الرقم واذا كتبت رقم صفر لتسلسل الاول راح يبدأ من صفر واذا كتبت رقم واحد في التسلسل الاول راح يبدأ من رقم 1 لكن العلاج بسيطة اذا تريد ان يبدأ من رقم التالي اي اذا تكتب رقم صفر وتريد ان يبدأ من رقم 1 افتح محرر فيجوال اللي بها اكواد واحذف ناقص 1 H + A - 1

ما فهمت قصدك ممكن تنطي مثال حي اي يعني توضيح وين المشكلة

اتفضل اتمنى هذا بيكون اللي تريد db6.rar

السلام عليكم ورحمه‌ الله وبركاته اخي الكريم اظن ما فهمت من قصدي اعمل جدول بها بيانات اللي مطلوبة و اذا عندك مثلا حقل باسم " اسم العانس و الاخر بيكون اسم الايتام ) خليها حقل واحد للاسم فقط وكما قلنا مسبقا اضف حقل مثلا للملاحظة لكي تكتب فيها عانس او فقراء او ايتام او الخ ... و تعمل على ذاك الجدول نموذج لادخال البيانات للفقراء والايتام والعانسين والخ .. وحسب شغلك هل راح تحتاج لاي معلومات بعدين تكدر بواسطة ذاك الجدول ان تأخذ البانات لمن تريد اتمنى ان تفهم مني واسف على عدم قدرتي لكي اوصل لك فكري وهذا بسبب قلة علمي في اللغة العربية اسف مجددا

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

رجاءا لا تشكرني على اي شي اريد بدل الشكر ان تدعوا لنا استخدمت هذا كود

اتفضل كما تريد راح يبدأ القيمة من القيمة اول سجل Test (6) (1).rar

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

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

استأذن من استاذي القدير ابو خليل كن معي اولا افتح نموذجك في وضع تصميم وغير لون الخلفية كله الى لون محدد اي لون كان تريد اضف اليه بوكس او ليبل الى اعلى النموذج و وسطه و اسفله وانطيه لون ما تريد لكل المستويات اضف اليه زر اغلاق النموذج في اعلاه او اي زر تريد وشوف احنا اضفنا بوكس الى ثلاث مستويات 1 و 2 و 3 و شوف ايظا في كل اتجاه خلينا فراغ لكي بيظهر كحدود النموذج وغيرنا RECORD LOCKS الى Edited Record او تكدر بدل هذا ان تغير خاصية منبثق الى نعم وايضا خلينا كل من البوكس اللي احنا اضفنا لكل مستويات الى الخلف لكي يظهر لنا المربعات النصية اللي في النموذج كما في الصورة وايظا غيرنا بعض خصائص نموذج كما مبينة في الصورة اللي في مربع الحمراء والنتيجة بيكون هكذا وهذا قاعدة بيانات استاذ ابو خليل مع نموذج اللي عملت عليه شرح مع تقدير إطار.rar

ممكن تتوضح ما تريد بالضبط اي يعني حين تعمل اي شي او تكتب اي شي بيظهر لك اي ؟ حاول فهمني لكي نكدر نعمل العملية

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

اخي الكريم تكدر تستخدم DLOOKUP وهو ينطيك نفس الجواب هكذا خذ هذا القاعدة بيانات خذت من موقع اجنبي بها طريقتيتن طريقة دي لوك اب وطريقة اخرى Sample2k.zip

الله يرضى عليك يا استاذ على مشاركتك الجميل

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

السلام عليكم ورحمة الله وبركاته عزيزي افتح استعلام في وضع تصميم وغير خاصية Recordset Type من Dynaset الى Dynaset (inconsistent Update) واليك قاعده‌ بياناتك بعد تعديل Database1 (2).rar Database1 (2).rar

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