أبوبسمله

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير هل هذا ما تريد جرب ووافنا بالنتيجه Private Sub أمر19_Click() Dim LastValue As Currency Dim x As Integer x = Me.ID LastValue = Me.IDX DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdSaveRecord Me.IDX = LastValue + 0.1 LastValue = Me.IDX Me.OrderBy = "IDX" DoCmd.FindRecord x, acAnywhere, , acSearchAll DoCmd.GoToRecord , , acNext Me.Nass.SetFocus End Sub بالتوفيق book0001.accdb

السلام عليكم هل هذا ما تريد اتفضل اخى جرب ووافنا بالنتيجه Private Sub ÃãÑ19_Click() Dim LastValue As Currency Dim LastID As Integer LastValue = Me.IDX LastID = Me.ID DoCmd.GoToRecord , , acNewRec Me.IDX = LastValue + 0.1 Me.OrderBy = "IDX" DoCmd.FindRecord LastID, , True, , True End Sub بالتوفيق book0001.accdb

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

السلام عليكم هل هذا ما تريد اخى بالتوفيق tt.accdb

هكذا اخى 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