ابوخليل

تفضل مثالك معدلا 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

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

تم دمج الموضوعين اخي محمود ... الاستاذ رضوان سبق ان قدم اعتذار لحصول ظرف طارى http://www.officena.net/ib/index.php?showtopic=58516

Docmd.RunSQL"strSql = "DELETE TPstoudnt.*, TPstoudnt.alsaf " & vbCrLf & _ "FROM TPstoudnt " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=6));"" الاخطاء : "strSql = هذه جملة زائدة تستخدم في مكان آخر " آخر علامة تنصيص مزدوجة هي ايضا زائدة اذا استبعدنا الزوائد سيصبح الكود هكذا : Docmd.RunSQL "DELETE TPstoudnt.*, TPstoudnt.alsaf " & vbCrLf & _ "FROM TPstoudnt " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=6))" ويمكن اضافة اكثر من جملة برمجية وتكون مرتبة حسب الحدث كما ذكر اخونا طالب العلم اما السطر الخاص بمنع التحذيرات فيكتفى بواحد اول الجمل مهما كان عددها ولسطر الآخر في آخرها

رسالة الخطأ طبيعية لان الحقل فارغ استخدم الدالة nz لتحويل الفراغ الى صفر لتصبح الجملة هكذا Dim i As Integer i = Len(Nz([Kwmy], 0)) If i < 14 Then

جزاك الله خيرا حاول ان تخرج بالنتيجة نفسها مع استبعاد الاستعلام والحقل المخفي استخدم متغير مثلا : Dim i As Integer i = Len([Kwmy]) If i < 14 Then