[Resolvido]Path not found

Provávelmente Mestre J. Paulo

Pensei que a minha mudança de vb6 para access e VBA fosse mais fácil, mas não é, embora digam o contrário:

Em algumas pequenas aplicações que fiz utilizava isto para as passwords:

1- Módulo


Option Explicit

Global Serial As String

Public Sub MyApp()
Serial = "c:windowssystem32Serial.txt"
End Sub
..........................................
2- No evento de 1 botão de comando
Dim sTemp As String

Open Serial For Input As #1

Do While Not EOF(1)
Line Input #1, sTemp$
If Left$(sTemp$, Len(txtpassword)) = txtpassword Then Exit Do
Loop

Close #1
If sTemp$ = txtpassword Then
Label1.Caption = sTemp$ & " Password válida"
Else
MsgBox "Password inválida", vbOKOnly, "Password"
Label1.Caption = ""
txtpassword = ""
End If

3-No evento Load do Form

Public My app()
txtPassword=""
...........

O Mestre já percebeu...Chaves de activação eram durante o processo de instalação colocadas no syestem32 e depois eram confrontadas se válidas com a que o utilizador recebeu.

O problema é que o access não aceita isto e diz-me que o Path é inválido:
Open Serial For Input As #1

Se lhe dou o caminho C:Easy...por aí, ele cisma com o loop e se não é o loop cisma com qualquer outra coisa....

Quando o mestre tiver paciência........Obrigado

No módulo;

Option Explicit

Public Function Serial()
Serial = "c:windowssystem32Serial.txt"
End Function

O For Input As #1 não funciona com Sub`s apenas com funções ou variáveis.

Fiz várias experiências, mas o Path not found mantém-se. Atrevo-me a perguntar: Existe outro método para isto? No VB6 aquilo funciona. Precisava que o utilizador ao digitar a password o código verifica-se se dentro do txtSerial corresponde ou não. Se existe abre outro form e não mais volta a ser visualizado. Se puder ajudar agradeço.

Não dá para postar as barras de separar pastas e arquivos mas com certeza o amigo está colocando elas né?

Não sei o porquê mas o fórum não está a permitir a colocação de barras para a esquerda, alguma anomalia que espero esteja resolvida brevemente.

Option Explicit

Public Function Serial()
Serial = "c: Barra windows Barra system32 Barra Serial.txt"
End Function

Fiz testes e funcionou no 2003, 2007 e 2010.

Veja o meu teste, mas o txt tem de estar no diretorio correto;

http://www.speedyshare.com/files/22851662/Vieira_I.rar

Também reparei nisso quando pus o Post e pensei ser erro meu, voltei a corrigir e depois ao gravar a mensagem voltou a tirar as barras. No código enviado coloquei as barras.

Mestre, o ficheiro que me enviou está em formato ...Vieira_I.accdb...não tenho como abri-lo. Provávelmente enganou-se no ficheiro a enviar.

Estava em 2007, já converti.

Coloque o txt em c: Windows System32 e teste;

http://dl.dropbox.com/u/771097/teste_vieira.rar

Mestre experimentei dentro do seu próprio exemplo e funcionou muito bem, mudei a extensão do .txt para .DLL e funcionou OK.

Muito obrigado

Mestre

Estou a experimentar outro problema. Liguei o frmactiva à tabela1 para que a password fosse gravada na tabela e no evento open do form ele verifica se a password está preenchida e se está nem aparece e vai para o form seguinte. O problema é que depois de ligar à tabela insiro a password e não sai do sítio, ou seja faço o OK para validar e nada acontece. Se fechar o form e depois voltar abri-lo ele cumpre a segunda parte ou seja passa para o form seguinte. O que estarei a fazer errado? É que se o desvincular da tabela ele aceita a password, mas cada vez que abrir a aplicação pede a password de novo, se o ligar à tabela 1 que recolhe a password, não faz o ok e não avança.

Como a bola de cristal já se partiu, não consigo ver como está a fazer.

Coloque aqui os códigos dos eventos, ou um exemplo.

Mestre desculpe te-lo incomodado por nada. Tudo funciona bem.bAo colar o código(meu) não levei uma letra junto e por isso bloqueava. Tantas voltas dei e só agora vi o erro.

Desculpe e obrigado