تعديل كود حذف محتويات جداول

[omarahmed1424]

السلام عليكم ورحمة الله وبركاته وبعد 

أعضاء المنتدى المحترمون ...

لدي مجموعة جداول أريد وضع زر في النموذج لحذف محتوياتها وضعت الكود التالي ولم تنجح المحاولة فهل هناك تعديل للوصول للمطلوب 

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE AuditTable.* FROM AuditTable;"
DoCmd.RunSQL "DELETE Copy Of BEIRUT.* FROM Copy Of BEIRUT;"
DoCmd.RunSQL "DELETE Loc_tbl_Blob.* FROM Loc_tbl_Blob;"
DoCmd.RunSQL "DELETE moaqef.* FROM moaqef;"
DoCmd.RunSQL "DELETE student_moaqef.* FROM student_moaqef;"
DoCmd.RunSQL "DELETE tbl_Animals.* FROM tbl_Animals;"
DoCmd.RunSQL "DELETE temp.* FROM temp;"
DoCmd.RunSQL "DELETE Temp_date.* FROM Temp_date;"
DoCmd.RunSQL "DELETE TempAccountTbl.* FROM TempAccountTbl;"

[صالح حمادي]

السلام عليكم

كود تفريغ الجدول يكون بهذا الشكل:

DoCmd.RunSQL ("delete * from tbl")

غير tbl باسم الجدول لديك

و يمكنك الاستفادة من هذا الموضوع به دوال sql

 

[AlwaZeeR]

اضافة لما تفضل به اخي وصديقي صالح

تفضل

 

 

On Error GoTo Err_Handler

With CurrentDb
.Execute "DELETE AuditTable.* FROM AuditTable", dbFailOnError
.Execute "DELETE Copy Of BEIRUT.* FROM Copy Of BEIRUT", dbFailOnError
.Execute "DELETE Loc_tbl_Blob.* FROM Loc_tbl_Blob", dbFailOnError
.Execute "DELETE moaqef.* FROM moaqef", dbFailOnError
.Execute "DELETE student_moaqef.* FROM student_moaqef", dbFailOnError
.Execute "DELETE tbl_Animals.* FROM tbl_Animals", dbFailOnError
.Execute "DELETE temp.* FROM temp;", dbFailOnError
.Execute "DELETE Temp_date.* FROM Temp_date", dbFailOnError
.Execute "DELETE TempAccountTbl.* FROM TempAccountTbl", dbFailOnError
End With

Err_Handler:
If err <> 0 Then
MsgBox err.desc & " (" & err.Number & ")"
err.Clear
Exit Sub

 

 

 

[omarahmed1424]

18 ساعات مضت, صالح حمادي said:

السلام عليكم

كود تفريغ الجدول يكون بهذا الشكل:

DoCmd.RunSQL ("delete * from tbl")

غير tbl باسم الجدول لديك

و يمكنك الاستفادة من هذا الموضوع به دوال sql

 

 

14 ساعات مضت, alwazeer said:

اضافة لما تفضل به اخي وصديقي صالح

تفضل

 

 

On Error GoTo Err_Handler

With CurrentDb
.Execute "DELETE AuditTable.* FROM AuditTable", dbFailOnError
.Execute "DELETE Copy Of BEIRUT.* FROM Copy Of BEIRUT", dbFailOnError
.Execute "DELETE Loc_tbl_Blob.* FROM Loc_tbl_Blob", dbFailOnError
.Execute "DELETE moaqef.* FROM moaqef", dbFailOnError
.Execute "DELETE student_moaqef.* FROM student_moaqef", dbFailOnError
.Execute "DELETE tbl_Animals.* FROM tbl_Animals", dbFailOnError
.Execute "DELETE temp.* FROM temp;", dbFailOnError
.Execute "DELETE Temp_date.* FROM Temp_date", dbFailOnError
.Execute "DELETE TempAccountTbl.* FROM TempAccountTbl", dbFailOnError
End With

Err_Handler:
If err <> 0 Then
MsgBox err.desc & " (" & err.Number & ")"
err.Clear
Exit Sub

 

 

 

جزاكم الله خيرا على السعي والاجتهاد في حل المشكلة