Office: (Office 2010) Mehrfachstart einer DB verhindern /sharepoint

Helfe beim Thema Mehrfachstart einer DB verhindern /sharepoint in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Ich habe das Problem das eine Access-DB über einen Sharepoint und einen Database-Loader gestartet wird. Da in der bisherigen Version mit Access 2003... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von cheaptrick, 22. Januar 2012.

Seite 1 von 3

CHEAPTRICK

cheaptrick

Mehrfachstart einer DB verhindern /sharepoint

Ich habe das Problem das eine Access-DB über einen Sharepoint und einen Database-Loader gestartet wird.
Da in der bisherigen Version mit Access 2003 aufgrund des eingebetteten VBA-Codes immer eine Sicherheitswarnung kam, wurde, warum auch immer, die Datenbank doppelt gestartet.
Nach längerem Googeln hatte ich seinerzeit eine Funktion gefunden, mit der ich diesen Doppelstart verhindern konnte.
Nun sind wir dabei auf Win 7 und Office 2010 umzustellen.
Leider funktioniert die eingebaute Überprüfung nun nicht mehr.
Hat jemand eine Idee, die ich dieses Problem in den Griff bekommen kann?
Die Win 7-User sind nun doch etwas an genervt, was ich auch verstehen kann.
Die selbst erstellten Zertifikate helfen mir da übrigen auch nicht und ein Zertifikat einer offiziellen Zertifizierungsstelle werde ich nicht bekommen...

Besteht eventuell die Möglichkeit festzustellen ob eine bestimmte DB schon gestartet ist. Kann man vielleicht die Datenbankeigenschaften auslesen?

Gruß

cheapy

:)

cheaptrick, 22. Januar 2012

#1
CPTCHAOS

CptChaos

Evtl. zeigst Du uns was Du wo und wie machst oder verweist auf die entsprechenden Threads...

Das Thema wurde doch schon mehrfach von Dir angestoßen, oder nicht?
Ich bin immer noch der Meinung dass es an der zusätzlichen (und m.M. nach überflüssigen) LoaderDB liegt... ein entsprechendes StartScript sollte das umgehen.
Die Sicherheitswarnung kann ggf. umgangen werden indem der SharePoint-Server in die TrustedLocations aufgenommen wird.

gestrichen... hab Dich offenbar mit jemanden verwechselt. Es gab hierzu schon mehrfach Diskussionen...
Die Frage was wo und wie gemacht wird, bleibt *wink.gif*

CptChaos, 23. Januar 2012

#2
MICHA_DU

Micha_DU

Leider funktioniert die eingebaute Überprüfung nun nicht mehr.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

überprüfst du hier die erzeugte ldb-Datei?
Bin mir nicht sicher ob die bei Access 2010 nicht ne andere Dateiendung hat...

Aber wie Benny schon sagte... zeig was du machst.

Micha_DU, 23. Januar 2012

#3
IOS707

ios707

Mehrfachstart einer DB verhindern /sharepoint

von Micha_DU

überprüfst du hier die erzeugte ldb-Datei?
Bin mir nicht sicher ob die bei Access 2010 nicht ne andere Dateiendung hat...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit der neuen Dateiendung .accdb ist aus der .ldb-Endung konsequenterweise nun .laccdb geworden.

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

ios707, 23. Januar 2012

#4
MICHA_DU

Micha_DU

Mit der neuen Dateiendung .accdb ist aus der .ldb-Endung konsequenterweise nun .laccdb geworden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

zuhause achte ich da nie drauf... :-)

Micha_DU, 23. Januar 2012

#5
CPTCHAOS

CptChaos

