[Resolvido]Não consigo bloquear

colegas estou fazendo um sistema de consultório medico , mas só quero cadastrar 3 médicos , esta funcionando legal , mas só não posso  excluir  nenhum cadastro porque se eu  excluir 2 médicos  o sistema não deixar cadastrar nenhum medico sendo que eu  já exclui 2 e estou somente com 1 cadastro. so deixa cadastrar se zerar a numeração da tabela.


Private Sub novocadastro_Click()
If (Me.nome >= 3) Then
MsgBox "Quantidade máxima 3", vbCritical, "Consulmed"
Else
DoCmd.RunCommand acCmdRecordsGoToNew

End If
End Sub

Boa tarde;

Seria algo mais ou menos assim no evento Antes de Atualizar do campo

Código:

Dim x As Integer
x = DCount("[seucampo]", "[suatabela]")
If x >= 3 Then
MsgBox "Já existem 3 registros cadastrados no sistema." & vbCrLf & " Não será possível adicionar o novo registro.", vbInformation
Cancel = True
End If

Não permite novos registros se houver mais de 3

Espero ter ajudado
Saludos desde Bolivia

obrigado, somente as 2 mensagem estão confitando vejo essa parada aqui
os limite de registro e a outra que é cadastro com sucesso ,