أبوبسمله

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

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

هل يظهر لديك هذا الشريط الاصفر مثل فالصوره ان كان نعم فقم بعمل تمكين المحتوى وقم بتجربه الملف سوف يعمل معك ان شاء الله بالتوفيق

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

السلام عليكم اخى ابو احمد لم ارى احد يستخدم هذا الاسلوب 👇 الا شخص واحد ، اخ لنا هنا وتركنا بعض الوقت فهل انت هو فان كنت فاهلا ومرحبا بك مره اخرى اخى تقبل تحياتى اخوك احمد

السلام عليكم ورحمه الله وبركاته مشاركه مع اخى واستاذى ومهندسنا العزيز قاسم @Eng.Qassim جزاه الله عنا كل خير اخى الفاضل @qathi ركز معى فالخطوات لكى تتعلم قم بانشاء استعلام مبنى على الجدول InvoiceTT وادرج الحقول التى تريدها وضرورى يكون به الحقل رقم الفاتوره InvoiceNum ثم فى المعيار ضع المعيار التالى وهو رقم الفاتوره بنموذج المرتجعات [Forms]![InvoiceReF]![Num] ثم قم بانشاء استعلام الحاق مبنى على هذا الاستعلام وقم بادراج الحقول ثم فى حقل رقم الفاتوره InvoiceNum ضع رقم فاتوره المرتجعات Expr1: [Forms]![InvoiceReF]![InvoiceNum] ثم فى حقل Movement ضع Expr2: [Forms]![InvoiceReF]![Movement] ثم فى زر الحفظ ضع كود تشغيل الاستعلام Private Sub Save_Click() On Error Resume Next DoCmd.RunCommand acCmdSaveRecord DoCmd.SetWarnings 0 DoCmd.OpenQuery "qryInsert" 'DoCmd.OpenQuery "qryInsert_1" DoCmd.SetWarnings -1 Me.Refresh End Sub ثم افتح النموذج وادخل رقم الفاتوره المراد عمل مرتجع لها واضغط زر الحفظ ويمكنك الاختصار بعمل استعلام الحاق فقط كالتالى واليك المرفق بعد التعديل بالتوفيق اخى InvoiceSale_10-1_1.accdb

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

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

السلام عليكم ورحمه الله وبركاته اخى الفاضل @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 تستاهل كل خير وربنا يعينك ع خدمه اخوانك والعطاء المستمر

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