BTW: Das vorhandensein einer *.ldb/*.laccdb lässt noch nicht darauf schließen, dass jemand tatsächlich in der der DB ist...

Die kann z.B. stehen bleiben, wenn die zugehörige DB nicht sauber geschlossen wurde (z.B. msaccess.exe "abschießen") oder die verwendenden User keine Löschrechte im Verzeichnis haben.

CptChaos, 23. Januar 2012

#6
CHEAPTRICK

cheaptrick

von CptChaos

Evtl. zeigst Du uns was Du wo und wie machst oder verweist auf die entsprechenden Threads...

Das Thema wurde doch schon mehrfach von Dir angestoßen, oder nicht?
Ich bin immer noch der Meinung dass es an der zusätzlichen (und m.M. nach überflüssigen) LoaderDB liegt... ein entsprechendes StartScript sollte das umgehen.
Die Sicherheitswarnung kann ggf. umgangen werden indem der SharePoint-Server in die TrustedLocations aufgenommen wird.

gestrichen... hab Dich offenbar mit jemanden verwechselt. Es gab hierzu schon mehrfach Diskussionen...
Die Frage was wo und wie gemacht wird, bleibt *wink.gif*
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo Benny,

hatte ich nicht geschrieben, dass ich dieses Problem auch schon mit Access 2003 hatte und es auch gelöst war? Mit 2010 funktioniert das aber wohl nicht mehr. Darum dieser neue Thread.

Ich denke damit neu aufzusetzen macht doch Sinn, oder?

Gruß

cheapy

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

cheaptrick, 23. Januar 2012

#7
CHEAPTRICK

cheaptrick

Mehrfachstart einer DB verhindern /sharepoint

von ios707

Mit der neuen Dateiendung .accdb ist aus der .ldb-Endung konsequenterweise nun .laccdb geworden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da wir auch noch viele User mit Access 2003 haben, ist es immer noch eine mde bzw. ade, da die eigentliche DB ein Access-Projekt ist. Der Database-Loader ist ne mde.

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

cheaptrick, 23. Januar 2012

#8
CHEAPTRICK

cheaptrick

So, hier der Code, den ich mal von irgendwo übernommen habe:
Code:

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
:
:
:

Me.Visible = False
DoCmd.RunCommand acCmdAppMinimize
If winCheckMultipleInstances = True Then
GoTo Form_Open_End
End If

:
:
:

Form_Open_End:
Application.Quit

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist der Aufruf beim öffnen des Startformulars.

Code:

Option Compare Database
Option Explicit

'---Posted By Graham Mandeno---
' Preventing multiple instances of a database
' The simplest way to ensure that only one instance of the database can be opened on one desktop is to open the mdb file exclusively.
' However, with the shared mode set, if you have the Application Title set under Tools/Startup, another way would be to iterate through all windows
' at startup and display a warning message if a window's caption matches the Application Title.
' This solution uses the titlebar of the database window. It checks each other instance of Access currently running and if the titlebar of the ODb
' class window matches the active instance then it activates the other instance and terminates the current one. An optional boolean argument fConfirm
' causes a confirmation message to be displayed before switching and terminating (the default for fConfirm is True). The function winCheckMultipleInstances
' can be called from initialisation code, or even directly from AutoExec:

' RunCode=winCheckMultipleInstances(False)

'******************** Code Start ********************
' Module mdlCheckMultipleInstances
' © Graham Mandeno, Alpha Solutions, Auckland, NZ
' graham@alpha.co.nz
' This code may be used and distributed freely on the condition
' that the above credit is included unchanged.

Private Const cMaxBuffer = 255

Private Declare Function apiGetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function apiGetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long
Private Declare Function apiGetWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2

Private Declare Function apiGetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal aint As Long) As Long
Private Declare Function apiSetActiveWindow Lib "user32" Alias "SetActiveWindow" (ByVal hwnd As Long) As Long
Private Declare Function apiIsIconic Lib "user32" Alias "IsIconic" (ByVal hwnd As Long) As Long
Private Declare Function apiShowWindowAsync Lib "user32" Alias "ShowWindowAsync" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function apiSetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Const SW_SHOW = 5
Private Const SW_RESTORE = 9

Public Function winCheckMultipleInstances(Optional fConfirm As Boolean = True) As Boolean
Dim fSwitch As Boolean
Dim sMyCaption As String
Dim hWndApp As Long
Dim hWndDb As Long
Dim rc As Integer

On Error GoTo ProcErr

sMyCaption = winGetTitle(winGetHWndDB())
If InStr(sMyCaption, ":") < 8 Then
sMyCaption = Mid(winGetTitle(winGetHWndDB()), 8)
sMyCaption = "Load_" & Left(Application.CurrentProject.Name, Len(Application.CurrentProject.Name) - 4) & sMyCaption
rc = winSetTitle(winGetHWndDB(), sMyCaption)
End If
hWndApp = apiGetWindow(apiGetDesktopWindow(), GW_CHILD)
Do Until hWndApp = 0
If hWndApp Application.hWndAccessApp Then
hWndDb = winGetHWndDB(hWndApp)
If hWndDb 0 Then
If sMyCaption = winGetTitle(hWndDb) Then Exit Do
End If
End If
hWndApp = apiGetWindow(hWndApp, GW_HWNDNEXT)
Loop
If hWndApp = 0 Then Exit Function
'If fConfirm Then
'If vbYes = MsgBox("Die Anwendung '" + sMyCaption & "' ist bereits geöffnet@Wollen Sie sie ein weiteres mal starten?@", vbYesNo Or vbQuestion Or vbDefaultButton2) Then Exit Function
'End If
apiSetActiveWindow hWndApp
If apiIsIconic(hWndApp) Then
apiShowWindowAsync hWndApp, SW_RESTORE
Else
apiShowWindowAsync hWndApp, SW_SHOW
End If
Application.Quit

ProcEnd:
Exit Function

ProcErr:
MsgBox "CheckDB_Running: " & Err.Description
Resume ProcEnd
End Function

Public Function winGetClassName(hwnd As Long) As String
Dim sBuffer As String
Dim iLen As Integer

sBuffer = String$(cMaxBuffer - 1, 0)
iLen = apiGetClassName(hwnd, sBuffer, cMaxBuffer)
If iLen > 0 Then
winGetClassName = Left$(sBuffer, iLen)
End If
End Function

Public Function winGetTitle(hwnd As Long) As String
Dim sBuffer As String
Dim iLen As Integer

sBuffer = String$(cMaxBuffer - 1, 0)
iLen = apiGetWindowText(hwnd, sBuffer, cMaxBuffer)
If iLen > 0 Then
winGetTitle = Left$(sBuffer, iLen)
End If
End Function

Public Function winSetTitle(hwnd As Long, NewTitle As String) As Integer
Dim sBuffer As String
Dim iLen As Integer

sBuffer = String$(cMaxBuffer - 1, 0)
winSetTitle = apiSetWindowText(hwnd, NewTitle)
End Function

Public Function winGetHWndDB(Optional hWndApp As Long) As Long
Dim hwnd As Long

winGetHWndDB = 0
If hWndApp 0 Then
If winGetClassName(hWndApp) "OMain" Then Exit Function
End If
hwnd = winGetHWndMDI(hWndApp)
If hwnd = 0 Then Exit Function
hwnd = apiGetWindow(hwnd, GW_CHILD)
Do Until hwnd = 0
If winGetClassName(hwnd) = "ODb" Then
winGetHWndDB = hwnd
Exit Do
End If
hwnd = apiGetWindow(hwnd, GW_HWNDNEXT)
Loop
End Function

Public Function winGetHWndMDI(Optional hWndApp As Long) As Long
Dim hwnd As Long

winGetHWndMDI = 0
If hWndApp = 0 Then hWndApp = Application.hWndAccessApp
hwnd = apiGetWindow(hWndApp, GW_CHILD)
Do Until hwnd = 0
If winGetClassName(hwnd) = "MDIClient" Then
winGetHWndMDI = hwnd
Exit Do
End If
hwnd = apiGetWindow(hwnd, GW_HWNDNEXT)
Loop
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist der Code der die Überprüfung machen soll.
Wenn ich ehrlich sein soll, hab ich nicht so richtig verstanden, was da passiert. *cool.gif*

Gruß

cheapy

cheaptrick, 23. Januar 2012

#9
LANZ RUDOLF

Lanz Rudolf

Hallo
ich mache es mit einer einfachen Methode *Smilie
meistens FE auf dem Localen Driv.
pro PC darf die mde nur einmal geöffnet sein.
im Macro Autoexec oder Start Formular
prüfe ich z.B. ob die Datei Y1.txt (gleicher Pfad wie MDE) besteht (dir)
bei nicht vorhanden
alles ok bin der erste also alleine. Datei Y1.txt erstellen.
sonst
Meldung und schliessen !

am Ende (beim Schliessen der MDE)
Datei Y1.txt immer löschen

Lanz Rudolf, 24. Januar 2012

#10
MICHA_DU

Micha_DU

sMyCaption = "Load_" & Left(Application.CurrentProject.Name, Len(Application.CurrentProject.Name) - 4) & sMyCaption
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ohne jetzt näher einzusteigen... aber hier scheint es mir um die Dateiendung zu gehen... und wenn ich vier Zeichen wegnehme rede ich beispielsweise über ".mdb". Wenn nun aber die Standard-Endung "accdb" ist, passt das natürlich nicht... Ferner solltest du mal schauen welcher DAO-Verweis bei dir gesetzt ist.

Micha_DU, 24. Januar 2012

#11
CHEAPTRICK

cheaptrick

von Lanz Rudolf

Hallo
ich mache es mit einer einfachen Methode *Smilie
meistens FE auf dem Localen Driv.
pro PC darf die mde nur einmal geöffnet sein.
im Macro Autoexec oder Start Formular
prüfe ich z.B. ob die Datei Y1.txt (gleicher Pfad wie MDE) besteht (dir)
bei nicht vorhanden
alles ok bin der erste also alleine. Datei Y1.txt erstellen.
sonst
Meldung und schliessen !

am Ende (beim Schliessen der MDE)
Datei Y1.txt immer löschen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das birgt aber doch das Problem, dass die Datei nicht verschwindet, wenn mir Access mal aus irgend einem Grund abschmiert...

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

cheaptrick, 24. Januar 2012

#12
CHEAPTRICK

cheaptrick

Mehrfachstart einer DB verhindern /sharepoint

ohne jetzt näher einzusteigen... aber hier scheint es mir um die Dateiendung zu gehen... und wenn ich vier Zeichen wegnehme rede ich beispielsweise über ".mdb". Wenn nun aber die Standard-Endung "accdb" ist, passt das natürlich nicht... Ferner solltest du mal schauen welcher DAO-Verweis bei dir gesetzt ist.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich sagte doch, dass ich noch mit mde und ade arbeite, weil wir auch noch viele Access 2003-Auser dabei haben, die eben noch nicht auf Win7 und Access 2010 umgestellt sind.

Was meinst Du mit dem DAO-Verweis?
Worum geht es Dir da?

cheaptrick, 24. Januar 2012

#13
LANZ RUDOLF

Lanz Rudolf

Hallo

Das birgt aber doch das Problem, dass die Datei nicht verschwindet, wenn mir Access mal aus irgend einem Grund abschmiert...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dem ist so.
ist mir bis Heute nicht passiert *Smilie
dann must Du sie halt von Hand Löschen *wink.gif*
kann man in einem Benutzerhandbuch auch so beschreiben.

die ldb oder laccdb muss ja nach einem absturz evtl. auch gelöscht weden.

Lanz Rudolf, 24. Januar 2012

#14
CPTCHAOS

CptChaos

Funktioniert denn der Überprüfungscode? Bist Du den mal in Einzelschritten durchgegangen und lässt er sich kompilieren in der neuen Umgebung?

CptChaos, 24. Januar 2012

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 3

Thema:

Mehrfachstart einer DB verhindern /sharepoint

Die Seite wird geladen...

Mehrfachstart einer DB verhindern /sharepoint - Similar Threads - Mehrfachstart verhindern sharepoint
Seitenumbruch bei Worttrennung verhindern
in Microsoft Word Hilfe
Seitenumbruch bei Worttrennung verhindern: Hallo zusammen, folgendes Problem: Wenn die (eigentlich) letzte Zeile einer Seite mit einem getrennten Wort (Silbentrennung) endet, dann macht Word den Seitenumbruch zumeist vor dieser Zeile,...
Textüberlauf in Spalte verhindern
in Microsoft Excel Hilfe
Textüberlauf in Spalte verhindern: Hallo! Ich benötige Hilfe mit einer Excel-Tabelle. Ich möchte den Textüberlauf einer Spalte in die nächste verhindern. Habe das versucht über "Zellen formatieren / Horizontal / Ausfüllen". Klappt...
Verhindern, dass sich Zellenverknüpfungen in andere Arbeitsmappen automatisch anpassen
in Microsoft Excel Hilfe
Verhindern, dass sich Zellenverknüpfungen in andere Arbeitsmappen automatisch anpassen: Hallo Zusammen, ich suche nach einer Möglichkeit die automatische Anpassung von Verknüpfungen zwischen unterschiedlichen Arbeitspappen zu verhindern, oder den Pfad aus einer Zelle zu verwenden....
Verhindern, das Excel mehrere Zeilen ausgibt
in Microsoft Excel Hilfe
Verhindern, das Excel mehrere Zeilen ausgibt: Hallo, ich ärgere mich gerade wegen einer Formel Herum excel gibt mir mehr Zeilen aus ( was ich nicht möchte. A die Formel lautet so...
Doppelte Einträge verhindern ohne Primärschlüssel
in Microsoft Access Hilfe
Doppelte Einträge verhindern ohne Primärschlüssel: Folgendes Problem: habe ein Tabellenfeld (Zahl) ohne Primärschlüssel. Wie kann ich doppelte Einträge verhindern, indem ich auswählen kann ob ja oder nein (Doppelte Einträge sollen grundsätzlich...
Scrollen verhindern
in Microsoft Excel Hilfe
Scrollen verhindern: Hallo Forum, Mit folgendem Code versuche ich das Scrollen auf meinem Tabellenblatt zu verhindern. Private Sub Workbook_Open() Sheets("INDEX").ScrollArea = "A1:P36"...
Löschen der Folie löscht Masterfolie - wie verhindern?
in Microsoft PowerPoint Hilfe
Löschen der Folie löscht Masterfolie - wie verhindern?: Hallo, ich habe ein merkwürdiges Verhalten. Lösche ich in einem Foliensatz eine Folie, wird der darunterliegende Folienmaster zu der Folie ebenfalls gelöscht. Es lässt sich also auch keine neue...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden