ابوخليل

حييت اخي وتفضل تم التعديل على مثالك آمل ان يحقق طلبك Mdbschool.rar

الموضوع مخالف xxxx يجب اختيار عنوان مناسب xxxxxxx يغلق

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

تفضل MO2.rar

تفضل مثالك معدلا student2.rar

تم دمج الموضوعين اخي الكريم يمكنك التعقيب على موضوعك بكتابة كلمة تفيد اعادة الطلب كــ للرفع مثلا

انظر في هذه الروابط ففيها ما تبحث عنه http://www.officena.net/ib/index.php?showtopic=41609#entry236097 http://www.officena.net/ib/index.php?showtopic=38006#entry205723 http://www.officena.net/ib/index.php?showtopic=25574#entry121193

اجعل مصدر الصف في مربع التحرير مثل مصدر الصف في حقل الجدول

شرح كيفية عمل استعلام توحيد بين الجداول http://www.officena.net/ib/index.php?showtopic=37077#entry197784 http://www.officena.net/ib/index.php?showtopic=41165#entry232314

في مثالك استخدمت كود الاستاذ يوسف تم اعادة وترتب الكود 1- اعد نسخه ولصقه مرة اخرى 2- غير ما يلزم من اسماء الحقول حسب الذي عندك

المشاركة في تنفيذ فكرة لا يلزم منه كون الفكرة صالحة للتطبيق فهنا مثلا : - هل المبرمج ملزم بتسمية العناصر داخل الفورم وفق تسمية وترتيب معين ؟ وهذه اشكالية ظاهرة - وهل كل النماذج ستشتمل على هذا العدد من الازرار ؟ لنفرض الجواب=لا - ما يدري الاداة بعمل كل عنصر ووظيفته ؟ اقصد كيف يتعامل المستخدم ( المدير ) عند منح الصلاحيات هل عليه ان يجرب ثم يذهب الى النموذج الهدف ليرى النتيجة الرؤية الصحيحة عندي : ( مثلا لو تم عرض عناصر كل نموذج بوظائفها دون الالتزام بتسميات محددة لكان هذا اقرب ) ولكن كيف ؟ شيء آخر احب ان ادرجه هنا وهو الذوق العام للنماذج فأنا كمستخدم يؤلمني ويحز في نفسي ان ارى داخل النموذج عناصر باهتة ، او ان تخرج على رسالة بعدم منحي الصلاحية المفترض ان لايتواجد في النموذج اي عنصر فوق حاجة المستخدم وجهة نظر آمل الا تحد او تثنيك عن عزمك ، فالاستشارة هي مشاركة العقل وفقك الله لكل خير

حول مثالك الى صيغة MDB فلعلك تجد تفاعلا من اخوانك اكثر

جزيت خيرا استاذ يوسف Dim rs As Recordset Dim i As Integer Set rs = Me.Recordset With rs .MoveFirst Do Until .EOF For i = 1 To Nz((Me.txtNoOfPrint), 0) DoCmd.OpenReport "rpt1", acViewNormal, , "id= " & Me.txtId Next i .MoveNext Loop End With Set rs = Nothing

تفضل : تم تنفيذ التصور officenaUP.rar

شكرا جزيلا استاذنا الحبيب يوسف واعتقدت ان السائل يريد طباعة الكل فاعددت له هذا .. مع اخذ نصيحة الاستاذ يوسف بالاعتبار Dim i, z, r As Integer Dim rs As Recordset Set rs = Me.RecordsetClone rs.MoveLast r = rs.RecordCount rs.MoveFirst For z = 1 To r Do Until i = Me.code.Value i = i + 1 DoCmd.OpenReport "report", acNormal, , "[number]=" & Me!number Loop rs.MoveNext Next rs.Close Set rs = Nothing

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

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

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

انظر هنا http://www.officena.net/ib/index.php?showtopic=44685#entry261065

الطريقة : بعد ان تعد وتعين قاعدة البيانات على التاريخ الهجري ادوات / خيارات/ اعدادات دولية / وقم بالتأشير امام استخدام التاريخ الهجري بعد ذلك الصق هذا السطر في عنصر تحكم الحقل =format(date();"yyyy/mmmm/dd")

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

الحمد لله وشكرا لعرض الحل ولكن السؤال يسبب الحيرة : كيف يتم تحديد حجم النموذج المنبثق مع طريقة العرض (نماذج مستمرة ) ليظهر جميع السجلات ليظهر جميع السجلات ؟ هذه جعلتني اقف عندها لان السائل ذكر التحديد لان افضل عرض لاظهار جميع السجلات هو ان يكون النموذج بعرض الشاشة قصدت بتعليقي هذا عموم الفائدة وهو ان كلمة واحدة في السؤال قد تغير فهم المتلقي

انظر هذه الروابط فقد تستفيد منها http://www.officena.net/ib/index.php?showtopic=24823&page=3#entry117202 http://www.officena.net/ib/index.php?showtopic=25483#entry120730

تفضل student9.rar

الحمدلله ................. يغلق ...........