Ανοιγμα και τρέξιμο αρχείου .mdb

Συζητήσεις για την τοπική βάση δεδομένων Access της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
infolava
Δημοσιεύσεις: 2
Εγγραφή: 03 Ιαν 2009 18:46

Ανοιγμα και τρέξιμο αρχείου .mdb

Δημοσίευση από infolava » 03 Ιαν 2009 19:10

Πρώτα να ευχηθώ καλή χρονιά και να ευχαριστήσω για την φιλοξενία, αφού είναι η πρώτη μου επικοινωνία.
Προσπαθώ κάποια πράγματα σε εφαρμογές access που έχω φτιάξει (ερασιτεχνικά) και θα ήθελα τη βοήθεια σας. Συγκεκριμένα θα ήθελα πατώντας ένα κουμπί εντολής σε μιά φόρμα μιας εφαρμογής που δουλέυω π.χ. ΕργασίαΕκτός.mdb , να ανοίγει μιά άλλη εφαρμογή π.χ.Αντίγραφα.mdb που βρίσκεται σε γνωστή θέση. Νομίζω ότι γίνεται , αλλά οι δυνατότητές μου δεν επιτρέπουν τη γραφή του σωστού κώδικα.
Εκ των προτέρων ευχαριστώ
Αν δεν έγινα αντιληπτός μπορώ να επανέλθω με περισσότερες λεπτομέρειες.

Άβαταρ μέλους
dva_dev
Script Master
Δημοσιεύσεις: 3790
Εγγραφή: 16 Σεπ 2005 01:32
Επικοινωνία:

Ανοιγμα και τρέξιμο αρχείου .mdb

Δημοσίευση από dva_dev » 03 Ιαν 2009 20:59

Φτιάξε ένα νέο module και βάλε τον παρακάτω κώδικα (από το http://support.microsoft.com/kb/170918)

Κώδικας: Επιλογή όλων

      Option Explicit

      Private Declare Function ShellExecute Lib "shell32.dll" Alias _
      "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As _
      String, ByVal lpszFile As String, ByVal lpszParams As String, _
      ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long

      Private Declare Function GetDesktopWindow Lib "user32" () As Long

      Const SW_SHOWNORMAL = 1

      Const SE_ERR_FNF = 2&
      Const SE_ERR_PNF = 3&
      Const SE_ERR_ACCESSDENIED = 5&
      Const SE_ERR_OOM = 8&
      Const SE_ERR_DLLNOTFOUND = 32&
      Const SE_ERR_SHARE = 26&
      Const SE_ERR_ASSOCINCOMPLETE = 27&
      Const SE_ERR_DDETIMEOUT = 28&
      Const SE_ERR_DDEFAIL = 29&
      Const SE_ERR_DDEBUSY = 30&
      Const SE_ERR_NOASSOC = 31&
      Const ERROR_BAD_FORMAT = 11&

      Function StartDoc(DocName As String) As Long
          Dim Scr_hDC As Long
          Scr_hDC = GetDesktopWindow()
          StartDoc = ShellExecute(Scr_hDC, "Open", DocName, _
          "", "C:\", SW_SHOWNORMAL)
      End Function
Στη φόρμα σου στο κουπί που θέλεις πιάσε το OnClick event και συμπλήρωσε τη function που φτιάχνει με τον εξής κώδικα:

Κώδικας: Επιλογή όλων

dim ret as long
ret = StartDoc("c:\...όπου έχεις το αρχείο...\Αντίγραφα.mdb")
Γενικά το support.microsoft.com όπως και το msdn.microsoft.com έχουν αρκετά παραδείγματα.

infolava
Δημοσιεύσεις: 2
Εγγραφή: 03 Ιαν 2009 18:46

Ανοιγμα και τρέξιμο αρχείου .mdb

Δημοσίευση από infolava » 03 Ιαν 2009 23:32

Το κατάφερω με την πολύτιμη βοήθειά σου.Σε ευχαριστώ ΘΕΡΜΑ.

Απάντηση

Επιστροφή στο “MS Access”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες