أبوبسمله

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

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

وعليكم السلام اخى ابومحمد وفيك بارك الله ورحم الله والديك وجميع اخوانى واساتذتى جزاهم الله عنا كل خير بالنسبه لسؤالك فانت تدخل التاريخ فقط لان علامه اكبر من مكتوبه بالكود فالسطر التالى 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

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

وعليكم السلام اتفضل ان شاء الله يكون ما تريد NSave: Right([save];Len([save])-Len(Left([save];1))) بالتوفيق onevalue (1)(1).accdb

احسنت اخى واستاذى @husamwahab وجزاك الله خيرا 💐 بالتوفيق

وعليكم السلام اتفضل ان شاء الله يكون ما تريد شوف مصدر السجلات للنموذج الفرعى وافنا بالنتيجه SELECT DISTINCT Tabl1.save, Tabl1.a1 FROM Tabl1; بالتوفيق اخى onerecord.accdb

جزاك الله خيرا اخى ومعلمنا العزيز @jjafferr جعله الله فى ميزان حسناتك انا استخدمت على ويندوز 7 - 32 بت اوفيس 2003 و 2016 - 32 بت وحقا طريقة رائعة جدا جزاك الله خيرا أخى شيفان بالتوفيق

السلام عليكم اتفضل اخى @goldposition ان شاء الله يكون ما تريد جرب ووافنا بالنتيجه بالتوفيق mm - Copy.accdb

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

جزاك الله خيرا اخي ومعلمنا العزيز @jjafferr 💐 شرح وافي وبعيد عن الريجستري سأقوم بتجربته عند العوده من العمل إن شاء الله بارك الله فيك يا @ابا جودى 💐

السلام عليكم مشاركه مع اخى @ناقل جزاه الله خيرا هل هذا ما تريد جرب ووافنا بالنتيجه If Me.Combo1 Like "<select ALL >" Then Me.data.Form.RecordSource = "SELECT data1.* FROM data1;" Else Me.data.Form.RecordSource = "SELECT data1.* FROM Data1 " & _ " WHERE (((data1.LINE)=[Forms]![Search]![Combo1]));" End If بالتوفيق mm.accdb

السلام عليكم اتفضل ان شاء الله يكون ما تريد وهذا الحل الذلا اشار به لك اخى @ناقل جزاه الله خيرا بالتوفيق المحل - Copyjhgj.rar

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