Newsgroup: it.comp.appl.access
Titolo: data protetta

Ho creato un DB che  funziona come demo per 30gg dopo si blocca
automaticamente.
Il mio problema č questo.
Al momento della prima apertura, imposta la data corrente  in una tabella
che determina la durata ed l'inzio del conteggio dei 30gg.
Ad ogni avvio viene verificato la data impostata  con quella corrente,
passati i 30gg non permette piů di aprirsi a meno chč non si inserisca un
codice che si genera tra una combinazione tra la partta iva e la ragione
sociale.
Volevo chiedere č possibile far si che alla prima apertura del DB scriva
direttamente su codice questa data anzichč in una tabella in maniera che i
piů esperti non rovistino nelle tabelle con conseguente " CRAK" del DB ?
Saluti Massimo
NB se ci fosse un altro sistema alternativo " che ben Venga "
Di nuovo Massimo.


Ciao,
utilizza questo Modulo di cui non mi ricordo l'autore per nascondere la
tabella, anche se metti nelle opzioni: mostra oggetti nascosti, non apparirà
le puoi mettere su apertura del Menu per esempio.
Function HideTbl(strTable As String, intHide As Integer) As Integer
'Nasconde o Mostra una tabella
'Accetta: intHide: True (-1) nasconde, False (0) rende visibile
'Ritorna: True se OK, False se errore
On Error GoTo HT_ERR
Dim TDef As TableDef, dbs As Database
Set dbs = CurrentDb
Set TDef = dbs.TableDefs(strTable)
Select Case intHide
Case True
If Not (TDef.Attributes And DB_HIDDENOBJECT) Then
TDef.Attributes = TDef.Attributes + DB_HIDDENOBJECT
End If
Case Else
If (TDef.Attributes And DB_HIDDENOBJECT) Then
TDef.Attributes = TDef.Attributes - DB_HIDDENOBJECT
End If
End Select
HideTbl = True
EXIT_HT:
Exit Function
HT_ERR:
HideTbl = False
MsgBox "Error: " & Err & " " & Error, 48
Resume EXIT_HT
End Function
poi su apertura Form mett: =HideTbl("Miatabella";-1)
spero ti sia d'aiuto
Giorgio

 ha scritto nel messaggio
news:99lq97$ee3$1...@news1.sunrise.ch...

Ci provo, penso che se riesco a farla funzionare sia la soluzione migliore
1000 grazie !!
Max


Ho provato ma non mi funziona, mi dà errore 13


Potresti pensare anche a questa soluzione, e cioč prevedere una funzione che
vada a vedere l'esistenza della tabella, e in caso negativo un bel quit
sull'applicazione. Cosě se qualcuno la toglie č peggio che andar di notte
 Ti riporto la funzione presa da 
www.sitocomune.com
Ciao
Public Function esiste_tabella(nome_tab As String, _
           Optional nome_dbs) As Boolean
   'Autore: Lbo
   'Accetta:
   ' nome_tab = nome della tabella da cercare
   ' nome_dbs = [Opz.] percorso+nome del database in cui cercare
   'Restituisce: true se la tabella esiste
   Dim dbs As Database
   Dim tdf As TableDef
   If IsMissing(nome_dbs) Then
      nome_dbs = CurrentDb.Name
   End If
   Set dbs = DBEngine.Workspaces(0).Databases(nome_dbs)
   For Each tdf In dbs.TableDefs
      If tdf.Name = nome_tab Then
         esiste_tabella = True
         Exit Function
      End If
   Next tdf
   esiste_tabella = False
End Function

 >
Ho scritto così   Call HideTbl(dati;-1)

 ha scritto nel messaggio
news:99r35n$sgr$1...@lacerta.tiscalinet.it...

deve essere tra "" cioé: =HideTbl("dati";-1)
Ciao
Giorgio

 ha scritto nel messaggio
news:99r68d$q7h$1...@news1.sunrise.ch...

Già fatto  ma non mi va ugualmente