سامي الحداد

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

تفضل اخي الكريم هذا الكود بالنسبة للنقطة الثالثة. Private Sub المؤهل_العلمي_AfterUpdate() Dim MainForm As Form Set MainForm = Forms("الاسم") If Nz(MainForm!الاسم.Value, "") = "" Then MsgBox "يرجى ملىء حقل الاسم في النموذج الرئيسي قبل إضافة قيمة في مربع المؤهل العلمي", vbInformation, "تنبيه" Me.المؤهل_العلمي.Undo MainForm!الاسم.SetFocus End If End Sub اما بالنسبة للنقطة الرابعة الاستعلام رقم 1 موجود لديك وهو يلبي طلبك ولديك ايضا الفورم ومصدره هو الاستعلام رقم1 فقط ضعه في القورم الرئيسي وسيؤدي المطلوب بالتوفيق

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

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

وعليكم السلام ورحمة الله تعالى وبركاته استاذي الكريم @ابو جودي هل هو المطلوب ؟ Get Value Combo Box Multi Select.accdb

تفضل اخي الكريم جرب الان هذا التعديل الكنترول المدرسى.mdb

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

اعتذر اخي الكريم لقد وضعت مثالا غير صحيح اليك الملف الكنترول المدرسى.mdb

تفضل اخي الكريم هل هو المطلوب الكنترول المدرسى.mdb

أخي الكريم من الخطاء جعل حقل رقم الموظف ترقيم تلقائي لانك ستواجه مشاكل كثيرة في ال TempVars من خلال ال Dlookup. اليك هذا التعديل في اكواد المودولات Emp_Var و Module2 ' Emp_Var Module Option Compare Database Option Explicit Public Sub EmpNameVar() Dim EmpNameTemp As Variant If Not IsNull([TempVars]![EmpIdTemp]) And [TempVars]![EmpIdTemp] <> "" Then Dim empId As Long empId = CLng([TempVars]![EmpIdTemp]) EmpNameTemp = DLookup("[emp_name]", "[tblName]", "[emp_code]=" & empId) TempVars.Add "EmpNameTemp", EmpNameTemp End If End Sub Public Function Totalcountt() As Integer Dim x As Integer x = DCount("[emp_code]", "tblName", "[job_Status]=1") Totalcountt = x End Function ' Module2 Option Compare Database Option Explicit Function TotalVac() Dim db As DAO.Database Dim rs As DAO.Recordset Dim rs1 As DAO.Recordset Dim rs2 As DAO.Recordset Dim CountRecord As Integer Dim i, s As Integer Set db = CurrentDb If Not IsNull([TempVars]![EmpIdTemp]) Then Dim empId As String empId = "'" & CStr([TempVars]![EmpIdTemp]) & "'" Set rs = db.OpenRecordset("SELECT * FROM tblVacation WHERE (((tblVacation.EmpCode) = " & empId & " AND (tblVacation.VacationLife) = 'سارية')) ORDER BY vacationstartdate Asc;") Set rs1 = db.OpenRecordset("SELECT * FROM tblVacation WHERE (((tblVacation.EmpCode) = " & empId & " AND (tblVacation.VacationLife) = 'سارية')) ORDER BY vacationstartdate Asc;") On Error Resume Next db.TableDefs.Delete "vac" On Error GoTo 0 Dim strSQL As String strSQL = "SELECT * INTO vac FROM tblVacation " & _ "WHERE (((tblVacation.EmpCode) = " & empId & " AND (tblVacation.VacationLife) = 'سارية')) " & _ "ORDER BY vacationstartdate ASC;" db.Execute strSQL rs.Close Set rs = Nothing rs1.Close Set rs1 = Nothing Else ' (يمكنك إظهار رسالة أو تنفيذ أي إجراء آخر حسب الحاجة) End If Set db = Nothing End Function تأخرت عليك بالرد لان الوقت عندي متقدم بستة ساعات عن وقت الدول العربية. بالتوفيق الكل.rar

