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:
Abraço
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
- Anexos
- limitar_no_registos.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (19 Kb) Baixado 223 vez(es)