Search  

   

Latest News  

Problemstellung:Wenn man Etiketten drucken will steht man oft vor einigen Problemen.1. Man möchte nur ein paar Etiketten drucken und beim nächsten Druck braucht man wieder   ein neues Blatt weil freie...
   

Latest Forumposts  

  • Keine Beiträge vorhanden
   

Kommentare  

Tut mir leid Hella, ich kann Dir nicht folgen? 13.04.2017 - 14.04.2017 ergibt bei mir 1 13.04.2017 -...
Gast - Hella
Hallo, Berechne wie folgt, ob "zu früh" oder "zu spät" Rückmeldet. Früher sollte auch mit negativer ...
Gast - Hella
Hallo, mit negativen Werten meine ich z.B. -5 Tage (ohne Wochenende) u.ä. Zur Zeit wird nur die 0 au...
Hallo Hella, wie negative Werte? Kannst Du es erläutern was Du machen willst? Gruß Tommy
Gast - Hella
Hallo, ich bräuchte auch negative Werte bei der Anzahl, wie kann man das realisieren? Liebe Grüße He...
   

Counter  

1115633
HeuteHeute118
GesternGestern1114
Diese WocheDiese Woche2364
Dieser MonatDieser Monat23845
GesamtGesamt1115633
Highest 07.12.2017 : 1250
US
UNITED STATES
US

This page uses the IP-to-Country Database provided by WebHosting.Info (http://www.webhosting.info), available from http://ip-to-country.webhosting.info

   

Download Statistik  

Diese Site enthält 187 Downloads in 30 Kategorien. Gesamtdownloads bisher: 234326
   
Free live stats and visitor counter for Joomla, Wordpress, Drupal, Magento and Prestashop
   

Login

   

User Online

Total: 85 Members: 0 Guests: 85
No members online
   

Beiträge

DB Lokal oder im Netzwerk geöffnet

Bewertung:  / 0
SchwachSuper 
Details

Problemstellung:

Wie kann ich feststellen ob eine DB Lokal oder im Netzwerk geöffnet wurde?
Für MS-Access00-07

 

Public Declare Function WNetGetConnection Lib "mpr.dll" _
    Alias "WNetGetConnectionA" _
    (ByVal lpszLocalName As String, _
    ByVal lpszRemoteName As String, _
    cbRemoteName As Long) As Long
Function IsNetworkDB(strPath As String) As Boolean
    Dim strPath As String
    Dim strDrive As String, strResult As String
    Dim R As Long
    IsNetworkDB = False
    strDrive = Left$(strPath, 2)
    If strDrive = "\\" Then
        IsNetworkDB = True
        Exit Function
    End If
    strResult = Space$(250)
    R = WNetGetConnection(strDrive & vbNullChar, _
        strResult, _
        Len(strResult))
    If R = 0 And Trim$(strResult) <> "" Then
        IsNetworkDB = True
    End If
End Function

 

Aufruf:

Dim bNetState As Boolean
bNetState = IsNetworkDB(CurrentDb.Name)

Das Ergebnis:

Die Variable bNetState nimmt den Wert True an wenn die DB im Netz geöffnet wurde
und False wenn DB Lokal geöffnet ist.

Einen Kommentar verfassen

Als Gast kommentieren

0 / 300 Zeichen Beschränkung
Dein Text sollte zwischen 10-300 Zeichen lang sein
Nutzungsbedingungen.
  • Keine Kommentare gefunden