[Resolvido]Limite de registro

Muito bom dia a todos!!!
Amigos, existe alguma forma de colocar um limite de registros no Access, ex: quero desenvolver uma versão para teste, aonde quando o cliente digitar 30 registros a Access bloqueia ou então colocar um prazo em dias ex: 30 dias de testes.

Obrigado, contente por estar aprendendo a programar nesta ferramenta magnifica, e estar participando deste fórum cheia de feras em Access.

Maxxi,

Tem algumas formas de se fazer isso. Dê uma olhada nesta rotina VBA:

Código:

Dim xDemo as Variant
Dim nCadastro as variant
Dim xUser as String
'Define as variáveis do formulário
xDemo = DLookup("DSN", "tblDemo") 'Busca informação sobre a versão do sistema (DEMO)
nCadastro = DCount("*", "tblClientes") 'Conta a quantidade de registros na tabela
xUser = DLookup("UserLogado", "tblLogado") 'Busca o nome do usuário logado
'Verifica se a versão do sistema é DEMO
If xDemo = True Then 'Verifica se a versão do sistema é DEMO
    If nCadastro >= 5 Then 'Se a versão for DEMO e o número de cadastro for igual ou superior a CINCO emite a mensagem e fecha o formulário
        DoCmd.Close acForm, "frmClienteNew" 'Fecha o formulário
        MsgBox "Na versão demonstração é permitido no máximo o cadastro de 5 clientes.", vbInformation, "Sistema" 'Mensagem
    End If
End If
'Se não for DEMO Vai para um novo registro
DoCmd.GoToRecord , , acNewRec
'Move o foco para o primeiro campo
CLIENTE.SetFocus
'cria valores padrões para os campos abaixo
Me.CADASTRO = Date
Me.USUARIO = xUser
Me.STATUS = "1"

Vou analisar e posto aqui, depois.
Por enquanto valeu!!!

Sem Comentários!!!