PDA

Vollständige Version anzeigen : Verhindern vom mehrfachen Öffnen von Frontend


SaschaAR
11.07.2001, 16:06
Hi,

Wie verhindere ich an einem Arbeitsplatz daß, Front-End mehrfach geöffnet wird?

Danke
Hallo Ohnesorg

Erstmal danke für den Hinweis.

Leider Frondend ist nicht lokal installiert. Konnte man irgendeine Lösung mit dem Name von Rechner zusammenbasteln?

SaschaAR :rolleyes:

Ohnesorg
11.07.2001, 16:21
Hi Sascha,

wenn die Frontend lokal auf der Festplatte liegt, geht das ganz einfach...
Lass die Frontend von einer anderen Access Datenbank (quasi als Starttool) starten. Bevor die Frontend geöffnet wird, fragst Du ab, ob die berühmt berüchtigte ldb-Datei existiert.
Ist dies der Fall, wird der Startvorgang abgebrochen... wenn nicht, wird die FE gestartet.

Tipp:
Das ganze Funzt am Beschden mit der DIR-Funktion ;)

Ralf Pfiffer
11.07.2001, 17:48
Hallo

Folgend Funktion kann dier helfen
Function LäuftAnwendung() As Integer
Dim DB As Database
Set DB = CurrentDb()
If TestDDELink(DB.Name) Then
LäuftAnwendung = -1
Else
LäuftAnwendung = 0
End If
End Function

Private Function TestDDELink(ByVal strAppName$) As Integer ' Hilfs Function für IsRunnig
Dim varDDEChannel
On Error Resume Next
Application.SetOption ("Ignore DDE Requests"), True
varDDEChannel = DDEInitiate("MSAccess", strAppName)

If Err Then
TestDDELink = False
Else
TestDDELink = True
DDETerminate varDDEChannel
DDETerminateAll
End If
Application.SetOption ("Ignore DDE Requests"), False
End Function


Gruß Ralf