MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Cópia não autorizada para esta máquina

    Compartilhe

    jcmenezes1960
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 08/05/2010

    Cópia não autorizada para esta máquina

    Mensagem  jcmenezes1960 em Dom 15 Dez 2013, 13:54

    Boa tarde amigos,

    Implementei o código abaixo no meu BD e funciona normal no Windows XP (Access 2003 ou 2007), porém quando instalo em maquinas com Windows 7, mesmo o arquivo estando no local, recebo a mensagem de CÓPIA NÃO AUTORIZADA PARA ESTA MÁQUINA.

    Private Sub Form_Open(Cancel As Integer)
    If Dir("c:\windows\system32\msgds.rtf") = "" Then
    MsgBox "CÓPIA NÃO AUTORIZADA PARA ESTA MÁQUINA !!!", vbExclamation, "::::  AVISO  ::::"
    DoCmd.Quit
    End If
    End Sub

    Mudei para o código abaixo, porém estando ou não o arquivo no local, o sistema é aberto.

    Private Sub Form_Open(Cancel As Integer)
    If Len(Dir("c:\windows\system32\msgds.rtf")) = "" Then
    MsgBox "CÓPIA NÃO AUTORIZADA PARA ESTA MÁQUINA !!!", vbExclamation, "::::  AVISO  ::::"
    DoCmd.Quit
    End If
    End Sub

    Onde errei? Ou é problema de configuração de segurança no Win7?

    Grato é um grande abraço a todos

    Menezes

    Marco Messa
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 28/06/2010

    Re: Cópia não autorizada para esta máquina

    Mensagem  Marco Messa em Seg 16 Dez 2013, 18:04

    Uma pergunta besta, mas você já viu se esse arquivo existe nesse caminho?
    c:\windows\system32\msgds.rtf

    Caso não existe sempre vai entrar no IF mesmo.


    .................................................................................
    Tea with me that I book your face [Você precisa estar registrado e conectado para ver esta imagem.]

    jcmenezes1960
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 08/05/2010

    Re: Cópia não autorizada para esta máquina

    Mensagem  jcmenezes1960 em Seg 16 Dez 2013, 20:01

    Boa tarde Marco

    O arquivo está no local especificado.

    Menezes

    Marco Messa
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 28/06/2010

    Re: Cópia não autorizada para esta máquina

    Mensagem  Marco Messa em Ter 17 Dez 2013, 10:19

    Bem, se o arquivo está no local especificado, não tem porque o código não retornar o nome do arquivo com o comando Dir. Pode ser também que tenha um arquivo com o mesmo nome porém com extensão diferente.
    Outra coisa, quando você faz a comparação com o comando Len, tem que ser "Len(Variável) = 0" ou "Len(Variável) > 0" pois ele retorna um valor numérico com o tamanho do texto.


    .................................................................................
    Tea with me that I book your face [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Seg 05 Dez 2016, 04:26