[Resolvido]Expirar banco de dados por tempo de uso

Boa noite queridos amigos do forum.

Tenho lido algumas coisas sobre "expirar banco de dados". Tipo, se a senha não for validada o banco trava e ninguém consegue mexer. Isso é possível? Será que uma iniciante como eu consigo fazer isso? Podem me ajudar?

Boa Tarde

O banco trava e ninguém pode mexer é um pouco ousado demais, mas á partida o cliente ou usuário final não estará assim tão interessado nisso.

Entre muitas, esta rotina é simples:

Permite 25 operações ou registros

Dim Id As Integer
Dim Msg, Style, Title
Msg = "Terminou o prazo para teste! Agradecemos o seu interesse" & Chr(13) & Chr(10) & "Contacte a xxxxxxx p.f. para registar o xxxxxxxx"
Style = vbInformation
Title = "Teste"
If DCount("ChavePrimária", "NomeTabela") >= 25 Then
Msg = MsgBox(Msg, Style, Title)
DoCmd.Quit
End If

Vieira,desculpe, mas não consegui entender muito bem.

Com esse codigo o usuário só poderá acrescentar 25 registros?

A minha dúvida é pq fiz um bd para um amigo e quero tentar com que ele não distribua para outras pessoas (pelo menos dificultar um pouco).

E achei interessante essa ideia de expirar o bd, mesmo porque quando eu quiser posso não valida-lo mais e assim dificultar um pouco que mexam numa ideia minha sem minha autorização.

Aí é muito mais complexo pois envolve ferramentas profissionais, como instaladores que permitem uma única instalação numa máquina ou um tempo determinado de uso, etc, etc. Se utiliza o 2003 não existem garantias de nada, pois é muito fácil crakar uma BD em 2003, mas o método ainda mais fidedigno para mim é colocar senha no VBA. Não é impossível, mas convenhamos que a BD teria que ser muito, muito especial, para um expert ter esse trabalho (peço desculpa pela forma como disse isto, mas não me refiro à sua BD, mas de uma forma global).

Desculpe que acabei por fazer um discurso e esqueci de responder:

1- Desta forma com o código que lhe passei se colocado no evento ao carregar do formulário conta até 25 registos. Quando abrir a BD no 26 esta informa que o prazo esgotou e fecha automaticamente

E para voltar a funcionar? Tem como fazer? Terei que manipular o codigo antes dos 25 registros?

Bom vamos então supor o seguinte;

1- Aplica esse código

2- Definir as opções de abertura da BD para não mostrar a Base de dados, rtc.

3- Definir uma senha para o VBA

4- Com uma aplicação externa (tem aqui no forum exemplos)travar a tecla shift

Para desbloquear terá que destravar a tecla shift, retirar o código e voltar a fechar tudo de novo.

Formulário que inicia o bd (menu de controle) ou o formulário principal onde os registros são colocados?

Neste caso estamos a contar por registros o que eu acho mais elegante que por tempo. Então vamos definir o número que entender. Eu coloquei para 25, mas pode ser um número maior ou menor.

Se colocar-mos no formulário de registros, por exemplo de clientes, estamos a limitar a 25 clientes. O código vai contar pela chave primária que poder o ID, por exemplo. Quanto atingir 25, desculpas e fecha.

Coloquei o código, substituindo Chave Primaria pelo nome da minha chave primária (Processo) e Nome da Tabela pelo nome da minha tabela (Processo Fundação Municipal) e não deu certo. Continua aceitando mais de 25 registros.

Experimentei agora aqui e bateu certo. Então é assim. se continuar a meter registros após o 25 sem fechar a bd, ele aceita, agora se fechar a bd e abrir a bd fecha.

Você colocou no evento load (ao carregar do formulário)?

Coloquei e ficou assim:

Private Sub Form_Load()

Dim Id As Integer
Dim Msg, Style, Title
Msg = "Por favor, contate o criador do Banco de Dados" & Chr(13) & Chr(10) & "Contacte a xxxxxxx p.f. para registar o xxxxxxxx"
Style = vbInformation
Title = "Aviso de Segurança"
If DCount("Processo", "[Processo Fundação Municipal") >= 25 Then
Msg = MsgBox(Msg, Style, Title)
DoCmd.Quit
End If


