رمهان

تفضل وعلى نفس طريقتك في البحث ومن خلال الاستعلام وليس باستخدام الفلترة 1. ضع هذا التعبير كعمود جديد في الاستعلام Expr2: IIf([Forms]![for17]![إطار61]=1;[fid09] Is Not Null;IIf([Forms]![for17]![إطار61]=2;[fid09] Is Null;1=1)) ثم ضع 1- كقيمة في معيار هذا العمود 2. الحدث التالي Private Sub إطار61_AfterUpdate() Me.for18.Requery End Sub بالتوفيق

تفضل اخي ماجد Private Sub إطار61_AfterUpdate() Me.for18.Form.Filter = Choose(إطار61, "fid09 is not null", "fid09 is null", "") Me.for18.Form.FilterOn = True End Sub بالتوفيق

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

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

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

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

اخينا عمر ومشاركة مع الاستاذ مارد هل هذا ماتريد؟ جرب واعطنا ملاحظتك للتعديل مع العلم انني افضل ان تكون في جدول مستقل مرتبط وبه عمودي الرقم والتواريخ ! ملاحظة : تم اضافة عمودين وذلك لمعرفة كل سجل وسجلاته المفرودة فقد تحتاجها في نماذج فرعية او تقارير! Set rs0 = CurrentDb.OpenRecordset("select distinct id from AddNwee order by id"): rs0.MoveFirst Do While Not rs0.EOF rs1 = CurrentDb.OpenRecordset("select * from AddNwee where id='" & rs0(0) & "' order by Daterr").GetRows(DCount("*", "AddNwee", "id='" & rs0(0) & "'")) DoCmd.SetWarnings False For i = LBound(rs1) To UBound(rs1, 2) On Error Resume Next xn = 1 For ii = Year(rs1(3, i)) To Year(rs1(3, i + 1)) - 1 DoCmd.RunSQL "insert into AddNwee(id,Degr,Daterr,Reasonn,i_d_p) values('" & rs1(1, i) & "','" & rs1(2, i) & "',#" & DateAdd("yyyy", xn, rs1(3, i)) & "#,'" & rs1(4, i) & "'," & rs1(0, i) & ")" xn = xn + 1 Next ii Next i rs0.MoveNext Loop DoCmd.SetWarnings True بالتوفيق db1.rar

الآن فهمت ! معليش يمكن الصيام له دور ! والآن اخي عمر وبعد اذن الاستاذ مارد : 1. هل تريد فرد السنوات في جدول مستقل مرتبط بالجدول الذي باول مشاركة !؟ ام تريده على نفس الجدول ؟! 2. كما ان هناك استفسار مهم : هل الفائدة من فرد السجلات للعرض فقط ( هنا ممكن نستخدم العنصر مربع قائمة ) ام انه سيكون هناك تعديلات عليها وباعمدة جديدة مثلا والكتابة في تلك السجلات المفرودة ! وهنا نحتاج الى فتح سجلات جديدة كما فعل الاستاذ مارد وسواء على نفس الجدول او بجدول مرتبط . 3. ممكن نشوف طريقة عمل برنامجك ! بمعنى ارفاق نموذج الادخال للترقيات ! بالتوفيق

وكل عام وانتم بخير اخي حلبي وجميع اخواننا المسلمين تفضل TreeView0.Font.Italic = True TreeView0.Font.Bold = True ويمكن تغيير الكود السابق ولنوع الخط الى TreeView0.Font.Name = "Calibri" حيث ان اسم الخط هي الخاصية الافتراضية فتم اختصارها سابقا بالتوفيق

ممكن ترفق الملف وتوضيح اكثر للمطلوب !

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

بارك الله فيه اخي عمر والحمد لله الاستاذ مارد كفى ووفى !

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

لم استوعب المطلوب تماما ! هل ممكن توضيح اكثر !

تفضل بوضع هذا الكود وسواء قبل تعبئة الشجرة او بعد TreeView0.Font = "Calibri" مع ملاحظة انه للنص الانجليش ! بالتوفيق

حياك الله اخ حلبي سؤال : هل النص عربي ام انجليش ؟ بالتوفيق

لو تلاحظ ان عرض التقرير كبير جدا ! اسحب طرف التقرير الايمن يسارا حتى تكون جميع العناصر بجانب الطرف الايسر ! ( انقاص عرض التقرير للعرض المناسب ) بالتوفيق

النموذج الفرعي مخفي اخ حسين واتوقع ان لديك المعرفة لاظهاره ! وهنا موضوع شبيه للاثراء والافادة http://www.officena.net/ib/index.php?showtopic=60445&hl= تحياتي

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

اعمل معاينة قبل الطباعة للتقارير ! لوجود الحدث عند التنسيق!

تفضل وبنسخة 2003 ! 2003العملة.rar

تفضل اخي الكريم سائلا المولى ان يتقبل منا ومنكم صالح الاعمال تنبيه : كل ما عليك في تغيير التنسيق هو الذهاب لجدول العملة ووضع التنسيق المناسب ! يمكنك معرفة التنسيقات بالذهاب للمراجع او الانترنت ! بالتوفيق العملة.rar

http://www.officena.net/ib/index.php?showtopic=59744&page=1

تفضل اخي الكريم والطريقة كالتالي : - تم انشاء جدول خاص بالعملات لاضافة تنسيق العملة - تم اضافة عمود العملة بجدول الموردين الاساسيين وياخذ العملة من جدول العملات وكقائمة منسدلة - تم اضافة مربع قائمة لعرض العملة حسب المورد الموجود مع ملاحظة شرط تطابق اسماء الموردين في الاساسي وفي جدول الفروع - تم اضافة حدث في الحالي للنموذج يغير التنسيق حسب الموجود بالقائمة هذا ويمكنك اخفاء مربع القائمة من الخصائص وبالنسبة للتقارير ارفق مثال به تقرير للتطبيق عليه وبعد محاولتك باستخدام نفس الفكرة ولكن الحدث يكون عند التنسيق للتقارير ! بالتوفيق العملة.rar

حذف كل الاسطر واكتب Me.orderno = Nz((DMax("[orderno]", "Torderno") + 1), 1) طبعا داخل الاجراء MyOutoNum() طلب : ممكن اعرف مصدر الكود السابق للترقيم ؟! بالتوفيق