Buonasera a tutti,
ho in parte risolto un problema che mi stava ossessionando da un po' di tempo ed ora se ne è presentato un altro.
Ho riaperto un piccolo programmino di un database che avevo fatto un po' di anni fa ed ho ne ho creato un portable con il software cameyo (in modo da portarmelo su una chiavetta usb). Va tutto bene se il il file mdb si trova nella cartella dove l'ho installato per creare l'eseguibile portable con cameo. Se però sposto tutto in un altra cartella (eseguibile e file mdb) mi dice che non trova più il file mdb (Scusate il giro di parole, ma ho cercato di spiegare la situazione).
Ci sarebbe un modo per risolvere il problema. Ecco il codice che ho utilizzato.
Public Function ApriDB_Personale()
On Error GoTo RigaErrore
Set DB = OpenDatabase(App.Path & "\archivio.mdb", False, False, "; pwd=12345")
abc = schermata_generale.lbl_tipodb.Caption
Set rs = DB.OpenRecordset("SELECT * FROM " & abc & " ORDER BY voce")
Exit Function
RigaErrore:
errormsg = MsgBox("Impossibile trovare archivo.mdb!", vbCritical, "Errore")
End
End Function
Grazie