Информирование пользователя о достижении набора определенного количества записей

Можно так :
Private Sub Выбор_AfterUpdate()
Dim lCount As Long
    Me.Dirty = False
    lCount = DCount("*", "Детали", "Выбор=-1")
    If lCount >= 5 Then
        MsgBox "Сообщение!", vbExclamation
    End If
End Sub

Private Sub Выбор_BeforeUpdate(Cancel As Integer)
Dim i As Long
    With Me.RecordsetClone
        If Not (.BOF And .EOF) Then
            .MoveFirst
            Do
                i = i + Abs(.Fields("[Выбор]"))
                .MoveNext
            Loop Until .EOF
        End If
    End With
    If i = 4 And Me.Выбор And Not Me.Выбор.OldValue Then MsgBox "А не будет ли вам?", vbQuestion
    If i > 5 Or (i = 5 And Me.Выбор) Then MsgBox "Хватит борзеть!", vbQuestion
End Sub

Dim Z As Integer
Private Sub Выбор_AfterUpdate()
 Z = Z + IIf(Выбор, 1, -1)
 If Z >= 5 Then
   MsgBox "Уже " & Z & "!!!"
 End If 
End Sub

Private Sub Выбор_BeforeUpdate(Cancel As Integer)
Dim lCount As Long
'Сколько было до
    lCount = DCount("*", "Детали", "Выбор=-1")
    
'Текущее значение
    If Me!Выбор = True Then
        lCount = lCount + 1
    Else
        lCount = lCount - 1
    End If
    
    If lCount >= 5 Then
        'Запрос подтверждения 
        If MsgBox("Может хватит уже ???", _
            vbYesNo + vbQuestion + vbDefaultButton1, "Лишние данные") = vbYes Then
            Cancel = True
        End If
    End If
End Sub