[Resolvido]Bloquear uso do pc com formulário

Olá galera, mais uma dúvida.
Tenho um formulário de login e gostaria que ele bloqueasse o usuário a usar o pc, exemplo:
o usuario faz login ae ele libera seu acesso por certo tempo e depois bloquea novamente.
Como fazer isso em access?

Vá ao repositório de exemplos e procure por lá. Tem exemplos, um que me lembre do Mestre JPaulo...tempo de inactividade ou algo assim.

Tente este

http://maximoaccess.forumeiros.com/t2195-encerra-banco-se-inativo-durante-10-minutos

Olá mestre Vieira!
Não era bem esse meu objetivo, gostaria que quando o usuário fizesse login, ele tenha um tempo de por exemplo uma hora para acessar o computador. quando essa uma hora de utilização do computador(no exemplo)acabar, ele tipo que fosse bloqueado por um formulário, não deixando a pessoa utilizar nada do computador.

Amigão

Em VB até que é simples, em VBA e porque não temos um verdadeiro objecto cronómetro, teste assim:


Para que obtenha um formulário para time-out depois de um certo período de tempo fazer o seguinte:


4.Na seção Intervalo de tempo entre o intervalo de tempo para fechar (Por exemplo, 30000)

Para o intervalo do temporizador 1000 = 1 segundo, 60.000 = 1 minuto e 3.600.000 = 1 Hora

O Timer inicia assim que o formulário for aberto e note que o formulário deve estar aberto.

Quando não existem eventos activos ou não há nenhum evento inativos precisamos manter o relógio a zero, ou seja parar o tempo, certo!

Para fazer isso:


Private Sub Form_KeyPress(KeyAscii As Integer) Private Sub Form_KeyPress (KeyAscii As Integer)

Me.TimerInterval = 30000 Me.TimerInterval = 30000

End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Form_MouseMove Sub privada (Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.TimerInterval = 30000 Me.TimerInterval = 30000

End Sub

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) Private Sub Form_MouseWheel (Página ByVal Count, Boolean ByVal As Long)

Me.TimerInterval = 30000 Me.TimerInterval = 30000

End Sub


O código redefine o intervalo de tempo de volta ao nosso exemplo de valor de 30000, toda vez que uma tecla é clicada, ou a roda do mouse ou o mouse é movido sobre a formulário.

Se estes acontecimentos deixam de ocorrer após o tempo pré-determinado o sistema irá fechar o formulário

Teste, por favor.

Olá mestre vieira,
Não entendi bem o propósito desse código.
Poderia me explicar melhor???

No primeiro caso, estamos a definir o intervalo de tempo

No segundo caso estamos a excluir as passagens com o mouse

No terceiro caso estamos a excluir a roda do mouse.

Agora, este código conta o tempo de inactividade. Adapte-o ao que pretende, eu não o experimentei. De qualquer forma, o código do Mestre JPaulo, deve e pode ser certamente adaptado ao que pretende, tal como este.

Mas é porque eu não entendo nada de códigos e não sei adaptá-los, será se eu lhe fornecendo meu banco de dados você o adaptaria pra mim? Ou caso você poderia me explicar passo a passo com faço a adaptação, por favor.
Preciso muito desse formulário.
Obrigado, mestre vieria.

O banco de dados para download tá aqui:
http://www.4shared.com/document/jeLfBEMB/REA_DO_CLIENTE.html?

1- Definir o tempo no Timer

Intervalo no Cronómetro=30000

No Acontecimento do Cronómetro

Me.TimerInterval = 30000
DoCmd.Quit

Experimente assim de uma forma descomplicada

Não entendo é esse "no acontecimento do cronómetro.." é na parte no timer, das propriedades do formulário??

Propriedades do Formulário, Aba Acontecimento

No intervalo do Cronómetro, substituir o 0 por 3000 para experimentar

logo na linha a seguir, no procedimento do acontecimento colocar o código:

Me.TimerInterval=3000 (3000 é muito rápido, m as como é só para experimentar...)

Mestre Vieira, não estou conseguindo saber que acontecimento é esse pois no meu access(2010) tem assim:
Intervalo de Cronômetro: 3000
Ao alterar seleção:

Adapta aí, por favor, o código no bd e publica aqui que eu verei como é esse código.

Não tenho o 2010 amigão, para poder ver isso. Mas quando refiro a linha a seguir, é abrir o módulo VBA do form no evento do cronómetro.

Private Sub Form_Timer()
Me.TimerInterval = 3000
DoCmd.Quit
End Sub

pronto deu deu, mas eu gostaria assim o usuário não conseguisse acessar o computador sem fazer o login. como faço isso??

Vou postar um exemplo. Aguarde por favor.

Veja se gosta

Substitua o formulário1 que deve abrir pelo seu

http://dl.dropbox.com/u/8157744/Inicial.rar

Mas é que esse ele deixa o usuário mexer no pc sem login, eu quero tipo que se bloquei o pc e só desbloquei com o login.

Amigão

o seu utilizador só vai mexer no formulário depois de fazer o login nesse formulário, não entendi????

Mestre Vieira,
O utilizador não vai mexer no formulário e sim no computador

Amigo

Aí tem que definir no próprio computador e não na aplicação. Não acho muito correcto o que quer fazer, mas você é quem sabe.

Não, Mestre.
Deve ser simples. Eu só quero saber como faz para o formulário ficar fixado na tela só ele.

Ao fechar esse formulário através da acção do cronómetro. pode abrir um outro que fica fixo na tela, e depois como o vai fechar??????????Você não acha que está a complicar o simples? Se não quer que o utilizador interaja com a aplicação, tem que a fechar no limite do tempo e ao disparar o acontecimento do cronómetro. Pode utilizar ao invés de um form uma MSG personalizada e temporizada. No repositório de exemplos encontra isso, salvo erro do Colega TopBr ou Jungli.

Veja esta do Marco Messa

http://maximoaccess.forumeiros.com/t629-msgbox-com-tempo

Amigão.. eu baixei o teu exemplo...

Voce que que com o form em tela cheia o usuario não accesse o PC?

Se for isso o caminho é desabiiltar os atalhos do teclado..

Como:

Tecla Win
Tecla Ctrl
Tecla Del
Tecla Tab

ou seja todas as teclas que possam chamar a área de trabalho para frente do teu form access...


é isso que deseja?


Cumprimentos

Percebi que é um sistema para lan house...

A cada acesso voce mudará a senha para o usuário?

Amigão.. fiz algo pra ti...

Criei um cronometro... está como 15 segundos, mas pode modificá-lo para 3600 (1 hora)

Qual a lógica disso?

Simples..

1 - O form é aberto com o TimerInterval definido em 0
2 - Ao clicar em entrar ele é ativado como 1000
3 - o Form ficará invisivel
4 - ao cronometro zerar, o comando define novamente o timer interval como 0 e exibe novamente o form de login


** Modifiquei o nome do botao pois nele há codigos que não estao a funcionar pois falta componentes do bd
No novo nome apliquei apenas os codigos para que veja o funcionamento

Clique no botao entrar sem digitar nada na senha, so para ver como funciona...

Ao clicar em entrar o form ficará em oculto e será reexibido exatos 15 segundos após

Cumprimentos

http://dl.dropbox.com/u/26441349/Thiaguinho1_03_09_11.rar

Valeu Harysohn, era assim mesmo que eu queria que o bd ficasse. Muito legal!!
Obrigado também ao Mestre Vieira por ter esclarecido algumas dúvidas.
Fica o post para quem tiver a mesma dúvida que eu.

Thiaguinho1.

Resolvido

O Fórum agradece o Retorno.