Access aiuto pseudo protezione

[Francesco53]

Un saluto a tutto il Forum, vorrei cercare di poter evitare che si possa utilizzare una copia di un file access,
Partendo da una pseudo protezione di Excel, poi descriverò, vorrei sapere se si può utilizzare anche per Access
lo stesso metodo. In Excel

Codice: Seleziona tutto

If Me.Path <> "C:\Pippo" Then
   Application.DisplayAlerts = False
   Application.Quit
End If
If Dir(Me.Path & "\Prot.txt") = "" Then
   Application.DisplayAlerts = False
   Application.Quit
End If


Quindi succede che se il file non è nella directory C:\Pippo o non contiene il file Prot.txt nella stessa directory,
esce dal programma.
Vorrei sapere se è possibile realizzare qualcosa del genere da inserire nel file MDB e che svolga la stessa cosa.
Grazie a chi può darmi indicazioni su come realizzare il tutto.
Francesco

[Flash30005]

Crea una maschera con qualsiasi cosa sopra (es.: etichetta o pulsante)
salva
vai nella struttura e con tasto destro mouse seleziona la voce "genera evento"
all'interno del modulo inserisci questo codice

Codice: Seleziona tutto

Private Sub Form_Load()
If Application.CurrentProject.Path <> "C:\Temp" Or Dir(Application.CurrentProject.Path & "\Prot.txt") = "" Then
   Application.Quit
End If
End Sub

non devono esserci altri codici ma solo questo
chiudi e salvi
vai sul Menu Strumenti e selezioni Avvio, su visualizza Maschere/pagina
seleziona la maschera che hai creato chiudi salvando
ora se rispetta le condizioni il db si apre altrimenti si chiude appena aperto.

Comunque, la miglior cosa da fare, a database ultimato, compilare un file .mde

Ciao

[Francesco53]

Grazie Flash tutto ok, cercherò di capire il secondo suggerimento sul file MDE,
vantaggi e funzionalità che non conosco.
Francesco

[Francesco53]

Buongiorno Flash un' informazione,
volevo sapere se esiste in Access, l'opportunità di verificare come fà Excel il seguente parametro:
Environ("COMPUTER NAME")
in effetti vorrei realizzare la seguente procedura:
Ho una Tabella chiamata Computer con un unico campo vuoto NomePC.
Alla prima apertuta del file Access, il programma verifica se il campo NomePC
è vuoto, per cui memorizza in esso il dato Environ("COMPUTER NAME").
I successivi avvi, verifica se il campo non è vuoto, e nel caso raffronta il dato
letto nel Campo.NomePc con quello del PC in esecuzione, se diverso chiude l'applicativo.
Grazie
Francesco

[Flash30005]

dovrebbe funzionare con
Environ("COMPUTERNAME")

Come riportato da tabella delle opzioni di questa funzione

Codice: Seleziona tutto

1 : Environ("ALLUSERSPROFILE") = C:\Documents and Settings\All Users
2 : Environ("APPDATA") = C:\Documents and Settings\Administrator\Dati applicazioni
3 : Environ("CommonProgramFiles") = C:\Programmi\File comuni
4 : Environ("COMPUTERNAME") = IK2ZOK
5 : Environ("ComSpec") = C:\WINNT\system32\cmd.exe
6 : Environ("HOMEDRIVE") = C:
7 : Environ("HOMEPATH") = \Documents and Settings\Administrator
8 : Environ("LOGONSERVER") = \\IK2ZOK
9 : Environ("NUMBER_OF_PROCESSORS") = 1
10 : Environ("OS") = Windows_NT
11 : Environ("Os2LibPath") = C:\WINNT\system32\os2\dll;
12 : Environ("Path") = C:\Programmi\Microsoft Office\Office\;C:\WINNT\system32;C:\WINNT;C:\WINNT\System32\Wbem;C:\Programmi\Microsoft SQL Server\80\Tools\Binn\;C:\PROGRA~1\FILECO~1\AUTODE~1
13 : Environ("PATHEXT") = .COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH
14 : Environ("PROCESSOR_ARCHITECTURE") = x86
15 : Environ("PROCESSOR_IDENTIFIER") = x86 Family 6 Model 8 Stepping 3, GenuineIntel
16 : Environ("PROCESSOR_LEVEL") = 6
17 : Environ("PROCESSOR_REVISION") = 0803
18 : Environ("ProgramFiles") = C:\Programmi
19 : Environ("SystemDrive") = C:
20 : Environ("SystemRoot") = C:\WINNT
21 : Environ("TEMP") = C:\DOCUME~1\ADMINI~1\IMPOST~1\Temp
22 : Environ("TMP") = C:\DOCUME~1\ADMINI~1\IMPOST~1\Temp
23 : Environ("USERDOMAIN") = IK2ZOK
24 : Environ("USERNAME") = Administrator
25 : Environ("USERPROFILE") = C:\Documents and Settings\Administrator
26 : Environ("windir") = C:\WINNT


Senza mai lasciare spazi all'interno della stringa-opzione
(non "COMPUTER NAME")

Ciao

[Francesco53]

Grazie Flash