اذهب الي المحتوي
أوفيسنا

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


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

 

  • Like 1
رابط هذا التعليق
شارك

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

تفضل

 

 

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

 

 

 

  • Like 1
رابط هذا التعليق
شارك

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

 

 

 

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information