أبوبسمله

السلام عليكم مشاركه مع اخى الفاضل @ابو محمد 316 جزاه الله خيرا 💐 اتفضل اخى @mrbakr ان شاء الله يكون ما تريد Private Sub Command405_Click() Dim strSql As String Dim TempQdf As QueryDef Dim db As DAO.Database Set db = CurrentDb strSql = "Select * from الموظفين" If Me.Fr_U.Form.Filter <> "" Then strSql = strSql & " WHERE " & Me.Fr_U.Form.Filter End If Set TempQdf = db.CreateQueryDef("ExportFiltered", strSql) DoCmd.OutputTo acOutputQuery, TempQdf.Name, acFormatXLSX, "", True, "", , acExportQualityPrint db.QueryDefs.Delete TempQdf.Name 'DoCmd.OutputTo acOutputQuery, "u", acFormatXLSX, "", True, "", , acExportQualityPrint End Sub بالتوفيق 123_1.accdb

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

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

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

معلمى العزيز @ابوخليل طالما سوف يتم النظر الى الشهر فيجب النظر الى الشهر والسنه معا اليس كذلك وعليه يجب تعديل السطر التالى ويتم الاستغناء عن الاستعلام qryAmountInMonth يجب ادخال التاريخ قبل المبلغ j = DSum("amount", "qryAmountInMonth", "emp_name=" & emp_name) الى j = Nz(DSum("amount", "salary", "emp_name=" & emp_name & " And Year([dated])=" & Year([dated]) & " And Month([dated])=" & Month([dated])), 0) delete2.accdb

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

اتفضل ابو اشرف ان شاء الله يكون ما تريد وتعديل عالكود Private Sub أمر36_Click() f = Me.salary_نموذج_فرعي!amount If f > Me.salary Then DoCmd.RunCommand acCmdDeleteRecord End If End Sub بالتوفيق delete2.accdb

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

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

وعليكم السلام استاذ @ازهر عبد العزيز مجرد فكره ربما تنفعك بالتوفيق qm.accdb

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

جزاك الله خيرا معلمنا العزيز جعفر 😇 راضى معلمى العزيز 😀 بارك الله لنا فيكم اخوانى واساتذتى وجزاكم الله عنا كل خير

وعليكم السلام اخى ابومحمد وفيك بارك الله ورحم الله والديك وجميع اخوانى واساتذتى جزاهم الله عنا كل خير بالنسبه لسؤالك فانت تدخل التاريخ فقط لان علامه اكبر من مكتوبه بالكود فالسطر التالى If rs("DAT") > dDate Then بالتوفيق

واياكم ولا حول ولا قوه الا بالله العلى العظيم اترك الاستعلام اللى مزعلك وقارفك ده على جنب فانما وضعته للتوضيح وكيفيه الاستدعاء كما وضحت تجربه الكود اسفل الموديول كالتالى ?updateData(5,#1/1/2010#) جرب استدعائه بالنموذج او التقرير ووافنا بالنتيجه بارك الله فيك بالتوفيق

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

السلام عليكم اخى @ابو محمد 316 مشاركه مع اخوانى واساتذتى الافاضل @ابا جودى و @ابوخليل جزاهم الله كل خير وتاكيدا على كلامهم فهم السؤال نصف الاجابه وكان يجب عليك التوضيح اكثر من البدايه اتفضل حاجه على قد حالى ربما تكون ما تريد Function updateData(num As Integer, dDate As Date) On Error GoTo HandleError Dim db As DAO.Database Dim rs As DAO.Recordset ' Dim dDate As Date ' Dim num As Integer strSQL = "SELECT Tbl1.N, Tbl1.ID, Tbl1.DAT FROM Tbl1;" Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) ' num = 4 ' dDate = #1/1/2010# If DCount("[ID]", "Tbl1") > num Then MsgBox "ÚÏÏ ÇáÓÌáÇÊ ÃßÈÑ ãä " & num Do While Not rs.NoMatch If rs("DAT") > dDate Then rs.Edit rs!id = Replace(rs!id, "111", "3") rs.Update End If rs.MoveNext Loop End If rs.Close Set rs = Nothing HandleExit: Exit Function HandleError: ' MsgBox Err.Description Resume HandleExit End Function بالتوفيق Database66.accdb

😀 دانا حتى مبعرفش اجرى اخى @obaid70 بارك الله فيك وجزاك الله خيرا واسال الله لك ولجميع اخوانى واساتذتى الجزاء الحسن وبالتاكيد هناك حلول كثيره باذن الله واخواننا واساتذتنا لا يبخلون علينا وان شاء الله نكون فهمنا صح وتعديلك ممتاز ورائع مثلك بارك الله فيك 💐 اخى عبيد اضف DoCmd.RunCommand acCmdSaveRecord للحفظ قبل التحديث Private Sub أمر20_Click() DoCmd.RunCommand acCmdSaveRecord DoCmd.OpenQuery "qq" End Sub بالتوفيق

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 بالتوفيق

العفو اخى الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 بالتوفيق

وعليكم السلام اخى @ابوصلاح اتفضل لعله ما تريد تم انشاء استعلام تحديث للتحديث باخر درجه وتاريخ فالجدول tbl_bianat لكل id UPDATE tbl_bianat SET tbl_bianat.darga = DLast("daraga","tbl_daragaSS","[Id]=" & [tbl_bianat].[id]), tbl_bianat.date_draga = DLast("date_daraga","tbl_daragaSS","[Id]=" & [tbl_bianat].[id]); شغل النموذج frm_bianat_mfrd واضغط زر التحديث لاخر تاريخ جرب ووافنا بالنتيجه بالتوفيق برنامج العاملين.accdb

وممكن هكذا Private Sub sss_AfterUpdate() DoCmd.ApplyFilter , "[Expr1]= '" & Me.sss & "'" DoCmd.OpenReport "rep", acViewReport, , "[Expr1]= '" & Me.sss & "'" End Sub وهكذا افضل Private Sub sss_AfterUpdate() Dim x As String x = "[Expr1]= '" & Me.sss & "'" DoCmd.ApplyFilter , x DoCmd.OpenReport "rep", acViewReport, , x End Sub Database11.accdb Database12.accdb

وعليكم السلام اتفضل فاننى اتعلم منكم اخوانى ومازلت احبو عالطريق معكم اخى عبيد وجزاك الله خيرا على مشاركتك معنا 💐 اخى عبيد افكارك حلوه ولفتح التقرير عالتصفيه فى حدث عند التحميل Private Sub Report_Load() DoCmd.ApplyFilter , "[Expr1]= '" & Forms!testtable!sss & "'" End Sub بالتوفيق Database11.accdb

وعليكم السلام اتفضل ان شاء الله يكون ما تريد تم ازاله المعيار من الاستعلام ووضع الكود التالى فى حدث بعد التحديث DoCmd.ApplyFilter , "[Expr1]= '" & Me.sss & "'" بالتوفيق Database1.accdb

وعليكم السلام ماشاء الله بارك الله لنا فيك اخى ومعلمنا العزيز جعفر وجزاك الله خيرا 💐