Dim DB As DAO.Database, RSD As DAO.Recordset, RSM As DAO.Recordset, fld As DAO.Field
Dim sq$, sf$
  Set DB = CurrentDb
  sq = "SELECT * FROM Дела ORDER BY УД, [Дата ВУД], Код"
  Set RSD = DB.OpenRecordset(sq)
  sq = "SELECT T1.* FROM Дела As T1 " & _
       "WHERE T1.Код=(SELECT Min(T2.Код) FROM Дела As T2 " & _
       "WHERE T2.УД=T1.УД And  T2.[Дата ВУД]=T1.[Дата ВУД]) " & _
       "ORDER BY T1.УД, T1.[Дата ВУД]"
  Set RSM = DB.OpenRecordset(sq)
  Do Until RSM.EOF Or RSD.EOF
    If RSM!Код = RSD!Код Then
      RSD.MoveNext
    ElseIf RSM!УД = RSD!УД And RSD![Дата ВУД] = RSM![Дата ВУД] Then
      RSM.Edit
      For Each fld In RSM.Fields
        sf = fld.Name
        If Len(RSM(sf) & "") = 0 Then RSM(sf) = RSD(sf)
      Next
      RSM.Update
      RSD.Delete
      RSD.MoveNext
    Else
      RSM.MoveNext
    End If
  Loop
  Set fld = Nothing: RSD.Close: RSM.Close
  Set RSD = Nothing: Set RSM = Nothing: Set DB = Nothing

UPDATE Дела As T INNER JOIN 
(SELECT T1.* FROM Дела AS T1
WHERE T1.Код=(SELECT Min(T2.Код) FROM Дела As T2 WHERE T2.УД=T1.УД And  T2.[Дата ВУД]=T1.[Дата ВУД])) As Q 
ON T.УД=Q.УД And  T.[Дата ВУД]=Q.[Дата ВУД]
SET Q.Фабула=IIf(Len(Q.Фабула & '')=0, T.Фабула, Q.Фабула), 
Q.Статья=IIf(Len(Q.Статья & '')=0, T.Статья, Q.Статья),
Q.часть=IIf(Len(Q.часть & '')=0, T.часть, Q.часть),
Q.пункт=IIf(Len(Q.пункт & '')=0, T.пункт, Q.пункт),
Q.Примечание=IIf(Len(Q.Примечание & '')=0, T.Примечание, Q.Примечание), 
Q.Эпизод=IIf(Len(Q.Эпизод & '')=0, T.Эпизод, Q.Эпизод),
Q.[Дата совершения]=IIf(Len(Q.[Дата совершения] & '')=0, T.[Дата совершения], Q.[Дата совершения]),
Q.Решение=IIf(Len(Q.Решение & '')=0, T.Решение, Q.Решение),
Q.[Дата решения]=IIf(Len(Q.[Дата решения] & '')=0, T.[Дата решения], Q.[Дата решения])
WHERE T.Код<>Q.Код

DELETE T1.* FROM Дела AS T1
WHERE T1.Код<>(SELECT Min(T2.Код) FROM Дела As T2 WHERE T2.УД=T1.УД And  T2.[Дата ВУД]=T1.[Дата ВУД])