Ta indo para o depurador
End Sub

Dim Processo As Integer e não Id porque a sua chave primária chama-se Processo

Veja este exemplo. Substitui ID por Processo na ficha aluno. Verifique direitinho. Dentro de 2 horas retorno se precisar de tirar alguma dúvida.

http://dl.dropbox.com/u/8157744/escola.zip

Vieira, vc tinha me passado os seguintes itens:

1- Aplica esse código - resolvido

2- Definir as opções de abertura da BD para não mostrar a Base de dados, rtc.

3- Definir uma senha para o VBA

4- Com uma aplicação externa (tem aqui no forum exemplos)travar a tecla shift

Agota vou partir para o item 2.

Não poderia deixar de registrar que achei legal esse exemplo de bd de registro de alunos que colocou aqui. Vou copiar algumas ideias. rsrsrsrsrsrsrs

Ok, esse é simples mas então vamos substituir este pela senha VBA primeiro:

1- Abra um módulo qualquer de um formulário qualquer e aceda a Tools>>>nome da BD Properties>>>aparece uma caixa de diálogo, escolha o separador Protection, clique em Lock Project for viewing, defina uma password, confirme a password e feche. Feche a Bd, abra de novo e tente aceder ao código VBA.

1- Aplica esse código - resolvido

2- Definir as opções de abertura da BD para não mostrar a Base de dados, rtc. - resolvido

3- Definir uma senha para o VBA

4- Com uma aplicação externa (tem aqui no forum exemplos)travar a tecla shift

Passando para o iten 3.

Foi o código que está no tópico atrás do que postou agora, esse é o ponto 3

1- Aplica esse código - resolvido

2- Definir as opções de abertura da BD para não mostrar a Base de dados, rtc. - resolvido

3- Definir uma senha para o VBA - resolvido

4- Com uma aplicação externa (tem aqui no forum exemplos)travar a tecla shift

Agora vou ver o tópico que me indicou para o item 4

Tem aqui

http://maximoaccess.forumeiros.com/t929-ativa-desativa-tecla-shift

Desulpa Vieira, mas não entendi como esse formulário funciona. Pode me explicar?

1- Clique no botão junto á combo com 3 ... pontinhos e vai parecer um quadro de diálogo para que possa seleccionar a sua bd algures no seu disco. Clique na sua BD e depois em Desactivar para passar a tecla shift a false.

Consegui mexer, mas minha dúvida é a seguinte:

Tenho que copiar esse formulário para a máquina que estará funcionando o bd? Ou tenho que fazer alguma coisa no meu bd?

Fiquei meio perdida no que tenho que fazer

Desculpe a demora

Sim coloque no seu pc e faça isso a partir dele.

Se o arquivo estiver com a tecla shift bloqueada e eu copiar para outra maquina ele vai com a tecla bloqueada?

Isso mesmo Luciana. Se tiver que abrir a BD noutra máquina o melhor é andar com essa aplicação numa Pen.

Deixa só eu pitacar um pouquinho para não perder o costume: eu prefiro colocar isso no próprio aplicativo e colocar um formulário com uma senha que dê acesso a outro formulário aonde posso bloquear ou desbloquear o Shift. Assim, se eu por um acaso não estiver portando a app de desbloqueio, posso fazer uso do recurso mesmo assim. É só uma opinião

Para isso é só eu importar o formulário para meu bd?

Que não perdes o hábito eu sei, (rsrsrrs), mas não sou a favor dessa ideia. Uma PEN, passa para o pc, desactiva, activa, e faz delete.

Estando no pen drive parece ser mais prático e fácil, mas qualquer pessoa que tenha esse aplicativo consegue desbloquear. Estando no bd e protegido por senha não ficaria mais difícil?

Igual, pois basta ter essa BD para desbloquear. Por isso, metemos senha no vba, recorda-se! É mais uma forma de protecção.

Sem querer engrossar a discussão, eu acho mais simples e prático ter tudo em uma bd só. Com uma app externa, eu tenho que meter o pen no driver, abrir a pasta, abrir o aplicativo, digitar a senha, encontrar o bd a ser modificado para depois modificá-lo. Estando tudo junto, eu abro um form, digito a senha em um campo e lá está o form com os botões Bloquear e Desbloquer. Com uma senha no vba e a senha para abrir o form, pronto. Estando o banco dividido em front e back e o front convertido em mde, fica quase impossível que descubram a senha

