مرحبا
كيفكم يا اساتزة
ارجو مساعدتي بتعديل الكود التالي والمتضمن حذف عدة سجلات من - الى ! فالمطلوب حذف جماعي لسجلات تقع بين رقمين
استخدمت الكود التالي لكن لم تنجح العملية:
SQLs = "select * from u1arch where num => '" & Text1 & "' and num =<'" & Text2 & "' "
If rs.State = adStateOpen Then rs.Close
rs.Open SQLs, db, adOpenKeyset, adLockPessimistic
If rs.RecordCount > 0 Then
rs.Delete
MsgBox "ok"
End Ifودمتم سالمين

