ابوخليل

جزاك الله خيرا

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

تمت الاضافة الى المكتبة : تقارير / ابداعات / الآنسي2

اعدادات اللغة في وندز / لوحة التحكم / اعدادات اقليمية / ستجد اللغة والارقام والتاريخ ... واعدات اللغة في اكسس / شريط الادوات العلوي / ادوات / خيارات

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

لا نملك لك الا الدعاء احسن الله اليك جزاء احسانك

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

ضع مثالك مكتملا لتطبيق الفكرة

انظر الى هذا المثال عملته بالامس لاحد الاخوة آمل ان تجد فيه ما يفيدك تصدير الى وورد.rar

سلمت أناملك إذا هذه الخاصية AbsolutePosition تعطي رقم السجل الحالي ( يعني :أول سجل رقمه 1)

يا سلام عليك شيء جميل حقا وانما استوقفني هذا السطر وهذا اللفظ اطويل الذي بداخله ، 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 المعلومة هذه غير دقيقة فبمجرد التغيير من الخيارات تتغير الحاشية السفلية للاحاطة ،،