[Sql] - Creare tabelle nascoste

5 Risposte

• I

  iperione

  Utente Attivo

  Iscritto da

  dic, 2005

  Messaggi:

  100

  Re: [Sql] - Creare tabelle nascoste

  30 set 2007, 08:05

  Con sql non lo so fare, io uso visual basic e le nascondo e dopo devi impedire la creazione di query in quanto vengono richiamate
• D

  dartraf

  Pochi posts

  Iscritto da

  mag, 2005

  Messaggi:

  7

  Re: [Sql] - Creare tabelle nascoste

  30 set 2007, 13:17

  Con vb si potrebbe fare.
  Potresti dirmi come???
  Postami un po di codice.
  Tnks...
• C

  Chip

  Utente Attivo

  Iscritto da

  apr, 2005

  Messaggi:

  216

  Re: [Sql] - Creare tabelle nascoste

  01 ott 2007, 14:36

  Forse agendo sui profili delgi utenti?
• D

  dartraf

  Pochi posts

  Iscritto da

  mag, 2005

  Messaggi:

  7

  Re: [Sql] - Creare tabelle nascoste

  01 ott 2007, 21:16

  Profili degli utenti????
  E come??
• I

  iperione

  Utente Attivo

  Iscritto da

  dic, 2005

  Messaggi:

  100

  Re: [Sql] - Creare tabelle nascoste

  02 ott 2007, 08:02

  Usa questa funzione altrimenti crei due database un con una password uno con le tabelle uno con un link
  
  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)
  'Set TDef = dbs.Connection(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