Newsgroup: it.comp.appl.access
Titolo: Avvio database....

ciao,
ho fatto un database e per provare come veniva, ho modificato l'avvio
togliendo tutte le barre delle applicazioni.
Come faccio a ritornare alla normalita ???
in questa situazione non posso modificare piu nulla !

 ha scritto nel messaggio
news:TyE27.6911$1u2.2...@news.infostrada.it...

Prova tenendo premuto lo shift quando avvii l'mdb; poi ripristini le opzioni
di avvio...
Ciao.

 togliendo tutte le barre delle applicazioni.
Consiglio: la configurazione delle barre dei menù è memorizzata nel tuo PC,
se metti il DB su un altro PC vedi le barre come le ha configurate access su
quel PC.
Il modo migliore, imho, è di disabilitarle da codice, con qualcosa di simile
a quanto segue:
Dim cm As CommandBar
On Error Resume Next
For Each cm In CommandBars
  If cm.Visible = True Or cm.Enabled = True Then
    cm.Enabled = False
    Debug.Print "Nome=" & cm.Name
    Debug.Print " Visibile=" & cm.Visible
    Debug.Print " Abilitato=" & cm.Enabled
    Debug.Print " Tipo=" & cm.Type
  End If
Next
CommandBars("Form View Record").Enabled = True 'è la barra contestuale per
eliminare i record nelle maschere continue (clichk col tasto destro sul
selettore di record)'
CommandBars("Print Preview").Enabled = True 'permette di stampare un reporto
in anteprima di stampa
NOTA IMPORTANTE! Preparati una maschera che con due pulsanti faccia:
Private Sub Comando2_Click() 'nasconde menu
  CommandBars("Menu Bar").Enabled = False
  CommandBars("Formatting (Form/Report)").Enabled = False
  CommandBars("Form View").Enabled = False
  CommandBars("Database").Enabled = False
  CommandBars("Form Design").Enabled = False
  CommandBars("Toolbox").Enabled = False
End Sub
Private Sub Comando3_Click() 'abilita menu
  CommandBars("Menu Bar").Enabled = True
  CommandBars("Formatting (Form/Report)").Enabled = True
  CommandBars("Form View").Enabled = True
  CommandBars("Database").Enabled = True
  CommandBars("Form Design").Enabled = True
  CommandBars("Toolbox").Enabled = True
End Sub
Perchè altrimenti NON VEDI PIU' NESSUN MENU' NEANCHE SE CARICHI IL DB CON LO
SHIFT
NOTA IMPORTANTE 2: il codice sopra toglie anche la barra menu delle voci
"file, modifica, visualizza, ecc...."
Ciao, Max
P.S.: Falla la maschera che ti ho detto... altrimenti ti ritroverai come uno
che conosco che stava bestemiando perche via codice aveva si disabilitato i
menu... ma l'unico modo di riabilitarli a quel punto era col codice... che
non aveva! quindi fatti la maschera con i 2 pulsanti.
PPS: In extremis i comandi pre riabilitare i menù li puoi scrivere anche
nella finestra di debug (CTRL+G)
  CommandBars("Menu Bar").Enabled = True
  CommandBars("Formatting (Form/Report)").Enabled = True
  CommandBars("Form View").Enabled = True
  CommandBars("Database").Enabled = True
  CommandBars("Form Design").Enabled = True
  CommandBars("Toolbox").Enabled = True
e li rivisualizzi... ma con una mascherina apposta è più comodo :-)


Scusa dell'ignoranza, in quale posizione devo inserire il codice per
eliminare le barre degli strumenti?
grazie
ciao ciao
sdamy

 eliminare le barre degli strumenti?
Io ho una mascherina vuota apposta, nessun controllo, e solo il codice di
inizializzazione sull'evento Load, č la maschera che imposto di caricare
all'avvio del DB.
Toglie i menů, fa tutti i controlli del caso, ricollega le tabelle se
serve... e poi si chiude e carica la maschera col menu principale.
Max

 in anteprima di stampa
Scordavo una cosa importante... nonostante il codice riportato qui sopra...
non sempre i report hallo la loro barra di menu...
cosě in tutti i report la visualizzo per essere sicuro che ci sia.
In pratica sull'apertura del report faccio
 CommandBars("Print Preview").Enabled = True
 CommandBars("Print Preview").visible = True
ed in chiusura faccio
 CommandBars("Print Preview").visible = false
ciao, max


grazie mille,
non ho mai lavorato sulle barre dei menu,
i tuoi consigli mi saranno sicuramente
molto utili
ciao ciao
sdamy