ابوخليل

يا سلام عليك شيء جميل حقا وانما استوقفني هذا السطر وهذا اللفظ اطويل الذي بداخله ، If rs.AbsolutePosition = rs.BOF Then وأيضا عبارتي BOF و EOF يعني بصريح العبارة نريد من فيض علمك كما عودنتا شرح لهذه الوحدة النمطية Public Function Horizontal(tabelle As String, Feld1 As String, Feld2 As String, valFeld1) Dim DB As Database, rs As Recordset Set DB = CurrentDb Set rs = DB.OpenRecordset("select distinct " & Feld2 & " from " & tabelle _ & " where " & Feld1 & "='" & valFeld1 & "' order by " & Feld2) Do If rs.AbsolutePosition = rs.BOF Then Horizontal = rs(Feld2) Else Horizontal = Horizontal & ", " & rs(Feld2) End If rs.MoveNext Loop Until rs.EOF rs.Close DB.Close Set rs = Nothing Set DB = Nothing End Function تكرما وتفضلا وبقدر ما يسمح به وقتك وتقبل تحياتي

جزاكم الله خيرا رفع للفائدة

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

لكن النتيجة صحيحة صحيح ان عملت بالمثل القائل : وين اذنك يا حبشي يعني قفزت الترتيب فلو رأيت الكود لعلمت أني انقصت ماقبله من الرصيد النهائي وعلى كل حال الخطأ أمكن تصليحة فانظر النتيجة الآن الاستاذ القدير نارت : نحن ننتظر ، وليس بنا غنى عن تقييمكم حسابات4.rar

أستاذنا نارت : انت تعشق الليل انظر هذه محاولتي افتح التقرير مباشرة فقد تم التصرف في ارقام المبالغ حتى تتضح الرؤية حسابات2.rar

ولا أتم ولا أكمل .... فقد جمعت الاثنتين جزاك الله خير الجزاء وأسعدك في الدارين

أو هكذا : اذا اردنا تغيير لغة أرقام الحاشية السفلية بأخرى مغايرة للغة أرقام الحاشية في المتن فإنه لا يمكننا ذلك الا ... لان الفكرة لتوضيح عمل تنسيقين مختلفين

اين اجد هذا الزر في 2003

قولك : "لايتم إلاّ في المربع الحواري" يتبادر الى الفهم الحصر وكان ردي السابق حول هذا الفهم أماان كان قصدك جعل ارقام المتن بتنسيق والحاشية بتنسيق آخر فهذا شيء جديد لم اتطرق له من قبل

نعم ومع الارتباط

اخي نارت لبزو شملك الله بلطفه وعنايته رأي أرى من المناسب طرحه وهو يتعلق بمسألة البحث المستقبلية . فقد توافقني الرأي ان غالب الناس لا يقرأون طلبا للعلم والتثقيف وهذا يندرج على العلوم العامة فما بالك بالعلوم الخاصة ، ولكنهم عند الاحتياج يبحثون . وانت رعاك الله فيما يظهر جبلت على تتبع الاصول والترتيب والدقة . وعملك هذا سيكون مجموعة تحتوي على افكار وتلميحات متنوعة كما اسميته وسيكون من بحور شتى . وأخشى ما أخشاه أن تقبع هذه المجموعة مستقبلا في ركن قصي من هذا المنتدى . فالرأي الذي أريد أن أطرحه الأخذ بأحد أمرين : إما توحيد الطرح في هذا الباب بأن يكون العنوان : تطبيقات وأفكار وتلميحات 1 ( النماذج ) تطبيقات وأفكار وتلميحات 2 ( التقارير ) وهكذا وهذه لا شك يصعب تطبيقها لان المسألة انتقاء أو هي كقريحة الشاعر ان صح التعبير الامر الثاني وهو الاقرب والاسهل للتنفيذ هو عمل فهرسة مسبقة للموضوع الذي ستطرحه ولأنك في أول الطريق ويكون في الصفحة الأولى ( اي قبل ان تكتب فكرة جديدة تكتب لها عنوانا في الصفحة الأولى) ولا شك مع الوقت سنرى النتيجة وأيضا في حال التوقف سيكون العمل مكتملا هو رأي وأنت أهل الرأي

ومع عدم ردك رعاك الله في هذه وفي مشاركة سابقة الا انه مراعاة للمصلحة لزاما علينا اكمال الموضوع E_Control2.rar

معيار الرقم السري لا يقرأه الاستعلام لماذا لا تكتفي بمعيار المرحلة الذي هو الاسم فهو يقوم بالمطلوب

تفضل : وكما ذكر مشرفنا العزيز التقارير ليست كالنماذج في الخصائص 2.rar

حسب الوورد 2003 المعلومة هذه غير دقيقة فبمجرد التغيير من الخيارات تتغير الحاشية السفلية للاحاطة ،،

غيره من البرامج .. مثل ماذا ؟ فلا يقارن بالرسام مع صغر الرسام وقلة امكانياته

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

جميل ،،، جملك الله بالايمان قمت بتطبيق ما تفضلت به في التلميح الثاني ولكنه لا ينفذ الوحدة النمطية ويخرج خطأ ، وعندما استبدلتها بأخرى نفذت وعملت على أتم وجه ، وعند قارنتهما لم اجد فرقا ، وأنا الآن اطرحهما لك لتجري عليهما فحصا وتشخص المشكلة هذه عملت Function Tmp() Dim DB As Database Dim P As Property Set DB = DBEngine(0)(0) Set P = DB.CreateProperty("Copyright Notice", DB_TEXT, "(C) JT Software 1995") DB.Properties.Append P End Function وهذه لم تعمل Function copyright() Dim DB As Database Dim P As Property Set DB = DBEngine(0)(0) Set P = DB.CreateProperty("Copyright Notice", DB_TEXT, " © Nart Lebzo Software ") & Year(Now) DB.Properties.Append P End Function

جميل ما قدمت استاذ منتصر جزاك الله خيرا وقد قمت بالتعديل على مثال الاخ السائل وهو يريد مجاميع دائن ومدين ومتبقي وهو مع ذلك يريد ما قبله والحالي والتراكمي الاخ almensi افتح التقرير من النموذج ، حيث ستظهر بيانات العقار الموجود في النموذج الحسابات2.rar

هل اطلعت على هذا ؟ http://www.officena.net/ib/index.php?showtopic=34271

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

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

النماذج السابقة لا يمكنك تعديلها الا يدويا اما ما تقوم بانشائه الآن فيكون تبعا للاتجاه الافتراضي المعدل

التنسيقات التي يقوم M.Word بالبحث عنها واستبدالها للخط فقط اكثر من 30 خاصية وتجد هذه الخصائص كلها في مربع حوار "البحث عن خط" وقس على ذلك غيره كالفقرات والاطارات والأنماط وغيرها .

جزاك الله خيرا على هذا الطرح المتواصل ، حقا هي ثمار يانعة