freestuff.gr αρχική σελίδα
 FAQFAQ    ΑναζήτησηΑναζήτηση   Λίστα ΜελώνΛίστα Μελών   Ομάδες ΜελώνΟμάδες Μελών   <b>Εγγραφή Μέλους</b>Εγγραφή Μέλους 
 ΠροφίλΠροφίλ   Επιλογές μέλους Επιλογές   Τα bookmarks μου Τα bookmarks μου   Προσωπικά μηνύματαΠροσωπικά μηνύματα 
  διαφήμιση  

Καλώς ήρθατε στο forum μας! Για να συμμετάσχετε στις συζητήσεις θα πρέπει να είσαστε μέλος. Γίνετε μέλος τώρα!.

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


 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access
Moderators:  Super-Moderators, WebDev Moderators
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [3 Μηνύματα]      Bookmarks Tags: access Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
ΑποστολέαςΜήνυμα
infolava


Μέλος από: 03 Ιαν 2009
Μηνύματα: 2

View users profile
ΜήνυμαΣτις: 03 Ιαν 2009 19:10    Θέμα: Ανοιγμα και τρέξιμο αρχείου .mdb
Περιγραφή θέματος: Ανοιγμα μιάς εφαρμογής access μέσα από κάποια άλλη εφαρμογή access
Απάντηση με παράθεση  Mark this post and the followings unread

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

Μέλος από: 16 Σεπ 2005
Μηνύματα: 256+

View users profile Visit posters website
blog deviantART facebook linkedin 
ΜήνυμαΣτις: 03 Ιαν 2009 20:59    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

Φτιάξε ένα νέο 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


Μέλος από: 03 Ιαν 2009
Μηνύματα: 2

View users profile
ΜήνυμαΣτις: 03 Ιαν 2009 23:32    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

Το κατάφερω με την πολύτιμη βοήθειά σου.Σε ευχαριστώ ΘΕΡΜΑ.
Εμφάνιση Μηνυμάτων:   
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [3 Μηνύματα] Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access


Σχετικά θέματα
 Θέματα   Απ/σεις   Αποστολέας   Τελευταίο μήνυμα 
Δημιουργία Βάσης Δεδομένων MS Access με αντιστοιχιση σε γραφικό στοιχείο 1 Charalampos77 22 Ιουλ 2016 13:22
cordis Εμφάνιση τελευταίου μηνύματος
 
Τώρα είναι 03 Δεκ 2016 21:41 | All times are UTC + 2


Email This Page to Someone! add to Favorites

     Powered by p h p B B © 2001,2005 p h p B B Group
Για άμεση επικοινωνία με τον διαχειριστή του freestuff.gr στο email: freestuff.gr(παπάκι)gmail.com


Copyright © 1999-2013 Freestuff.gr All Rights Reserved  
Version Aegean, designed by N. Tsaganos