ник: myth
помоему так намного лучше будет, т.к. не надо все поля перечислять. Универсально вобщем.
dim rst as RecordSet
set rst = CurrentDb.OpenRecordSet("TABLE1")
For I = 0 To rst.RecordCount-1
flag = false
For j = 0 To rst.Fields.Count - 1
If (Not IsNull(rst.Fields(j).Value)) Then flag = true
Next j
if(flag = false) then rst.DELETE......
rst.MoveNext
Next I
|