ابوصلاح

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

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

لا اسف جدا كنت فاكر انك عملت كود ولم اري القيمة الافتراضية 

1. لكن بالنسبة لحجز متغير ووضعه في استعلام التحديث حيث ان الامر ممكن يكون قيمة معينة اريد ان اخذها من حقل معين واضعها في استعلام التحديث الامر دا في الماكرو سهل انك تحجز متغير من نوع [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