ник: Анатолий (Киев)
Т.е. вы сначала добавляете в таблицу кучу записей, а затем удаляете ненужные? 
Это неразумно! Попробуйте так:
For ixx = dobav_s To dobav_po
s = Mid(CStr(ixx), 2, 10)
rs_tb1.FindFirst "[Номер]=" & s
If rs_tb1.NoMatch then
bso_temp.AddNew
bso_temp![Nomer] = s
bso_temp.Update
End If
Next
|