MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Outlook (Express), sonst. Mailprogramme
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 21.10.2017, 09:03   #1
s8884martin
Neuer Benutzer
Neuer Benutzer
Standard OL 2010 - 2. Aufruf von Microsoft Access

Hallo,

Ich habe das Problem, dass wenn ich den folgenden Skript aufrufe die Datenbank ein 2. Mal geöffnet wird, obwohl sie schon offen ist- wie kann ich das vermeiden?

Sub Datenbank()

Dim Pfad As String

'Einfach den Pfad ändern und das war's....
Pfad = "C:UsersS8884OneDriveDragonTools.accdb" '< XXX = Endung mdb, jpg, doc usw.
DateiOeffnen "open", Pfad, SW_MAXIMIZE
End Sub

Danke!

Martin
s8884martin ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.10.2017, 09:14   #2
mumpel
MOF Meister
MOF Meister
Standard

Hallo!

Du musst die Datenbank auch wieder schließen. Dann funktioniert es auch.

Besser wäre es wenn Du die Datenbank nicht per ShellExecute aufrufst, sondern über Access direkt, dann kannst Du Access auch sauber beenden lassen. Stichwort: CreateObject("Access.Application")

Gruß, René
mumpel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.10.2017, 09:21   #3
s8884martin
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

danke, das ist aber nicht meine Anforderung-wenn geöffnet, dann soll er die geöffnete Datenbank/Formular anzeigen-kannst Du noch bitte weiterhelfen?

Danke!
s8884martin ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.10.2017, 10:50   #4
mumpel
MOF Meister
MOF Meister
Standard

Welches Programm nutzt Du zur Anzeige der Datenbank?
mumpel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.10.2017, 10:50   #5
s8884martin
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Access 2016
s8884martin ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.10.2017, 11:31   #6
mumpel
MOF Meister
MOF Meister
Standard

Damit dürfte die Datei nur einmal geöffnet werden, und nur angezeigt werden wenn sie schon offen ist.

Option Explicit

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, _
                                                                              ByVal lpFile As String, ByVal lpParameters As String, _
                                                                              ByVal lpDirectory As String, ByVal nshowcmd As Long) As Long
     
 Public hWnd As Long
 Public Const SW_HIDE = 0          ' Versteckt öffnen 
 Public Const SW_MAXIMIZE = 3      ' Maximiert öffnen 
 Public Const SW_MINIMIZE = 6      ' Minimiert öffnen 
 Public Const SW_NORMAL = 1
 Public Const SW_RESTORE = 9
 Public Const SW_SHOWMAXIMIZED = 3
 Public Const SW_SHOWMINIMIZED = 2
 Public Const SW_SHOWMINNOACTIVE = 7
 Public Const SW_SHOWNOACTIVATE = 4

 Public Sub AccessDBOeffnen()
     Call ShellExecute(0, "open", Environ("USERPROFILE") & "\Desktop\S8884\Test.accdb", vbNullString, vbNullString, SW_MAXIMIZE)
 End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

mumpel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 23.10.2017, 17:44   #7
markusxy
MOF Koryphäe
MOF Koryphäe
Standard

@mumpel,
ich habs nicht getestet, aber nach welchem Prinzip soll die mehrfache Öffnung verhindert werden? Ich kann nichts erkennen.

Ich kenne nur die Möglichkeit durch exklusives öffnen, oder man prüft vorher ob die Datei offen ist.
markusxy ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 23.10.2017, 17:52   #8
mumpel
MOF Meister
MOF Meister
Standard

Bei mir wird die Datei nur einmal geöffnet. Ist sie bereits geöffnet wird nur Access in den Vordergrund geholt.
mumpel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 24.10.2017, 08:57   #9
markusxy
MOF Koryphäe
MOF Koryphäe
Standard

Also ich kann sowohl per Doppelklick via Shell, als auch per Code Aufruf via Shell mehrfach öffnen, sobald die Datei in einem Ordner liegt, dem Access vertraut, ansonsten wird auch nur einfach geöffnet.

LG Markus
markusxy ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 24.10.2017, 14:17   #10
s8884martin
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Fehler bei Einbinden

Public Const SW_HIDE = 0

ab dieser Zeile ist alles rot - fehlt ein Verweis, wenn ja welcher?

Danke!
s8884martin ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 24.10.2017, 14:51   #11
mumpel
MOF Meister
MOF Meister
Standard

Nein, einen Verweis braucht es nicht.
mumpel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:44 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.