Meldung, wenn keine Netzverbindung zum Backend besteht

14/01/2008 - 07:40 von Carsten Ulinski | Report spam
Hallo zusammen, bastle nun schon seit geraumer Zeit an einem
Veranstaltungsmanagement herum, das über Replikate verbunden ist. Es
gibt als einen Master auf einem Netzlaufwerk. Die Syncro rufe ich so
auf:

Call SynchronizeDBs("C:\Profile\all users
\Replikat_KBEQMSeminarplanung.mdb", "\\Servername
\KBEQMSeminarplanungMaster.mdb", 1)

Manchmal steht das Netzlaufwerk nicht zur Verfügung. Dann kommt eben
die Standardmeldung von Windows oder Access. Die möchte ich in einer
user-freundlichen Meldung darstellen.

Wie kann ich nachprüfen, ob die Netzverbindung besteht?

Wenn keine Verbindung, dann
Msg: keine Netzverbindung, tun sie dies und das

Vielen Dank im voraus
Carsten
 

Lesen sie die antworten

#1 Maik Hahmann
14/01/2008 - 11:02 | Warnen spam
Hallo Carsten,

hier ist mal so ein Schnipsel (ich glaub aus der KnowHow.mdb), etwas
angepasst:

Function checkconnect()
'Überprüft, ob die Datenbank verbunden sind
Dim db As Database
Dim tbl As Recordset

On Error GoTo checkconnectError
Set db = DBEngine.Workspaces(0).Databases(0)

' Hier einen existierenden Tabellennamen eingeben
' Es wird davon ausgegangen, daß wenn diese Tabelle nicht korrekt connected
ist,
' die anderen Tabellen auch nicht korrekt connected sind.

Set tbl = db.OpenRecordset("tblMeineTabelle")

Exit Function

checkconnectError:
'Meldung ausgeben
MsgBox "Keine Netzwerkverbindung"
Exit Function

End Function

Gruß
Maik

"Carsten Ulinski" wrote:

Hallo zusammen, bastle nun schon seit geraumer Zeit an einem
Veranstaltungsmanagement herum, das über Replikate verbunden ist. Es
gibt als einen Master auf einem Netzlaufwerk. Die Syncro rufe ich so
auf:

Call SynchronizeDBs("C:\Profile\all users
\Replikat_KBEQMSeminarplanung.mdb", "\\Servername
\KBEQMSeminarplanungMaster.mdb", 1)

Manchmal steht das Netzlaufwerk nicht zur Verfügung. Dann kommt eben
die Standardmeldung von Windows oder Access. Die möchte ich in einer
user-freundlichen Meldung darstellen.

Wie kann ich nachprüfen, ob die Netzverbindung besteht?

Wenn keine Verbindung, dann
Msg: keine Netzverbindung, tun sie dies und das

Vielen Dank im voraus
Carsten

Ähnliche fragen