[Resolvido]Registros só podem se repetir no máximo 6 vezes, como ?

Olá galera, sou novato aqui, tudo na paz com vocês ? Então vamos lá.
É o seguinte,

Tenho um determinado campo, Ex: "Nome", aí lanço João uma vez, lanço João a segunda,terceira,quarta, quinta e sexta, quando eu for repetir João a sétima vez, apareceria uma caixa de menssagem : "Este registro já foi lançado 6 vezes", Como posso limitar a quantidade de vezes que ele pode se repetir ? E não permite mais lançamentos. Gostaria ( Se possível ) de um exemplo para tipo string, e um para inteiro ( Os dois códigos seriam separados ) aí vou saber lhe dar com as duas situações futuramente, Se não houver diferenaça no código, ou se só souberem com string, tudo bem, a prioridade é string mesmo.

Desde já

Agradeço e muito Equipe
obrigado.



Informações :

Acces 2007
Windows XP

Olá, seja bem vindo ao forum.

Tente algo assim:

If DCount("*", "NomeDaTabela", "NomeCampoDaTabela='" & Me.NomeCampoDoForm & "'") >= 6 Then
MsgBox "Esse nome já foi lançado 6 vezes", vbCritical, "Atenção"
Else
Exit Sub
End If

Muito obrigado meu caro Criquio ! Tenho visto o seu trabalho, e o de outros membros da equipe a algum tempo já, e só tenho a agradecer, muito obrigado cara, estou até dando uma olhada em uma apostila para aprender mais um pouco.

Mais uma vez agradeço, e poxa continuem com o fórum, é de grande utilidade para a galera.

Saúde e sucesso cara.