Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Άνοιγμα βάσης από άλλη βάση (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/3947-anoigma-basis-apo-alli-basi.html)

anestaki 05-12-15 11:30
Άνοιγμα βάσης από άλλη βάση
 
Καλημέρα σε όλους
Υπαρχή τρόπος να ανοίξουμε μια βάση δεδομένων από μια άλλη βάση με VB.

editolis 06-12-15 09:28
Application.FollowHyperlink "file://C:\MyDB.accdb"

anestaki 06-12-15 10:04
1 Συνημμένο(α)
Καλημέρα Τόλη και σε όλους
Το ζητούμενο μου έχει αλλάξει και πρέπει να καταγράψω την διαδρομή για να χρησιμοποιήσω 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 06-12-15 10:31
Διορθωσε την διαδρομη με αυτη που σου γραφω...

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

anestaki 06-12-15 11:02
Τόλη σε ευχαριστώ για την άμεση απάντηση αλλά συνεχίζει να μου εμφανίζει το 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 06-12-15 11:18
Εαν θελεις κατεβασε ενα δειγμα της Βασης να το κοιταξουμε...

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

anestaki 06-12-15 17:02
Καλησπέρα σε όλους
Μετά από πολύ αναζήτηση (δεν βοηθάνε τα αγγλικά μου) βρήκα αυτό και προς το παρόν φαίνεται ότι λειτουργεί όποια άλλη λύση δεκτή.
Κώδικας:
strTest = Dir([Forms]![frmNewDatafile]![txtFilename])
path = CurDir() & "\" & strTest


Η ώρα είναι 09:52.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2