Newsgroup: it.comp.appl.access
Titolo: Errore all'apertura del Pannello comandi (potete aiutarmi voi?)

Salve, ho un problema con la maschera "Pannello Comandi" che mi sta
tormentando da un po' di giorni.Premetto che non ho molta esperienza in
questo campo , quindi vi prego di comprendere e correggere i miei errori.
La situazione è questa: ho creato un pannello comandi sullo stile di quello
che access crea nei database di esempio(si attiva all'apertura del
database).Il database è stato creato in access '97, ed è composto da un BE e
un FE.Fino a quando ho testato il software a casa, sul mio pc (Access 97)
tutto era a posto.Nel momento in cui sono andato a copiare il software sul
pc dell'azienda (Access 2000), ho creato un'altro gruppo di lavoro per
proteggere il software a livello utente.All'apertura di access mi sono
loggato come Amministratore ,solo che ovviamente mi sono accorto di non
essere piu' considerato da Access il proprietario del mio database in quanto
creato da un'altro gruppo di lavoro.Così per diventare proprietario e avere
pieno controllo sul database, ne ho creato un'altro (BE ed FE) da zero ed ho
importato tutti gli oggetti del database creato a casa.Il risultato è stato
che sono diventato Amministratore e propietario, ma il "nuovo" Software
presenta i seguenti problemi :
1- Il "Pannello Comandi" non viene piu' attivato all'apertura del database;
2- Se si apre la stessa maschera manualmente il codice VBA genera il
seguente errore: "Errore di compilazione - Tipo definito dall'utente non
definito".Il compilatore inoltre si blocca all'ingresso della funzione
Form_Open che riporto in seguito:
Private Sub Form_Open(Cancel As Integer)   <------------esattamente qui
' Riduce a icona finestra database e inizializza maschera.
    Dim dbs As Database  <----------- viene evidenziata anche questa
dichiarazione
    Dim rst As Recordset
On Error GoTo Form_Open_Err
    ' Riduce a icona la finestra database.
    DoCmd.SelectObject acForm, "Pannello comandi", True
    DoCmd.Minimize
    DoCmd.Hourglass False
    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset("Informazioni sulla società")
    If rst.RecordCount = 0 Then
      rst.AddNew
      rst![Indirizzo] = Null
      rst.Update
      MsgBox "Prima di utilizzare questa applicazione è necessario immettere
il nome della società, l'indirizzo e le informazioni correlate."
      DoCmd.OpenForm "Informazioni sulla società", , , , , acDialog
    End If
    rst.Close
    dbs.Close
    ' Si sposta alla pagina predefinita del pannello comandi.
    Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Impostazione
predefinita' "
    Me.FilterOn = True
Form_Open_Exit:
    Exit Sub
Form_Open_Err:
    MsgBox Err.Description
    Resume Form_Open_Exit
End Sub
------------------------------------------------------
Cosa vuol dire questo tipo di errore?
Come mai nel database fatto a casa (che ha lo stesso identico codice) tutto
funziona perfettamente?
L'unica differenza è legata al nome del database . Nel codice pero' non
viene fatto nessun riferimento a nome del dB.E' possibile che dipenda da
questo?
Puo' dipendere dalla versione di office?
Io non so piu' cosa pensare.Le ho provate tutte.Probabilmente mi sfugge
qualcosa che non so.
Avete idea di quale possa essere il problema?
Potete perfavore aiutarmi voi?
Grazie per l'attenzione
Ciao a tutti.

...

Era un problema di librerie.....
ho dovuto settare manualmente alcune librerie che non erano state caricate.
Non mi riconosceva l'oggetto Database.....Adesso è di nouvo tutto ok. ;-)
Grazie comunque