Άνοιγμα βάσης από άλλη βάση

[anestaki]

Καλημέρα σε όλους
Υπαρχή τρόπος να ανοίξουμε μια βάση δεδομένων από μια άλλη βάση με VB.

[editolis]

Application.FollowHyperlink "file://C:\MyDB.accdb"

[anestaki]

Καλημέρα Τόλη και σε όλους
Το ζητούμενο μου έχει αλλάξει και πρέπει να καταγράψω την διαδρομή για να χρησιμοποιήσω Application.FollowHyperlink “C:\Users\Γεώργιος\Desktop\expense_admin _trialv33\expense_admin_trialv3.51.accdb”
Με τ ο κομμάτι του παρακάτω προσπαθώ ανεπιτυχώς ,για τη μου εμφανίζει error 2147217900…… αυτό στην εικόνα.

DoCmd.Echo True, "Done"
    If UnProcessed.count < 1 Then
         MsgBox "Η σύνδεση με νέο αρχείο ήταν επιτυχής"
       path = Trim([Forms]![frmNewDatafile]![txtFilename])
       cn.Execute ("UPDATE tbl_epanergopiisi set path=('" & path & "')")
         DoCmd.OpenForm "frm_main"
    Else

[editolis]

Διορθωσε την διαδρομη με αυτη που σου γραφω...

Application.FollowHyperlink “file://C:\Users\Γεώργιος\Desktop\expense_admin _trialv33\expense_admin_trialv3.51.accdb”

[anestaki]

Τόλη σε ευχαριστώ για την άμεση απάντηση αλλά συνεχίζει να μου εμφανίζει το error στο UPDATE ενώ όταν το καλέσω Application.FollowHyperlink "file://" & DLookup("path", "tbl_epanergopiisi") λειτουργεί κανονικά.

Dim  path As String
 DoCmd.Echo True, "Done"
    If UnProcessed.count < 1 Then
         MsgBox "Η σύνδεση με νέο αρχείο ήταν επιτυχής"
       path = "file://" & Trim([Forms]![frmNewDatafile]![txtFilename])
       cn.Execute ("UPDATE tbl_epanergopiisi set path=('" & path & "')")
         DoCmd.OpenForm "frm_main"
        Application.FollowHyperlink "file://" & DLookup("path", "tbl_epanergopiisi")
    Else

[editolis]

Εαν θελεις κατεβασε ενα δειγμα της Βασης να το κοιταξουμε...

[anestaki]

Τόλη τις δύο συνεργαζόμενες βάσης θα τις στείλω με Email γιατί είναι μεγαλύτερες από 522k δεν μπόρεσα να τις συμπιέσω σε μικρότερα αρχεία και σε ευχαριστώ για το ενδιαφέρων σου εκ των προτέρων Γιώργος.
http://www.stellahellas.gr/expense_admin_trialv3.51.zip
http://www.stellahellas.gr/energopiisi.zip

[anestaki]

Καλησπέρα σε όλους
Μετά από πολύ αναζήτηση (δεν βοηθάνε τα αγγλικά μου) βρήκα αυτό και προς το παρόν φαίνεται ότι λειτουργεί όποια άλλη λύση δεκτή.

strTest = Dir([Forms]![frmNewDatafile]![txtFilename]) 
path = CurDir() & "\" & strTest