Condividi:        

Access aiuto pseudo protezione

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Access aiuto pseudo protezione

Postdi Francesco53 » 24/02/12 18:49

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
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Sponsor
 

Re: Access aiuto speudo protezione

Postdi Flash30005 » 25/02/12 03:09

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Access aiuto speudo protezione

Postdi Francesco53 » 25/02/12 12:22

Grazie Flash tutto ok, cercherò di capire il secondo suggerimento sul file MDE,
vantaggi e funzionalità che non conosco.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: Access aiuto speudo protezione

Postdi Francesco53 » 26/02/12 10:40

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
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: Access aiuto speudo protezione

Postdi Flash30005 » 26/02/12 15:31

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Access aiuto pseudo protezione

Postdi Francesco53 » 28/02/12 09:18

Grazie Flash
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45


Torna a Applicazioni Office Windows


Topic correlati a "Access aiuto pseudo protezione":

aiuto windows 10
Autore: mod360
Forum: Software Windows
Risposte: 1
aiuto installazione
Autore: mod360
Forum: Software Windows
Risposte: 3

Chi c’è in linea

Visitano il forum: Nessuno e 78 ospiti