محمد قاسم 12 قام بنشر فبراير 11, 2019 مشاركة قام بنشر فبراير 11, 2019 السلام عليكم فى الملف المرفق جدول للقروض وارغب فى التالى عنما يكون العضو كا قد سدد كامل القرض يقوم الاستعلام بنقل بيانات العضو الى جدول اخر للقروض التى تم الانتهاء منها وحذفها من الجدول الاساسي وذلك كله تحت امر يكون فى النموزج الرئيسي هل يمكن المساعده فى عمل ذلك 0002.rar رابط هذا التعليق شارك More sharing options...
Ibrahim IQ قام بنشر فبراير 11, 2019 مشاركة قام بنشر فبراير 11, 2019 وعليكم السلام تفضل اخي محمد 0002.rar 2 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر فبراير 11, 2019 مشاركة قام بنشر فبراير 11, 2019 منذ ساعه, محمد قاسم 12 said: السلام عليكم فى الملف المرفق جدول للقروض وارغب فى التالى عنما يكون العضو كا قد سدد كامل القرض يقوم الاستعلام بنقل بيانات العضو الى جدول اخر للقروض التى تم الانتهاء منها وحذفها من الجدول الاساسي وذلك كله تحت امر يكون فى النموزج الرئيسي هل يمكن المساعده فى عمل ذلك 0002.rar اتفضل اتمنى يكون المطلوب 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 2 رابط هذا التعليق شارك More sharing options...
محمد قاسم 12 قام بنشر فبراير 11, 2019 الكاتب مشاركة قام بنشر فبراير 11, 2019 17 دقائق مضت, Rebaz Bahram said: وعليكم السلام تفضل اخي محمد 0002.rar بارك الله فيك استاذى الكبير سوف اقوم بالتجريب والرد عليكم ان شاء الله 16 دقائق مضت, ابو ياسين المشولي said: اتفضل اتمنى يكون المطلوب 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 بارك الله فيكم استاذى سوف اقوم بالتجريب ومحاوله الفهم والرد عليكم هنا ان شاء الله رابط هذا التعليق شارك More sharing options...
محمد قاسم 12 قام بنشر فبراير 11, 2019 الكاتب مشاركة قام بنشر فبراير 11, 2019 35 دقائق مضت, ابو ياسين المشولي said: اتفضل اتمنى يكون المطلوب 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 للاسف لم يعمل معى استاذى الفاضل رابط هذا التعليق شارك More sharing options...
محمد قاسم 12 قام بنشر فبراير 11, 2019 الكاتب مشاركة قام بنشر فبراير 11, 2019 43 دقائق مضت, Rebaz Bahram said: وعليكم السلام تفضل اخي محمد 0002.rar بعد التجربه ايضا لم يعمل معى يبدوا ان المشكله لدى رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر فبراير 12, 2019 مشاركة قام بنشر فبراير 12, 2019 (معدل) 1 ساعه مضت, محمد قاسم 12 said: للاسف لم يعمل معى استاذى الفاضل بعتذر عن الخطاء غير المقصود اتفضل هذا مجرب الاول لم اجربه هههههههههه 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 تم تعديل فبراير 12, 2019 بواسطه ابو ياسين المشولي رابط هذا التعليق شارك More sharing options...
محمد قاسم 12 قام بنشر فبراير 12, 2019 الكاتب مشاركة قام بنشر فبراير 12, 2019 بارك الله فيك معلمى الفاضل بالفعل يعمل بنجاح بارك الله فيك لى طلب بسيط هل من الممكن عمل رساله تأكيد قبل التنفيذ رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر فبراير 12, 2019 مشاركة قام بنشر فبراير 12, 2019 1 ساعه مضت, محمد قاسم 12 said: بارك الله فيك معلمى الفاضل بالفعل يعمل بنجاح بارك الله فيك لى طلب بسيط هل من الممكن عمل رساله تأكيد قبل التنفيذ ابسط شي الرسائل ههههههههههه 1 رابط هذا التعليق شارك More sharing options...
محمد قاسم 12 قام بنشر فبراير 13, 2019 الكاتب مشاركة قام بنشر فبراير 13, 2019 بارك الله فيك معلمى الفاضل Private Sub ÃãÑ17_Click() If MsgBox("åá ÊÑíÏ ÍÞÇð ÊÑÍíá ÇáÍÓÇÈÇÊ", _ vbQuestion + vbYesNo + vbMsgBoxRight + vbDefaultButton2, _ "ÊÃßíÏ ÇáÊÑÍíá") = vbYes Then 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 End If End Sub هل هكذا صحيح ام لا رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر فبراير 13, 2019 مشاركة قام بنشر فبراير 13, 2019 نعم الرساله هكذا ولو ما عرفت المكتوب لكن المضمون هو كذلك 1 رابط هذا التعليق شارك More sharing options...
محمد قاسم 12 قام بنشر فبراير 13, 2019 الكاتب مشاركة قام بنشر فبراير 13, 2019 بارك الله فيك معلمى الفاضل رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.