Форумы HiProg.com - MS ACCESS, VBA, VB

ник: alecks_lp

Dim rst As DAO.Recordset Dim fld As DAO.Field Dim blnFlag As Boolean Set rst = CurrentDb.OpenRecordset("tblTable1") Do Until rst.EOF     blnFlag = True     For Each fld In rst.Fields         If IsNull(fld.Value) Then         Else             blnFlag = False             Exit For         End If     Next fld     If blnFlag Then rst.Delete     rst.MoveNext Loop