أبوبسمله

هكذا اخى IIf(IsNull([القيمة]);0;[القيمة]) بالتوفيق

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

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

السلام عليكم اتفضل استاذ @عبد اللطيف سلوم هل هذا ما تريد بالتوفيق ان شاء الله اوفسنا النشاش.accdb

الله يسلمك اخى فايز 💐 بس قلى ايه حكاية الاسم الجديد ده يا ابو عبد الرحمن

واياكم ابا جودى لا البخور مش مغشوش بس هما مشغولين الحين مع صاحبهم الاساسى 😀 نسال الله ان يعلمنا ما ينفعنا وينفعنا بما علمنا انه هو العليم الحكيم وان ننفع به اخواننا فالله بارك الله فيكم اخوانى واساتذتى

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

السلام عليكم مشاركة ضعيفه منى مع اخوانى واساتذتى @jjafferr و @ابا جودى جزاهم الله خيرا 💐💐💐 انشات استعلام للحصول على اول سجل فارغ ثم فالنموذج قمت بوضع كود للتحديث Private Sub txtUpdate_Click() Dim db As DAO.Database Set db = CurrentDb Dim rs As DAO.Recordset Set rs = db.OpenRecordset("Tabl_1") Dim i As Integer For i = 0 To rs.RecordCount - 1 If IsNull(rs.Fields("A3")) Then rs.Edit rs.Fields("A1").Value = DLookup("A1", "Tabl_1", "[ÇáãÚÑÝ]=" & DLookup("FirstNum", "qry3") - 1) rs.Fields("A2").Value = DLookup("A2", "Tabl_1", "[ÇáãÚÑÝ]=" & DLookup("FirstNum", "qry3") - 1) rs.Fields("A3").Value = DLookup("A3", "Tabl_1", "[ÇáãÚÑÝ]=" & DLookup("FirstNum", "qry3") - 1) rs.Update Else End If rs.MoveNext Next i rs.Close Set rs = Nothing End Sub ومرفق المثال الجدول بدون تحديث اضغط زر التحديث فالنموذج تقبلوا تحياتى ومرورى وفقكم الله Database2.accdb

وعليكم السلام اخى الفاضل @seeef غير فالنموذج اسم الحقل name الى txtName مثلا وعليه يتغير الكود الى Private Sub Command18_Click() Dim X As String X = Me.txtName & ".pdf" DoCmd.OutputTo acOutputReport, "FBEA2", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X End Sub وذلك لان الاشاره بـ me.name فهى لاسم النموذج بالتوفيق

😀 دانا حتى مبعرفش اجرى اخى @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 💐 شرح وافي وبعيد عن الريجستري سأقوم بتجربته عند العوده من العمل إن شاء الله بارك الله فيك يا @ابا جودى 💐