Exemplo limitar nº de registos em formulário

Olá a todos,
A propósito de questão de colega, posto exemplo de como limitar o nº de registo num formulário:


Neste exemplo limite é 3 registos, no 4º registo avisa.
Código utilizado:

Código:

Private Sub Form_BeforeInsert(Cancel As Integer)
'AHTEIXEIRA 2016 para MaximoAccess
    If CStr(Me.NewRecord) = -1 Then                                        ' verifica se é registo novo
        If DCount("*", "tbl_clientes") >= 3 Then                           ' verifica o limite maximo, neste caso 3 registos
            MsgBox "Atingiu o limite máximo permitido.", vbCritical, ""    ' avisa utilizador
            DoCmd.CancelEvent                                              ' cancela o evento
        End If
    End If
End Sub

Abraço

Olá, obrigado pela partilha!

Obrigado pela partilha!

Olá amigo Alvaro;

De longe, o melhor código que encontrei para limitar os registos em formulários.

Joaquim

Sem fazer referência a nenhuma tabela e já tem 13 anos;

Código:

Private Sub Form_BeforeInsert(Cancel As Integer)
'By JPaulo Maximo Access 2009
Dim R As Object
 Set R = Me.Recordset
 Cancel = (R.RecordCount >= 3)
 If Cancel Then MsgBox "Não é possível gravar: quantidade de registros atingiu o limite.", vbExclamation, "Aviso"
End Sub

Olá a todos,

Amigos, obrigado pelo feedback.

Grande JPaulo, com este fórum é sempre aprender!
Todos os caminhos vão dar a Roma, gosto mais do seu código