Newsgroup: it.comp.appl.access
Titolo: A07 e protezione a livello utente

Dopo la discussione con Cinzia sulla soppressione della protezione a livello 
utente in A07, ho contattato MS (anche perché avevo letto su Access 2007 
VBA - Programmer's Reference) che la protezione stessa era 'deprecata'.
Di fatto, l'assistenza tecnica mi ha indicato questa soluzione che, per 
coloro che intendessero usarla ancora, permette ad A07 di accedere ancora al 
vecchio file .mdw
Sub workgroupMGR()
    DoCmd.RunCommand acCmdWorkgroupAdministrator
End Sub
Mi č appena arrivata la mail di MS ed ho appena fatto in tempo a inserire la 
sub in un modulo bas verificando che, una volta chiamata, apre la la form 
"Amministratore fruppi di lavoro" per la creazione o adesione ad un gruppo.
Nei prossimi giorni mi prefiggo di valutare meglio tutto ciň :) (anche 
perché mi sembra che ci sia piů di un problema da risolvere, non ultimo il 
relink delle tabelle).
Ciao.
eSQueL

 adesione ad un gruppo. ...
È anche descritto qui:
http://support.microsoft.com/?kbid=918583
-- 
cu
Karl
*********
Access FAQ: 
www.donkarl.com/it
 

 ha scritto nel messaggio
news:64i4sdF...@mid.individual.net...

E' proprio vero che se cerchi selvaggina in un campo dove non ce n'è te ne
torni a casa col carniere vuoto. Era una settimana che spulciavo la msdn
alla ricerca di questo argomento senza riuscire a trovare un piffero!
E sul relink delle tabelle mi sapresti illuminare? :)
Se uso questo codice mi dà errore quando cerco di scrivere la proprietà
Value della ADOX.Table
  Dir = CurrentProject.FullName
  cn.Provider = "Microsoft.ACE.OLEDB.12.0"
  cn.Properties("Jet OLEDB:System database") = _
        CurrentProject.Path + "\System1.mdw"
  cn.Open "Data Source=" & CurrentProject.FullName & _
        ";User ID=MioID.;Password=MiaPass"
  For Each Tabella In Catalogo.Tables
    If Tabella.Type = "LINK" Then
      Set Prop = Tabella.Properties("Jet OLEDB:Link Datasource")
      Prop.Value = Dir'<---------------errore
    End If
  Next Tabella
Si può risolvere?
Grazie
eSQueL

 ...
Quale errore?
Manca anche il resto del codice per capirlo.
Dove si trova il codice?
Chiedo perché con
Prop.Value = Dir
vuoi assegnare il nome del database attuale (invece di
un db diverso) come Link Datasource.
Forse ti aiuta un esempio come questo:
http://groups.google.com/group/microsoft.public.it.office.access/browse_frm/thread/27de6210b4c63234/ff543d50fb3cdd9e
BTW "Dir" è un nome pericoloso per una variabile, perché
è anche il nome di una funzione di VBA.
-- 
HTH


 è anche il nome di una funzione di VBA.
Provvederò senz'altro a cambiarlo.
eSQueL


Errore di run-time -
2147467259
 (80004005) -> Oggetto non valido o non 
impostato.
Non capisco, l'oggetto Prop esiste. Se apro "variabili locali" posso vederlo 
e, da lì, riesco a verificare che Prop.Value esiste ed è in 
lettura/scrittura. Inoltre, la procedura non è nuova, funzionava 
perfettamente sia su A00, sia su A03.
Ciao.
eSQueL 

 ...
Esiste anche in quel momento, cioè con
debug.print Prop.Value
invece di
Prop.Value = Dir
?
Usi ACCDB o MDB? Per tutti e due?
-- 
cu


>>> ...

E se il db prima non ha avuto un password devi considerare
l'indicazione di Giorgio nel link postato:
"per questo caso devi cancellare il collegamento e ricrearlo"
-- 
HTH


 ha scritto nel messaggio 
news:64kan3F...@mid.individual.net...

Sì, cancellando i collegamenti e ricreandoli funziona.
Grazie a te e a Giorgio, mi avete risolto un bel mal di pancia :)
Ciao.
eSQueL