ابو ياسين المشولي

اتفضل استعلام (2).mdb

جرب تضيف هذا في بدايه الكود On Error Resume Next

اتفضل هذا تعديل على كود الاخ جعفر On Error Resume Next Dim id As Integer Dim Msg, Style, Title, Response id = Nz(DLookup("[site_ID]", "qard", "[site_ID]=" & Me.site_ID & ""), 0) If id <> 0 Then Me.Undo Cancel = True Total.Locked = True dat_1.Locked = True not_n.Locked = True Me.أمر76.Enabled = False Msg = "هذا الاسم موجود بالفعل" & vbCrLf & _ "المعرف رقم " & id & vbCrLf & vbCrLf & _ "Yes : نعم اذهب الى ذلك السجل" & vbCrLf & _ "No : فقط الغي هذا السجل" Style = vbYesNo + vbCritical + vbDefaultButton2 Title = "التكرار ممنوع" Response = MsgBox(Msg, Style, Title) Else Total.Locked = False dat_1.Locked = False not_n.Locked = False Me.أمر76.Enabled = True If Response = vbYes Then DoCmd.FindRecord id, , , , , acAll, True End If End If

نعم الرساله هكذا ولو ما عرفت المكتوب لكن المضمون هو كذلك

تسلم اخي بارك الله فيك فهم السوال نصف الاجابه

واذا كان لديه قرض ولكنه صفر اي مسدد القرض

ابسط شي الرسائل ههههههههههه

بعتذر عن الخطاء غير المقصود اتفضل هذا مجرب الاول لم اجربه هههههههههه DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO qard_Finished ( id, site_ID, total, sadad_1, dat_1, SN, 7ala ) " & vbCrLf & _ "SELECT qard.id, qard.site_ID, qard.total, qard.sadad_1, qard.dat_1, qard.SN, ""تم السداد"" AS Expr1 " & vbCrLf & _ "FROM qard " & vbCrLf & _ "GROUP BY qard.id, qard.site_ID, qard.total, qard.sadad_1, qard.dat_1, qard.SN, ""تم السداد"" " & vbCrLf & _ "HAVING (((Nz(DSum(""total"",""qard"","" site_ID="" & [site_ID])))=Nz(DSum(""sadad_1"",""qard"","" site_ID="" & [site_ID]))));" DoCmd.RunSQL "DELETE qard.id, qard.site_ID, qard.total, qard.sadad_1, qard.dat_1, qard.SN, ""تم السداد"" AS Expr1, Nz(DSum(""total"",""qard"","" site_ID="" & [site_ID])) AS Expr2 " & vbCrLf & _ "FROM qard " & vbCrLf & _ "WHERE (((Nz(DSum(""total"",""qard"","" site_ID="" & [site_ID])))=Nz(DSum(""sadad_1"",""qard"","" site_ID="" & [site_ID]))));" MsgBox "تم الترحيل بنجاح", vbInformation, "تنبيه" DoCmd.SetWarnings True 0002.rar

اولا اخي ارجو الاتزام بقواعد المنتدى وهو عنوان مخالف برغم من ان طلبك بسيط جدا ولكن ارجو منك المرة القادمه عمل عنوان مناسب بعد اذن الادارة في حدث الكميه بعد التحديث ضع هذا الكود Me.عدد = Me.الكمية

اتفضل اتمنى يكون المطلوب DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO qard_Finished ( id, site_ID, total, sadad_1, dat_1, SN, 7ala ) " & vbCrLf & _ "SELECT qard.id, qard.site_ID, qard.total, qard.sadad_1, qard.dat_1, qard.SN, ""تم السداد"" AS Expr1 " & vbCrLf & _ "FROM qard " & vbCrLf & _ "WHERE (([qard]![dat_1]=[qard]![total]));" DoCmd.RunSQL "DELETE qard.id, qard.site_ID, qard.total, qard.sadad_1, qard.dat_1, qard.SN, [qard]![dat_1] " & vbCrLf & _ "FROM qard " & vbCrLf & _ "WHERE ((([qard]![dat_1])=[qard]![total]));" DoCmd.SetWarnings True 0002.rar

وعليكم السلام ورحمه الله وبركاته بالتوفيق اخي محمد التميمي

بيكون بهذا الشكل DoCmd.RunSQL "UPDATE tbl1 SET tbl1.days_of_month = NZ(days_of_month)+[Forms]![frm_main]![txt_days], tbl1.[money] = NZ(money)+[Forms]![frm_main]![txt_mony], tbl1.points = NZ(points)+[Forms]![frm_main]![txt_points].[value];" اضف اليه داله nz emp.accdb

بالتوفيق اخي

بعد اذن اخي kanory بيكون بهذا الشكل DoCmd.RunSQL "UPDATE tbl1 SET tbl1.days_of_month = days_of_month+[Forms]![frm_main]![txt_days], tbl1.[money] = money+[Forms]![frm_main]![txt_mony], tbl1.points = points+[Forms]![frm_main]![txt_points].[value];"

اتفضل انسخ هذا الى سكويل SELECT DISTINCTROW qard.site_ID, site.site, Sum(qard.total) AS [Sum من total], Sum(qard.sadad_1) AS [Sum من sadad_1], [Sum من total]-[Sum من sadad_1] AS Expr1, Count([qard]![sadad_1]) AS Expr2, [Expr2]-1 AS Expr3, IIf([Sum من total]=[Sum من sadad_1],'تم السداد',IIf([Sum من total]>[Sum من sadad_1],'لم يسدد',IIf([Sum من sadad_1]>[Sum من total],'دائن'))) AS الحالة FROM (qard_1 INNER JOIN site ON qard_1.site_ID = site.site_ID) INNER JOIN qard ON site.site_ID = qard.site_ID GROUP BY qard.site_ID, site.site;

مشاركة متواضعه هذا يفتح القاعده وفيها رقم سري

ارفق مثال مصغر

بالتوفيق احي ابو انس 2018

اتفضل دعوة بظهر الغيب تكفي المركزي1.rar

اتفضل تحديث حقل.accdb

اخي حسين العربى الخطاء منك وليس من جعفر jjafferr شوف هذا الملف كما تم تطبيقه من الاخ جعفر انت نسخت بالخطاء انت عامله C:\Program Files\Microsoft Office\Office14\msaccess.exe والمفروض يكون هكذا C:\Program Files(x86)\Microsoft Office\Office12\msaccess.exe جعفر.rar

شوف هذا لعله طلبك المركزي.rar

شوف هذا استعلام_جدولي-الاعمدة_صفوف (4).accdb