ابوبسمله

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

السلام عليكم ورحمه الله وبركاته اخى الفاضل @hussambr اولا قم بتعديل كلمه الله فى مشاركتك ثانيا عن اى برنامج تتحدث كما هو موضوح بعنوان الموضوع فلا يوجد برنامج ولا اى مرفقات بالموضوع لعلك نسيت ارفاقه او المرفق حجمه كبير ولم تنتبه لعدم اضافته فان كان المرفق حجمه كبير اضغطه بالوينرار وارفقه وان لم يتم رفعه قم برفعه على اى موقع رفع خارجى وضع الرابط لتحميله بالتوفيق

وعليكم السلام ورحمه الله وبركاته لم استطع تشغيل التقرير لعدم وجود مصدر بيانات التقرير

نعم اخوك وابنكم الصغير ( 39 سنه قال ايه صغير 😀 ) وطالب علم اتعلم منكم ومعكم ومن اخوانى واساتذتى جزاهم الله عنا كل خير تقبل تحيات اخوك وابنكم الصغير احمد

السلام عليكم ورحمه الله وبركاته جزاك الله خيرا اخى ومعلمى وشيخنا الجليل على هذه الهديه 💐 واسمح لى بتعديل بسيط ليستطيع اخواننا بالتجربه قمت باضافه نموذج اخر للسماح لهم باضافه التواريخ واضافه يومان لتاريخ النهايه واستعمال الماكرو لفتح نموذج التسجيل فى حاله كان الجدول فارغ تقبل تحياتى ومرورى تشفير_1.accdb

اخى عمر بل يمكن استخدامهم داخل الاستعلام ايضا ولكن غير مستحب وذلك لما تسببه من بطىء شديد فى حاله كثره السجلات واليكم رابط لاخى جعفر جزاه الله عنا كل خير وربنا يشفيه ويرجعلنا بالسلامه ان شاء الله ( يشير بعدم استخدامهم بالاستعلام ) واليك المثال لاستخدامها فى الاستعلام وبالتاكيد فهو ليس بحاجه لها كما ذكرت انت واخى قاسم ويكفى استعلام تجميع بالتوفيق vacations_1.accdb

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

وفيك بارك الله معلش سامحنى الصوره دى من اى مثال ؟

السلام عليكم الكود كله صار بالاحمر لانك لم تضعه بين علامتى التنصيص وقبلهم جمله تشغيل الكود فى محرر الاكواد ولانى وضعته لك لتقوم بنسخه ووضعه باستعلام عادى وتشغيله بعد تنفيذ الخطوه السابقه التى ذكرتها لك واليك المثال قم بتشغيل الاستعلام qryInsert لن يتم ترحيل اى سجلات قم باضافه سجلات فالجدول stages ثم قم بتشغيل الاستعلام سيتم السجلات الجديده فقط بالنسبه للنموذج Operations_On_Result لم يتم ذكره ببدايه السؤال قم انت بعمل بعمل الفلتر على استعلام الالحاق وفق المعايير المناسبه لك بالتوفيق استعلام الحاق بشروط دون تكرار_1.accdb

السلام عليكم ورحمه الله وبركاته مشاركه مع اخوانى واساتذتى جزاهم الله عنى كل خير فى مثال اخى ومعلمى وشيخنا الجليل @ابوخليل قم بازاله العلاقه ما بين جدول Obtained_Basic وجدول Students ثم قم باضافتها مره اخرى اذا شئت او استخدم INSERT INTO Obtained_Basic ( File_No_B, Academic_Year_B, Class_B, Classroom_B ) SELECT stages.File_No_S, stages.Academic_Year_S, stages.Class_S, stages.Classroom_S FROM stages WHERE ((([File_No_s] & [Academic_Year_s] & [Class_s] & [Classroom_s]) Not In (SELECT [File_No_B] & [Academic_Year_B] & [Class_B] & [Classroom_B] FROM Obtained_Basic ;))); بالتوفيق

وعليكم السلام ورحمه الله وبركاته اتفضل اخى @husseinharby Private Sub Command2_Click() 'للسماح بالتعديل Me.Table1_subform.Form.AllowEdits = True End Sub Private Sub Command3_Click() 'لقفل التعديل Me.Table1_subform.Form.AllowEdits = False End Sub بالتوفيق New_1.accdb

