Option Compare Database
Option Explicit

Dim a, b, c

Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
 If FormatCount =  1  Then
  If Me.samki = a And Me.samci = b And Me.molod = c Then
   Me.samki.Visible = False
   Me.samci.Visible = False
   Me.molod.Visible = False
  Else
   Me.samki.Visible = True
   Me.samci.Visible = True
   Me.molod.Visible = True
  End If
   a = Me.samki
   b = Me.samci
   c = Me.molod
 End If
End Sub