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

ник: snipe
может так

Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("Таблица1") rs.MoveLast rs.MoveFirst For i = 1 To rs.RecordCount For j = 0 To rs.Fields.Count - 1 If (Nz(rs.Fields(j), 0) = 0 Or rs.Fields(j) = " ") And j + 1 <= rs.Fields.Count - 1 Then         For k = j + 1 To rs.Fields.Count - 1             If Nz(rs.Fields(k), 0) = 0 Or rs.Fields(k) = " " Then                 Else                 rs.Edit                 rs.Fields(j) = rs.Fields(k)                 rs.Fields(k) = Null                 rs.Update                 Exit For             End If         Next k End If Next j rs.MoveNext Next i Set rs = Nothing