اتفضل اخى Private Sub cmdPrint_Click() DoCmd.SetWarnings False If Len(Me.f_Print & "") = 0 Then DoCmd.RunSQL "UPDATE TABLE2 SET TABLE2.[First printing date] = Date(), TABLE2.[number of print] = '1' " & _ "WHERE (((TABLE2.[School year])='" & Me.SS & "') AND ((TABLE2.ID2)=[Forms]![F-TABLE1]![ID]));" Else DoCmd.RunSQL "UPDATE TABLE2 SET TABLE2.[The date of the last print] = Date(), TABLE2.[number of print] = Val(nz([number of print],0))+1 " & _ "WHERE (((TABLE2.[School year])='" & Me.SS & "') AND ((TABLE2.ID2)=[Forms]![F-TABLE1]![ID]));" End If DoCmd.SetWarnings True DoCmd.OpenReport "Q-TABLE1", acViewPreview, , "[School year] ='" & Me.SS & "'" End Sub Database (naser)_2.accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير بالنسبه للمشكله لم اصل اليها ولم تصادفنى فماذا فعلت حتى ظهرت لك ؟ بالنسبه للثانيه نسيت نقل كود فتح التقرير بعدما غيرت اسم الزر Private Sub cmdPrint_Click() If Len(Me.f_Print & "") = 0 Then DoCmd.RunSQL "UPDATE TABLE2 SET TABLE2.[First printing date] = Date(), TABLE2.[number of print] = '1' " & _ "WHERE (((TABLE2.[School year])='" & Me.SS & "') AND ((TABLE2.ID2)=[Forms]![F-TABLE1]![ID]));" Else DoCmd.RunSQL "UPDATE TABLE2 SET TABLE2.[The date of the last print] = Date(), TABLE2.[number of print] = Val([number of print])+1 " & _ "WHERE (((TABLE2.[School year])='" & Me.SS & "') AND ((TABLE2.ID2)=[Forms]![F-TABLE1]![ID]));" End If DoCmd.OpenReport "Q-TABLE1", acViewPreview, , "[School year] ='" & Me.SS & "'" End Sub

وفيك بارك الله اخى كانورى واجرك ان شاء الله ، الله آمين ووالديك

وعليكم السلام ورحمه الله وبركاته اتفضل على قدر فهمى للسؤال اخى @AboBahaa ان شاء الله يكون ما تريد Private Sub cmdPrint_Click() If Len(Me.f_Print & "") = 0 Then DoCmd.RunSQL "UPDATE TABLE2 SET TABLE2.[First printing date] = Date(), TABLE2.[number of print] = '1' " & _ "WHERE (((TABLE2.[School year])='" & Me.SS & "') AND ((TABLE2.ID2)=[Forms]![F-TABLE1]![ID]));" Else DoCmd.RunSQL "UPDATE TABLE2 SET TABLE2.[The date of the last print] = Date(), TABLE2.[number of print] = Val([number of print])+1 " & _ "WHERE (((TABLE2.[School year])='" & Me.SS & "') AND ((TABLE2.ID2)=[Forms]![F-TABLE1]![ID]));" End If End Sub Database (naser)_1.accdb

السلام عليكم مشاركه مع اخوتى واساتذتى جزاهم الله عنى كل خير ع ما اعتقد بان اخى @kanory بقصد الموضوع التالى بالتوفيق

الف مبروك اخى @Moosak تستاهل كل خير وربنا يعينك ع خدمه اخوانك والعطاء المستمر

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

احسنت اخى ومعلمعى العزيز خالد وجزاك الله عنا كل خير تحياتى لكم اخوانى ومعلمينى الافاضل واسال الله لكم العفو والعافيه فى الدنيا والاخره

عقدنى انا كمان ونسانى وضع المرفق 😀

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

الف سلامه عليك اخى ومعلمى العزيز جعفر شفاك الله وعافاك ربنا ينعم عليك بالصحه والعافيه 💐 كان لديك خطا فى اسم الاستعلام لجرجس الصحيح G_RASED بدل من GRASED وطالما نموذج الباسورد مفتوح مخفى فاخدت القيمه مباشره منه If Forms!password!un = "مريم" Then Me.Code_snf.RowSource = "RASED" Else 'If Forms!password!un = "" Then Me.Code_snf.RowSource = "G_RASED" End If بالتوفيق

تسلم اخى ومعلمى العزيز خالد 💐 لا املك هذا الاصدار للتجربه وجهاز بطىء ولكن يفى بالغرض الى الان والحمد لله تحياتى اخى ومعلمى العزيز

الف مبروك اخى @Ahmed_J واعانك الله ع طلبات اخوانك

لا يوجد اسف بين الاخوان اخى ابوالبشر وانت اخ عزيز علينا وفيك بارك الله اخى هل شاهدت الفيديو ؟ واياكم اخى وشغال معايا تمام معلمنا العزيز جعفر وجزاك الله عنا كل خير اخى ومعلمى 💐 ولكن اصل السؤال لاخى ابوالبشر 👇 فهل قام احد الاخوه بتجربه المثال لان المثال لم يعمل مع اخى ابو البشر ولا اعلم اين المشكله