سبب الخطاء هو وجود الجدول Vac مسبقا هل هذا صحيح؟ اذا اليك هذا التغير في الكود. او ارفق ملفك للنظر اين المشكلة. Dim strSQL As String Dim empId As Long Dim db As DAO.Database Dim rsVacation As DAO.Recordset Dim qdf As DAO.QueryDef empId = [TempVars]![EmpIdTemp] strSQL = "SELECT * FROM tblVacation " & _ "WHERE (((tblVacation.emp_code) = " & empId & " AND (tblVacation.VacationLife) = 'سارية')) " & _ "ORDER BY vacationstartdate ASC;" Set db = CurrentDb Set qdf = db.CreateQueryDef("", strSQL) Set rsVacation = qdf.OpenRecordset() rsVacation.Close Set rsVacation = Nothing Set qdf = Nothing Set db = Nothing

جرب هذا Dim strSQL As String Dim empId As Long empId = [TempVars]![EmpIdTemp] strSQL = "CREATE TABLE vac AS " & _ "SELECT * FROM tblVacation " & _ "WHERE (((tblVacation.emp_code) = " & empId & " AND (tblVacation.VacationLife) = 'سارية')) " & _ "ORDER BY vacationstartdate ASC;"

السلام عليكم حسب ما فهمت جرب AVGS24: Round(Avg(IIf([S24] <> 6, [S24], Null)), 0)

ماشاءالله قمة الابداع .

السلام عليكم لكم جزيل الشكر اخواني الكرام @شايب @عبدالجيد @د.كاف يار على تجربتكم للملف. الاخ @seddiki_adz ابحث بالمنتدى عن اعدادات اللغة في المنتدى وستجد الكثير من المواضيع وكيفية حل المشكلة لديك. بالتوفيق

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

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

أخي الكريم تفضل التعديل هل هو المطلوب ؟ الملف تم تجربته على الاوفيس 2021 وحاليا لا املك غير هذه النسخة . نعم أستاذي شايب كلامك صجيج ولكن هذا ما فهمته من طلب الاخ السائل. حاليا الوقت عندي متأخر الساعة23:30 مساءا غدا سوف اغير الكود ان شاءالله. bdd2.accdb

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

هل ممكن ترجمة نص الرسالة للعربي

جرب هذا الملف الان bdd2003.mdb

ما هي نسخة الاوفيس لديك هل هي 2016 او اقدم؟

السلام عليكم تفضل أخي الكريم حسب ما فهمت من طلبك لقد غيرت اسماء الحقول من العربي الى الانكيزي وذلك لصعوبة عمل الاكواد باللغة العربية. Option Compare Database Option Explicit Private Sub cboName_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Name_Surname] = '" & Me![cboName] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark cboLevel = "" cboSubject = "" cboRegiment = "" End Sub Private Sub cboLevel_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Level] = '" & Me![cboLevel] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark cboName = "" cboSubject = "" cboRegiment = "" End Sub Private Sub cboRegiment_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Regiment] = '" & Me![cboRegiment] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark cboName = "" cboSubject = "" cboLevel = "" End Sub Private Sub cboSubject_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Subject] = '" & Me![cboSubject] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark cboName = "" cboRegiment = "" cboLevel = "" End Sub وهذا الملف بعد التعديل بالتوفيق bdd2.accdb

السلام عليكم اليك التعديل هل هو المطلوب ؟ S&M_22.rar

اخي الكريم طلبك الاول كان هذا ثم طلبت ثم غيرت طلبك الى هذا لاحظ اخي طريقة طرحك للسؤال تختلف في كل مرة على العموم اذا اردت ان تغير الى هذه الطريقة فعليك تغير اشياء كثيرة واعادة بناء لقد عملت لك مربعين تحرير وسرد الاول Grade والثانني Subject انظر للطريقة المتبعة وحاول ان تكمل . إذا كان هذا طلبك كما قلت لك عليك بتغير اشياء كثيره . بالتوفيق t-times.accdb