If Format$(Forms![Combobox1]![test1]) <> "" Then
BrKomada = Forms![Combobox1]![test1] - 1
End If
Set Rs = Me.RecordsetClone
BrRekorda = Rs.RecordCount

If BrRekorda <= BrKomada Then
Me.AllowAdditions = True
Else
Me.AllowAdditions = False
End If
Rs.Close
End Sub