Newsgroup: it.comp.appl.access
Titolo: Errore di runtime all'avvio, ricordate??

Purtroppo non so più cosa fare
di seguito riporto la funzione che uso per l'autenticazione dell'utente, la
quale penso sia la sospettata, infatti il tasto OK del forma autenticazione
mi richiama questa funzione e da li mi esce quel generico e sterile "errore
di runtime", purtroppo non capisco se vi è qualcosa che dia fastidio
Ripuntualizzo alcune cose:
1) con database NON diviso funziona regolarmente, sia solo con le runtime
che con access normale
2) con database diviso FUNZIONA solo su access e non su runtime
3) Ho provato a spostare la tabella USER sull'FE, anzichè lasciarla sul BE
ma mi da lo stesso errore
----------------------------------------------
Public Function User_id()
password = DLookup("[pwd]", "user_id", "user = '" & Forms!User_id.user &
"'")
gruppo = DLookup("[gruppo]", "user_id", "user = '" & Forms!User_id.user &
"'")
user = DLookup("[user]", "user_id", "user = '" & Forms!User_id.user & "'")
If conta < 2 Then
    If Forms!User_id.pwd = password Then
    DoCmd.Close acForm, "user_id"
    ID_Record_Log = RegistraLogin()
    DoCmd.RunMacro ("avvio_autenticato")
        If gruppo = "Progettisti" Then
        CommandBars("menu_principale").Enabled = True
        ElseIf gruppo = "Amministratori" Then
        CommandBars("menu_principale").Enabled = True
        CommandBars("menu_principale").Controls("Amministrazione").Enabled =
False
        ElseIf gruppo = "Utenti_completi" Then
        CommandBars("menu_principale").Enabled = True
        CommandBars("menu_principale").Controls("Amministrazione").Enabled =
False
        CommandBars("menu_principale").Controls("Gestione Utenti").Enabled =
False
        ElseIf gruppo = "Operatori" Then
        CommandBars("menu_principale").Enabled = True
        CommandBars("menu_principale").Controls("Amministrazione").Enabled =
False
        CommandBars("menu_principale").Controls("Contabilità").Enabled =
False
        CommandBars("menu_principale").Controls("Gestione Utenti").Enabled =
False
        CommandBars("menu_principale").Controls("Strumenti").Enabled = False
        End If
    Else
    MsgBox "Username o password errati", vbOKOnly + vbInformatiom,
"Attenzione..."
    Forms!User_id!user = Nothing
    Forms!User_id!pwd = Nothing
    Forms!User_id!user.SetFocus
    conta = conta + 1
    End If
Else
        MsgBox "N° tentativi esaurito", , "Alt..."
        DoCmd.Quit
End If
End Funciont
___________________________________________________________
Claudio

 ma mi da lo stesso errore
Crea una routine di gestione errori al fine d'individuare dove ti da errore.
Domanda se esegui sul Pc di sviluppo coll'opzione /Runtime funziona?
Ciao.

 Domanda:     se esegui sul Pc ...

 ha scritto nel messaggio
news:rhgdb.352285$lK4.11...@twister1.libero.it...

Per quanto riguarda una routine di gestione errore non saprei proprio come
fare
potresti darmi una mano?
Con l'opzione /Runtime funziona regolarmente
Ciao
Claudio

     If Forms!User_id.pwd = password Then
Strano, non so più cosa pensare
ciao

 Con l'opzione /Runtime funziona regolarmente
In tal caso puoi aver incontrato problemi in fase d'installazione o
registrazione componenti sulla macchina del cliente.
Per esempio nei riferimenti del tuo FE potrebbe esser stata associata una
versione scorretta di MSOXX.Dll, libreria necessaria per la manipolazione
delle Toolbars.
Una cosa del genere m'era capitata con la DEV di Access '97 su (alcuni) PC
parecchio pasticciati.
Ma è solo un'ipotesi: dovresti darci qualche dettaglio in più.
Ciao: Silvio

 Meglio consultare prima quello: c'è un pò di carne al fuoco...
[OT] Per fortuna è tornata la corrente, stendiamo un velo pietoso
sull'accaduto
Torniamo in carreggiata, allora.....
Ho provato a inserire questo nella funzione, leggendo un pò in giro tra
guide e post vari
On Error GoTo Err_val
Exit_val:
    Exit Function
Err_val:
    MsgBox Error$ & " - " & Err, , "Errore"
    Resume Exit_val
Bhè la cosa strana è che così come con la chiamata al riallineamento, non mi
da più errore, ma non mi carica alcuna barra degli strumenti
cosa faccio adesso??? lo butto dal balcone??
p.s. abito al piano terra
ciao
Claudio