محمد أبوعبدالله

تفضل اخي الكريم لم انتبه من البداية لهذه الجملة Loop.rar تحياتي

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

تفضل اخي الكريم StuSaifi.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي

يبدو انك تسحدم متغيرات كثيرة في البرنامج استبدل Integer بـ Long كما اشار استاذنا @AlwaZeeR تحياتي

تفضل اخي الكريم Private Sub Form_Open(Cancel As Integer) Dim i As Integer Dim db As DAO.Database Dim rs As DAO.Recordset Dim x As Long Set db = CurrentDb Set rs = db.OpenRecordset("Table1") x = rs!No.Value Select Case Me.MNo Case Me.MNo If x = Me.MNo Then DoCmd.OpenForm "Dashboard" DoCmd.Close acForm, "Copy" Else DoCmd.OpenForm "Copy" DoCmd.Close acForm, "Dashboard" End If Case Else End Select End Sub Loop.rar

وهذه طريقة بدالة Case Dim i As Integer Dim db As DAO.Database Dim rs As DAO.Recordset Dim x As Integer Set db = CurrentDb Set rs = db.OpenRecordset("Table1") x = rs!No.Value Select Case Me.MNo Case Me.MNo If x = Me.MNo Then DoCmd.OpenForm "Dashboard" Else DoCmd.OpenForm "Copy" End If Case Else End Select تحياتي

وهذه ايضاً طريقة بدالة Case Dim XN As String XN = Me.XLetter.Column(1) Select Case XN Case Is = "A" Me![Text7] = 1 Case Is = "B" Me![Text7] = 2 Case Is = "C" Me![Text7] = 3 Case Is = "D" Me![Text7] = 4 Case Is = "E" Me![Text7] = 5 End Select مع استكمال باقي الحروف تحياتي

تفضل اخي الكريم توجد اكثر من طريقة لفعل ذلك ارفقت لك طريقتين db1.rar تحياتي

الكود بالشكل بالتالي يعمل ان شاء الله Dim i As Integer Dim db As DAO.Database Dim rs As DAO.Recordset Dim x As Integer Set db = CurrentDb Set rs = db.OpenRecordset("Table1") x = rs!No.Value For i = 0 To 2 If x = Me.MNo Then DoCmd.OpenForm "Dashboard" ElseIf x <> Me.MNo Then DoCmd.OpenForm "Copy" End If Next i واعتقد انك لو استخدمت الكود بدون For ... Next سيكون افضل Dim i As Integer Dim db As DAO.Database Dim rs As DAO.Recordset Dim x As Integer Set db = CurrentDb Set rs = db.OpenRecordset("Table1") x = rs!No.Value If x = Me.MNo Then DoCmd.OpenForm "Dashboard" ElseIf x <> Me.MNo Then DoCmd.OpenForm "Copy" End If تحياتي المعذرة استاذتا الفاضل @خالد سيسكو لم انتبه الى ردك فارجو المعذرة ولك الشكر تحياتي

بالتوفيق اخي الكريم تحياتي

في نموذج الانذارات زر رجوع مكتوب فيه Me.Visible = False والافضل ان يقوم بعمل اغلاق للنموذج DoCmd.Close acForm, "انذار طالب" تحياتي

ارفق ملفك اخي الكريم ليتم التعديل عليه ان شاء الله تحياتي

If MsgBox("هل تريد حذف الطالب", vbYesNo, " تأكيد حذف") = vbNo Then Else strSQL = "DELETE [student].* FROM [student];" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End If

تفضل اخي الكريم TAQWEA_2.rar تحياتي

جزاك الله خيرا اخي الكريم بالتوفيق يا رب تحياتي

ذلك لان مصدر النموذج جدول student اجعل النموذج مستقل بدون مصدر وإلا ما فائدة عملية الاضافة عند طريق RS من الاصل انظر المرفق TAQWEA.rar تحياتي

يجب ان تكون الحقول التي تريد اضافتها من RS موجود ما يقابلها في الجدول تفضل اخي الكريم الملف بعد التعديل TAQWEA.rar تحياتي

تفضل اخي الكريم تم تعطيل الفاصلة نهائياً من الكود Nouveau Microsoft Access Base de données_2.rar تخياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم db5.accdb تحياتي

السلام عليكم تفضل اخي الكريم تحويل التاريخ.accdb تحياتي

السلام عليكم لانك تكرر الامر مرة عند الضغط على زر الامر اضافة ومرة اخرى عند حدث عند عدم وجود في القائمة الغي الحدث الخاص بزر الامر وسترى النتيجة تحياتي

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

بالتوفيق اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم جرب المرفق واعلمني بالنتيجة DATA_BASE.accdb تحياتي