Então com o faço isso Criquio?

MDE????? Então nem vale a pena dar-se ao trabalho porque não abre mais então!

Mas não é para abrir na estrutura não. É para abrir o formulário mesmo. Para o caso de ter que alterar a estrutura, fica valendo a cópia de backup, como em todos os casos, não?

Mas o importante é que fica a possibilidade de várias opções para a nossa amiga Lu. Para ela que está procurando aprender, todo novo conhecimento é importante

Gostaria de testar as duas opções.

Eu acho que a esta hora ela deve estar a coçar a cabeça e a ficar confusa. Na minha opinião e de muitos eruditos, Roma e Pavia não se fizeram num dia. Aqui é igual. Seguimos uma lógica de 4 pontos e cumprimos essa missão. Ter a BD internamente ou externamente é uma opção de cada um. Interno, dizes...OK, é só ter um botão que chama uma inputbox o que aliás a nossa amiga já fez isso, digitar uma senha e abrir o form. Questões de abordagem diferentes, eu prefiro levar na Pen a aplicação.

Vou seguir o conselho do Vieira e ficar com a ideia do pen drive (pelo menos por enquanto).

Como ele disse Roma e Paiva não se fizeram no mesmo dia. Estou engatinhado ainda para querer correr.

Por isso, tópico encerrado.

Abraços, e até mais

bom trabalho e depois de explorar bem essa etapa, pode voltar para aprender mais. Qualquer um de nós aqui terá todo o prazer em ajudar.

Pode ter a certeza que não vou demorar muito para abrir novo topico. Rsrsrsrsrsrs

Grande vieria estou tentando aqui
Tem como colocar a messagem dizendo ex:
e so aparecer uma vez (quando for aberto pela primeira vez)
"sistema limitado poderar fazer 25 registros"




Dim Id As Integer
Dim Msg, Style, Title
Msg = "Terminou o prazo
para teste! Agradecemos o seu interesse" & Chr(13) & Chr(10)
& "Contacte a xxxxxxx p.f. para registar o xxxxxxxx"
Style = vbInformation
Title = "Teste"
If DCount("ChavePrimária", "NomeTabela") >= 25 Then
Msg = MsgBox(Msg, Style, Title)
DoCmd.Quit
End If

E qual é o nome da tua chave primária?

Código

já olhei em varios exemplos
ex:
eles não aparecem a msg: dizendo que funcionara 30 dias

so parece a messagem quando expira

no meu ponto de vista tinha

que ter

a messagem avisando que bd funcionara por xxx

Coloca no mesmo evento Load do form:


Dim Código As Integer
Dim Msg, Style, Title
Msg = "Terminou o prazo
para teste! Agradecemos o seu interesse" & Chr(13) & Chr(10)
& "Contacte a xxxxxxx p.f. para registar o xxxxxxxx"
Style = vbInformation
Title = "Teste"
If DCount("Código", "NomeTabela") >= 25 Then
Msg = MsgBox(Msg, Style, Title)
DoCmd.Quit
Else
Call MsgBox("Tem 25 registos para fazer antes de eu me aborrecer e desligar", vbInformation, "Aviso")
End If

sim vieira agora ta aparecendo
("Tem 25 registos para fazer antes de eu me aborrecer e desligar", vbInformation, "Aviso")

tem como ela aparecer so uma vez
na primeira utilização do banco de dados

e depois não ser mas mostrada?

Experimenta

Dim Código As Integer
Dim Msg, Style, Title
Msg = "Terminou o prazo
para teste! Agradecemos o seu interesse" & Chr(13) & Chr(10)
& "Contacte a xxxxxxx p.f. para registar o xxxxxxxx"
Style = vbInformation
Title = "Teste"
If DCount("Código", "NomeTabela") >= 25 Then
Msg = MsgBox(Msg, Style, Title)
DoCmd.Quit
Else
If IsNull(Me.Código)Then
Call MsgBox("Tem 25 registos para fazer antes de eu me aborrecer e desligar", vbInformation, "Aviso")
End If
End If

da erro

If IsNull(Me.Código)Then

metodo não encontrado