Newsgroup: it.comp.appl.access
Titolo: Errore di runtime con database diviso

Salve a tutti
Ho questo tipo di problema
come già avevo spiegato, una volta creato il mio pacchetto con il developer
del mio DB diviso, questi dopo averlo installato, all'avvio, quando mi
chiede username e password (autenticazione creata da me, non quella di
access, con tabella utenti gruppi e Dlookup vari). Mi da un generico ERRORE
DI RUNTIME, questo errore non mi viene generato se il DB non l'ho divito e
creo lo stesso pacchetto.
Cosa è?? è gravo dottore??
dico 33??
aspetto notizie
ciao
Claudio

 Se ti viene fuori Errore Di Run-Time ce qualche errore nella esecuzione
del codice
che durante la compilazione non riesce ad individuare poiché l'errore viene
generato solo
magari quando una parte di esso viene eseguito.
Ricontrolla il tutto per bene.
Ferrari rino

 ha scritto nel messaggio
news:IG9db.176723$R32.5...@news2.tin.it...

----------------------------------------------
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 Function
Questa è la funziona che richiamo dall'OK della maschera di autenticazione
all'avvio del DB
La cosa strana è che, se mi creo il pacchetto senza dividere il DB funziona
tutto correttamente, mi scatena questo misterioso errore solo con il db
diviso.
Proprio adesso ho fatto una prova, la tabella User, l'ho messa nell'FE, ma
anche così mi da errore quind non è imputabile alla locazione della tabella
Il codice per quanto scritto in maniera del tutto strana, da autodidatta,
funziona
Vi prego datemi una mano, sono davvero disperato, nn so proprio cosa fare
Claudio