[access] nascondere tabelle da codice

[alexxxb]

Ciao,
ho bisogno di nascondere una sola tabella del mio mde, in modo che non ci si possa collegare esternamente da un altro db Access.
Naturalmente è inutile utilizzare la proprietà "nascosta" della tabelle perchè a chi si vuole collegare basterà attivare la visualizzazione degli oggetti nascosti...

Su Sitocomune (tables 1.4) ho trovato questo codice che dovrebbe fare quello che mi serve:

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

ma non capisco come utilizzarlo...
Nel senso: dove gli dico quale tabella voglio nascondere? Quando devo lanciare questa function?
Qualcuno mi sa aiutare?
Thanks

[borgodiavalon]

direi nel momento che apri la prima maschera del db. sull'evento apertura metterei:
HideTbl("NomeTuaMaschera", True ) oppure
HideTbl("NomeTuaMaschera", -1 )

almeno vedendo la parte di istruzioni inserite nel codice:

'Nasconde o Mostra una tabella
'Accetta: intHide: True (-1) nasconde, False (0) rende visibile

questa soluzione però mi sembra (ma potrei sbagliare) la versione in vba dell'utilizzo della proprietà "nascondi" che volevi evitare.

[alexxxb]

Non saprei, devo provare...
Nel frattempo però ho trovato questa semplicissima function che nasconde la tabella anche con la visualizzazione degli oggetti nascosti.
Testata e funzionante

CurrentDb.TableDefs("Products").Attributes = dbHiddenObject

Appena ho tempo provo anche la function che avevo postato prima