[sendbad100]

PHP كود :

Private Sub Command1_Click()

sql = "SELECT DISTINCT A FROM t1"
'SQLs = "Select * From t1"
If RS.State = adStateOpen Then RS.Close
'RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic
RS.Open sql, DB, adOpenStatic, adLockOptimistic, adCmdText
 With RS
 .MoveFirst

Do Until .EOF

f (![a])

 DoEvents
.MoveNext
Loop

 End With
 MsgBox "تمت العملية بنجاح "
End Sub


Sub f(n As String)

Dim F99 As New ADODB.Recordset
Dim R As Long
sql = "SELECT * FROM t1 WHERE A ='" & Trim(n) & "'"

F99.Open sql, DB, adOpenStatic, adLockOptimistic, adCmdText
  
  R = F99.RecordCount
  If R < 2 Then: Exit Sub
    
F99.MoveFirst
F99.MoveNext
Do Until F99.EOF
F99.Delete
F99.MoveNext
Loop

 F99.Close

End Sub

Private Sub Form_Load()
PoolConnection
End Sub 


السلام عليكم 
لم استطع التعديل على مثالك لانك تستخدم  ادوات تحتاج الى ترخيص او شراء 
ولكن اعمل فورم جديد   وضع به بوتن   وانسخ  هذا الكود بداخل الفورم بعد مسح كل ما فية
اتوقع بل متاكد ان هناك طرق اكثر اختصارا   ولكن لا اعرفها  وضعت لك الطريقة التي خطرت على بالي 
بالتوفيق