ابوصلاح

الشكر كل الشكر للاستاذ او عارف علي ما بذله من وقت وتعب هذا المطلوب بالضبط بس لو سمح الوقت شرح الكود وشكرا لك ثانية Option Compare Database Private Sub أمر30_Click() Dim DB As DAO.Database Dim rst As Recordset Set DB = CurrentDb Dim OldClass As String Dim NewClass As String Set rst = DB.OpenRecordset("select * from tbl_studen where keed='منقول' And Yes_No=true ORDER BY id_stu") rst.MoveLast rst.MoveFirst Do Until rst.EOF OldClass = rst!saf Select Case OldClass Case "الأول" NewClass = "الثاني" Case "الثاني" NewClass = "الثالث" Case "الثالث" NewClass = "الرابع" Case "الرابع" NewClass = "الخامس" Case "الخامس" NewClass = "السادس" Case "السادس" NewClass = "السابع" End Select rst.Edit rst!saf = NewClass rst.Update rst.MoveNext Loop Set DB = Nothing Set rst = Nothing Form.Requery End Sub Private Sub أمر31_Click() Dim DB As DAO.Database Dim rst As Recordset Set DB = CurrentDb Set rst = DB.OpenRecordset("select * from tbl_studen where saf='" & cbo_saf & "'") rst.MoveFirst Do Until rst.EOF rst.Edit rst!yes_no = True rst.Update rst.MoveNext Loop Set DB = Nothing Set rst = Nothing Form.Requery

Dim f As Boolean Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount f = rst!done For i = 1 To RC rst.Edit rst!done = Not f rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing End Sub ممكن شرح الكود وخصوصا DAo.recordset ret.movelast:restmovefirst

ارفق الملف حتي تسطيع المساعدة من الاعضاء

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

شكرا استاذي AlwaZeeR هو المطلوب بارك الله فيك

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

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

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

السؤال كده عايم علشان تجد من يساعدك ارفق ملف العمل او الجزء الخاص بالذي تريده

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

ارجو عمل استعلام تحديث الصف في نموذج studen بشرط (القيد=ناجح ومنقول) الاول يحدث الي الثاني والثاني الي الثالث والثالث الي الرابع والرابع الى الخامس الخ ولكم جزيل الشكر استعلام تحديث الصف الدراسي.rar

لا اسف جدا كنت فاكر انك عملت كود ولم اري القيمة الافتراضية لكن بالنسبة لحجز متغير ووضعه في استعلام التحديث حيث ان الامر ممكن يكون قيمة معينة اريد ان اخذها من حقل معين واضعها في استعلام التحديث الامر دا في الماكرو سهل انك تحجز متغير من نوع [TempVars] في الماكرو وبعدها في استعلام التحديث ياخذ نفس القيمة ويحدثا في الجدول الكلام سهل كيف يتم ذلك في محرر الاكواد vba

الاستاذ Essam Rabea شكرا لسرعة الاستجابة هو صحيح لكن اين الكود البرنامج يعمل اسف استاذنا essam rabea وجده في القيمة الافتراضية

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

استاذي الفاضل بن علية حاجي شكرا جزيلا بارك الله فيك هو المطلوب

في الملف اريدكود معاينة طباعة افقيا وراسيا في نفس الورقة بمهنى تكون الورقة الاولى افقية والثانية راسية طباعة افقيا وراسيا.rar

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

صحيح شكرا

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

انا اريد عرض الاستعلام في نموذج بحيث يظهر كل الاسماء والسلع والمبلغ

عندما اقوم باستعلام يكرر البيانات لكل سجل مرتان منع التكرار.rar

في المرفق هذا في نموذج بيانات التلميذ ترقيم تلقائي لكن المشكلة انه عند الانتقال الي صف جديد يكون الترقيم ليس من البدايه 1 2 3 بل يستكمل الترقيم مثلا الصف الاول اخره يكون 87 عند الانتقال للصف الثاني لا ياتي بالتسلسل من بدايته ترقيم النموذج.rar

انا وجدت طريقة طويلة شويه بس ادت الغرض 2كسر القرش.rar

اولا شاكر جدا لكن الدالة تجبر الكسر كامل وليس هو المطلوب بل جبر الكسر الي صفر لوكان 94 تصبح 90 ولو كان 97 تصبح 95

دالة كسر القرش لا تعطي نتائج صحيحة في بعض الاحيان كسر القرش.rar