ЖКХ-Счетчики

Private Sub Form_AfterUpdate()
    If Me.RecordsetClone.RecordCount = 12 Then
        Me.AllowAdditions = False
    Else
        Me.AllowAdditions = True
    End If
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
    With Me.RecordsetClone
        .Findfirst "КодДатыУ=" & Me.КодДатыУ & " and Код_Учета<>" & Me.Код_Учета
        If Not .nomatch Then
            Cancel = True
            MsgBox "Платеж за данную дату уже произведен"
        End If
    End With
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
If DCount("*", "Квартиры", "КодДомаКв=" & Nz(Me.КодДомаКв, 0) & " AND Квартира=" & Nz(Me.Квартира, 0) & "") >= 1 Then
   Cancel = True
   Me.Undo
   MsgBox ("Квартира уже указана!")
End If
 
If Me.Квартира > Nz(DLookup("КвартирД", "Дома", "КодДомаКв=" & Nz(Forms![Дома]![Код_Дома], 0)), 0) Then
   Cancel = True
   Me.Undo
   MsgBox ("Данной квартиры не существует!")
End If
 
End Sub
 
Private Sub Form_Current()
If Me.NewRecord Then
   Dim a As Integer
   a = Nz(DLookup("КвартирД", "Дома", "Код_Дома=" & Nz(Forms![Дома]![Код_Дома], 0)), 0)
   If a > 0 And DCount("*", "Квартиры", "КодДомаКв=" & Nz(Me.КодДомаКв, 0) & "") >= a Then
      'Me.AllowAdditions = False
      MsgBox ("Все квартиры указаны!")
      DoCmd.GoToRecord , , acPrevious
   End If
End If
 
End Sub