Πρόβλημα με έλεγχο αξιοπιστιας database

[VagelisLik]

Καλημέρα. Έχω φτιάξει μια database, μέσα απο την οποία ανοίγω με εντολή*, δύο άλλες databases που βρίσκονται στον ίδιο φάκελο. Όταν ανοίγω τις δύο databases με την εντολή, ανοίγει η προειδοποίηση ασφαλείας του κέντρου αξιοπιστίας ενω όταν τις ανοίγω απ' ευθείας δεν υπάρχει θέμα. Το θέμα είναι ότι ο φάκελος είναι στις εξαιρέσεις κανονικά.


*
Private Sub Εντολή1_Click()
Call Shell("""C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE"" ""\\Vagelis-pc\Users\Vagelis\Desktop\PROGRAMS\ΣΕ ΛΕΙΤΟΥΡΓΙΑ\ADEIES ERGASIAS.accdb", 1)
End Sub

[Meteora]

Καλησπέρα
Ανοίγω μια άλλη βάση από την τρέχουσα, με χρήση μιας συνάρτησης, που τοποθέτησα στις modules, ώστε να την καλώ από οπουδήποτε.

Function OpenOtherDb(strDbPath As String)
  Dim objAcc As Object
   Set objAcc = CreateObject("Access.Application")
   objAcc.OpenCurrentDatabase strDbPath
   objAcc.UserControl = True
     Application.Quit
End Function

Με την τελευταία της εντολή κλείνω την ενεργό εφαρμογή...

Την εν λόγω συνάρτηση ενεργοποιώ μέσα από ένα κουμπάκι :

Private Sub btn_anathesi_Click()
    OpenOtherDb "C:\myaplic\anathesi.accdb"
End Sub

Με αυτά ελπίζω να λύσεις το πρόβλημά σου...

Καλή συνέχεια / Νίκος

[VagelisLik]

Νίκο σε ευχαριστώ πολύ για την απάντηση. Είναι πολύ καλύτερη η εντολή γιατί όπως είπες ανοίγει απο οπουδήποτε και ήδη την άλλαξα. Το θέμα όμως με την αξιοπιστία συνεχίζει να υφίσταται. Μήπως παίζει ρόλο ότι οι εφαρμογές βρίσκονται σε κοινόχρηστο φάκελος;

[Meteora]

Καλημέρα
Θα δω στο σχολείο τι παίζει με τους κοινόχρηστους, μιας και εκεί υπάρχει μια βάση που βρίσκεται σε κοινόχρηστο φάκελοι και 'παίζει' ανάμεσα σε δυο υπολογιστές. Στο Drobox -για παράδειγμα- ανοίγουμε την ίδια βάση διαφορετικοί χρήστες, από διαφορετικές περιοχές της Ελλάδας, χωρίς πρόβλημα.
Ό,τι συμβαίνει σε σένα δεν έχω την εμπειρία και επομένως δεν ξέρω τη λύση.
Αν έχεις πείσμα θα βρούμε τη λύση...

Φιλικά / Νίκος

[VagelisLik]

Νίκο το πρόβλημα λύθηκε. Προφανώς το θέμα ήταν με την κοινή χρήση του φακέλου. Δεν είχα δώσει πλήρη δικαιώματα, μόνο ανάγνωση - εγγραφή. Σε ευχαριστώ για όλα και συγνώμη για την ταλαιπωρία.

[Meteora]

Ωραία! πολύ ωραία. Όλοι είχαμε ωφέλεια και αυτό είναι το σημαντικό.

Φιλικά / Νίκος