حذف سجلات من جدول حسب استعلام معين

[سلمان الشهراني]

السلام عليكم واسعد الله اوقات الجميع
1- يوجد استعلام اسمه QRFingerDelete  يظهر ارقام المشتركين حسب  معايير معينه
 
2- المطلوب هو البحث عن هذه الارقام في جدول  template   حقل   UsrID
ومن ثم حذف هذه السجلات بالكامل 

100.rar

[kanory]

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

تفضل <><><><><><><><>

Dim rs As DAO.Recordset
Dim R As Integer
Set rs = CurrentDb.OpenRecordset(" SELECT TB_1.No_Common " & _
                                    " FROM TB_1 INNER JOIN TB_2 ON TB_1.No_Common = TB_2.No_Common " & _
                                    " WHERE (((TB_2.End_Date)<=Date()-1) AND ((TB_2.Case_Com)=102) AND ((TB_2.jadd)=False));", dbOpenDynaset)

rs.MoveLast
rs.MoveFirst
R = rs.RecordCount
For i = 1 To R
 
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE template.id, template.FingerTmplate, template.UsrID " & _
                    " FROM template " & _
                    " WHERE (((template.UsrID)=" & rs!No_Common & "));"
    DoCmd.SetWarnings True
rs.MoveNext
Next i
rs.Close
Set rs = Nothing

 

تم تعديل أبريل 30, 2024 بواسطه kanory

[kanory]

منذ ساعه, سلمان الشهراني said:

السلام عليكم واسعد الله اوقات الجميع
1- يوجد استعلام اسمه QRFingerDelete  يظهر ارقام المشتركين حسب  معايير معينه
 
2- المطلوب هو البحث عن هذه الارقام في جدول  template   حقل   UsrID
ومن ثم حذف هذه السجلات بالكامل 

وهذه طريفة اخرى اقل اكواد <><><><><><><>

Dim db As DAO.Database
Set db = CurrentDb()
db.Execute "DELETE template.UsrID, * FROM template WHERE (((template.UsrID) In (SELECT No_Common FROM QRFingerDelete)))", dbFailOnError
Set db = Nothing

 

[سلمان الشهراني]

الله يعطيك الف الف عافيه والف شكر لك 
تحياتي

[kanory]

1 ساعه مضت, سلمان الشهراني said:

الله يعطيك الف الف عافيه والف شكر لك 

واياك...

 

تم تعديل أبريل 30, 2024 بواسطه kanory