Salve a tutti,
chiusa la discussione precedente (vedi "Errore -2147467259") stasera sono alle prese con un altro errore (guarda un po') comunque "frutto" di quella discussione.
Per aggiornare il collegamento di alcune tabelle di un archivio *.mdb (di nome Gestione) alle tabelle di un altro archivio sempre *.mdb (di nome=Inventario) stasera ho trovato in rete questo codice che ho adattato alla mia situazione (=percorsi e nomi):
'Effettua il collegamento con le tabelle del DB Inventario
Dim dbGestione As DAO.Database
Dim Percorso As String
Dim i As Integer
Set dbGestione = OpenDatabase(App.Path & "\..\Archivio\Schedario\Gestione.mdb")
Percorso = App.Path & "\..\Archivio\Schedario\Inventario.mdb"
For i = 0 To dbGestione.TableDefs.Count - 1
If Len(dbGestione.TableDefs(i).Connect & "") > 0 Then
If Mid(dbGestione.TableDefs(i).Connect, 11) <> Percorso Then
dbGestione.TableDefs(i).Connect = ";database="& Percorso & ";Pwd= FalcoGiallo"
dbGestione.TableDefs(i).RefreshLink
End If
End If
Next i
Set dbGestione = Nothing
Quando l'esecuzione del codice arriva alla riga -dbGestione.TableDefs(i).RefreshLink- mi ritorna l'errore 3031 informandomi che la password non è corretta ... ovviamente il DB Inventario si apre solo se digito la psw "FalcoGiallo".
Qualcuno mi sa indicare la causa di questa "anomalia"?
Alcuni riferimenti: Access è il 2000; S.O. Windows XP SP3; nel progetto è inserito il riferimento DAO 3.6
Grazie in anticipo