Pesquise no PCFórum - Digite sua dúvida aqui
Bem-vindo, Visitante. Por favor efetue Login ou Registre-se
PCFORUM.com.br

    
Notícias:
  Home Fórum Notícias Anuncie AjudaLoginCadastre-se  
 

Páginas: 1 2 
BLOQUEIO DE PROGRAMA EM ACCESS (Lido 13327 vezes)   
McLuck


Offline

Prefiro a pior
verdade que a melhor
mentira

Postagens: 626
São José dos Campos
Re: BLOQUEIO DE PROGRAMA EM ACCESS
Resposta #8 - 28.06.2009 às 15:18:25
 
Bom.... é um tópico meio antigo este... Tongo

Mas como andei fora por um bom tempo, vamos ver.

Pelo que testei aqui, funciona perfeitamente...

Você só precisa colocar este código no evento ao abrir de seu formulário principal.

Código:
Dim Minhadata As String     'isto declara a variavel Minhadata
Dim Dia As Date, Mes As Date, Ano As Date  'isto cria a variavel Dia, mes e ano
Dia = 12   'isto especifica até que dia o programa irá funcionar
Mes = 9  'isto especifica ate que mes o prgrama funcionará
Ano = 2003 'e isto especifica até que ano
Minhadata = Dia & "/" & Mes & "/" & Ano

If Date > Minhadata Then
MsgBox "Este programa expirou, contate o administrador para obter o acesso novamente"
DoCmd.Quit
End If
 



Se tiver dúvidas ou falhar em algum ponto, poste ai que eu vejo o que pode estar errado...


Att,




McLuck
Voltar ao topo
 
 
Visualizar Perfil   IP registrado
PCRobô
Divulgador

Online

PCFórum, o mais completo fórum de informática do Brasil!

Postagens: 99999999
Brasil
Gênero: male
Anúncios

Voltar ao topo
Email Visualizar Perfil IP registrado
gilsonmcr


Offline

I love YaBB 1 Gold!

Postagens: 30

Re: BLOQUEIO DE PROGRAMA EM ACCESS
Resposta #9 - 20.01.2010 às 11:07:38
 
bom dia!

tempos atras pedi ajuda para fazer um bloqueio num programa em access abaixo esta o que vc me passou:

Private Sub Form_Open(Cancel As Integer)            'isto significa que deve colocar esta ação no evento ao abrir, se colocar for colocar pela propriedade do formulário, então não precisa digitar a linha de comando anterior.

Dim Minhadata As String     'isto declara a variavel Minhadata
Dim Dia As Date, Mes As Date, Ano As Date  'isto cria a variavel Dia, mes e ano
Dia = 12   'isto especifica até que dia o programa irá funcionar
Mes = 9  'isto especifica ate que mes o prgrama funcionará
Ano = 2003 'e isto especifica até que ano
Minhadata = Dia & "/" & Mes & "/" & Ano  

If Date > Minhadata Then
MsgBox "Este programa expirou, contate o administrador para obter o acesso novamente"
DoCmd.Quit
End If

End Sub

ok!

fiz ele! mas o que esta acontecendo coloquei a data de hoje 20/01/2010 para  testar o procedimento ele bloqueia o programa legal, so que depois que coloco outra data 20/01/2011 para bloquear, ele continua bloqueando, vc pode me dizer porque ele faz isso?


aguardo sua resposta

att...

Gilson
Voltar ao topo
 
 
Visualizar Perfil   IP registrado
McLuck


Offline

Prefiro a pior
verdade que a melhor
mentira

Postagens: 626
São José dos Campos
Re: BLOQUEIO DE PROGRAMA EM ACCESS
Resposta #10 - 20.01.2010 às 12:06:20
 
Ok... Nem me recordava mais disto, mas você tem razão. Por alguma razão não está funcionando.
Bom, aqui vai uma alternativa. O mesmo código com algumas pequenas alterações.

Código:
Private Sub Form_Load()

Dim Minhadata As String     'isto declara a variavel Minhadata
Dim Dia As String, Mes As String, Ano As String  'isto cria a variavel Dia, mes e ano
Dia = "19"   'isto especifica até que dia o programa irá funcionar
Mes = "01"  'isto especifica ate que mes o prgrama funcionará
Ano = "2010" 'e isto especifica até que ano
Minhadata = Dia & "/" & Mes & "/" & Ano

'converte para data
Dim dt As Date
dt = Minhadata

If Date > dt Then
MsgBox "Este programa expirou, contate o administrador para obter o acesso novamente"
DoCmd.Quit
End If

End Sub

 



O que mudou:
- Dia, Mes e Ano são variáveis do tipo String aqui;
- Depois de montada a data que eu desejo que expire o programa numa String, converto ela para uma data;
- A conparação (if) é feita com a data atual do sistema e a data que voce montou;


Espero que ajude.


Att,



McLuck
Lucas Israel
Voltar ao topo
 
 
Visualizar Perfil   IP registrado
Luciana-bio


Offline

Indique o PCFORUM
para seus amigos!

Postagens: 1

Re: BLOQUEIO DE PROGRAMA EM ACCESS
Resposta #11 - 18.03.2011 às 18:57:03
 
E como faço para desbloquear?
Voltar ao topo
 
 
Visualizar Perfil   IP registrado
gunsroses


Offline

Indique o PCFORUM
para seus amigos!

Postagens: 1

Re: BLOQUEIO DE PROGRAMA EM ACCESS
Resposta #12 - 08.08.2011 às 09:19:12
 
existem vírus para o programa Access
Voltar ao topo
 
 
Visualizar Perfil   IP registrado
PCRobô
Divulgador

Online

PCFórum, o mais completo fórum de informática do Brasil!

Postagens: 99999999
Brasil
Gênero: male
Anúncios

Voltar ao topo
Email Visualizar Perfil IP registrado
carlosbell10


Offline

Indique o PCFORUM
para seus amigos!

Postagens: 2

Re: BLOQUEIO DE PROGRAMA EM ACCESS
Resposta #13 - 26.12.2016 às 18:01:43
 
eu alterei a data no meu pc , e ele abriu normal, tem como conseguir algum codigo que nao abra qdo alterar a data do pc
Voltar ao topo
 
 
Visualizar Perfil   IP registrado
carlosbell10


Offline

Indique o PCFORUM
para seus amigos!

Postagens: 2

Re: BLOQUEIO DE PROGRAMA EM ACCESS
Resposta #14 - 26.12.2016 às 18:26:07
 
como fazer para construir um código . Assim o usuário, mesmo atrasando o relógio, não terá acesso ao programa depois que expirar.
por favor me ajudem , desde ja obrigado
Voltar ao topo
 
 
Visualizar Perfil   IP registrado
Páginas: 1 2 



Visite nossa página inicial e veja mais dicas e conteúdos! Clique aqui!!