Newsgroup: it.comp.appl.access
Titolo: Messaggio "Activex can't create ..."

Ho scritto un'applicazione con A97 (per compatibilità di alcuni 
clienti), convertita in A2000 e l'ho data da installare su di un PC con 
A2002 SP3.
Su questo PC quando la eseguo ritorna l'errore "activex can't create 
object" (senza indicazioni di che oggetto in particolare) e si chiude 
senza darmi altre indicazioni.
Il cliente purtroppo mi sta pressando, ma io ho provato su altre 
macchine e non ho avuto problemi.
Potete aiutarmi?
ciao
Nicky
La parte interessata all'apertura dell'applicazione è la seguente:
Option Compare Database
Option Explicit
Dim Titolo As String
Dim AllOk As Byte
Dim rLogin As String, rPwd As String
Private Sub Connessione()
     Dim wrkspc As Workspace
     Dim e As Variant
     Dim connection1 As connection
     Dim qdf As QueryDef, rst As Recordset
     Dim ElencoAziende As String
     Dim StringaSQL As String
     On Error GoTo connection_err
     If IsNull(Me!pwd) Then
         Me.pwd.Value = "SYS"
     End If
     ' Crea un oggetto Workspace
     Set wrkspc = CreateWorkspace("", "admin", "", dbUseODBC)
     ' Apre una connessione a diap32
     Set connection1 = wrkspc.OpenConnection("DIAP32", , , 
"ODBC;DATABASE=DIAP32;UID=" & Trim(Me!login) & ";PWD=" & Trim(Me!pwd) & 
";DSN=QQQ")
     Set qdf = connection1.CreateQueryDef("", "SELECT LOGIN,CODOPR FROM 
SYSADM.GWLOGPWD WHERE LOGIN='" & Trim(Me!login) & "'")
     Set rst = qdf.OpenRecordset(dbOpenSnapshot)
     If rst.EOF Then GoTo connection_err
     Me!CodiceOperatore = rst!CODOPR
     rst.Close
     qdf.Close
     'Estrae aziende abilitate
     On Error GoTo grant_err
     If Me!CodiceOperatore = 1 Then
         StringaSQL = "SELECT CODAZI, RAGSOA FROM GWAZIENDA "
     End If
     Set qdf = CurrentDb.CreateQueryDef("", StringaSQL)
     Set rst = qdf.OpenRecordset()
     If rst.EOF Then
         MsgBox "Nessuna azienda abilitata"
         DoCmd.GoToControl "Login"
     End If
     gElencoAziende = ""
     Do While Not rst.EOF
         gElencoAziende = gElencoAziende & rst!CODAZI & ";" & rst!ragsoa 
& ";"
         rst.MoveNext
     Loop
     rst.Close
     qdf.Close
connection_exit:
     On Error Resume Next
     rst.Close
     qdf.Close
     connection1.Close
     wrkspc.Close
     'Set connnection1 = Nothing
     Set rst = Nothing
     Set qdf = Nothing
     Set wrkspc = Nothing
Exit Sub
grant_err:
     e = Err
     MsgBox "Impossibile per " & Trim(Me!login) & " leggere i parametri 
utente. Errore " & Str(e)
     'DoCmd.GoToControl "Login"
     Resume connection_exit
connection_err:
     e = Err
     MsgBox "Impossibile per " & Trim(Me!login) & " connettersi. Errore 
" & Str(e) & vbCrLf & "Chiusura applicazione"
     DoCmd.Quit
     Resume connection_exit
End Sub

 ha scritto nel messaggio 
news:ZaSKd.788246$35.30...@news4.tin.it...

Dallo stesso modulo, dal menù strumenti, controlla i riferimenti. Vedrai che 
uno di questi è assente nel pc del cliente.
Ciao, Carlo 

 
Quelli selezionati sono Visual basic for applications
microsoft access 8.0 obj library
microsoft DAO 3.51 obj library
che pensavo fossero il minimo indispensabile
quale pensi che possa "normalmente" mancare?
Come faccio a farglielo installare?
ciao
Nicky

 ...
Prima prova se non si tratta del solito problema con DAO:
www.donkarl.com/it
 FAQ 7.9
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
+info sulla prima Conferenza Italiana per Sviluppatori di Access (CISA1)