*كود* حذف سجل وسجلات بالكود

لحذف سجل او جميع السجلات يمكنك استخدام الامر

delete

مثل المثال التالي

Sub a()

Dim cn As ADODB.Connection

Dim rs As New ADODB.Recordset

Set cn = CurrentProject.Connection

rs.Open "Table", cn, adOpenDynamic, adLockOptimistic

If Not rs.EOF And Not rs.BOF Then rs.MoveFirst

Do Until rs.EOF

rs.Delete

rs.MoveNext

Loop

rs.Close

End Sub

لترى الكود بدون مشاكل انسخه في ال notepad واقلبه هناك ، وهو يمسح جميع السجلات

ويمكن استخدامه لمسح سجل ولكن يجب تحديد السجل وذلك بالامر

rs.Filter = ""

حيث لتحدد بانك تريد مسح بيانات الطالب رقم واحد مثلا

rs.filter = "sid = 1"

rs.delete

شيئ من هذا القبيل

كل الشكر لك يا أستاذي العزيز / خضر الترزي وكثر الله من أمثالك

جزاك الله عني كل خير .. فقد كانت اجابتك خير ترحيب وحل ناجع .