عمل استعلام الحاق

[محمد قاسم 12]

السلام عليكم

فى الملف المرفق جدول للقروض

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

وذلك كله تحت امر يكون فى النموزج الرئيسي 

هل يمكن المساعده فى عمل ذلك

 

 

 

 

 

0002.rar

[Ibrahim IQ]

وعليكم السلام

تفضل اخي محمد

0002.rar

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

منذ ساعه, محمد قاسم 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

[محمد قاسم 12]

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

بارك الله فيكم استاذى 

سوف اقوم بالتجريب ومحاوله الفهم والرد عليكم هنا ان شاء الله

[محمد قاسم 12]

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

للاسف لم يعمل معى استاذى الفاضل

 

[محمد قاسم 12]

43 دقائق مضت, Rebaz Bahram said:

وعليكم السلام

تفضل اخي محمد

0002.rar

بعد التجربه ايضا لم يعمل معى 

يبدوا ان المشكله لدى 

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

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 بواسطه ابو ياسين المشولي

[محمد قاسم 12]

بارك الله فيك معلمى الفاضل

بالفعل يعمل بنجاح 

بارك الله فيك

لى طلب بسيط  هل من الممكن عمل رساله تأكيد قبل التنفيذ

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

1 ساعه مضت, محمد قاسم 12 said:

بارك الله فيك معلمى الفاضل

بالفعل يعمل بنجاح 

بارك الله فيك

لى طلب بسيط  هل من الممكن عمل رساله تأكيد قبل التنفيذ

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

ههههههههههه

[محمد قاسم 12]

بارك الله فيك معلمى الفاضل

 

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

هل هكذا صحيح ام لا

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

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

[محمد قاسم 12]

بارك الله فيك معلمى الفاضل