title image


Smiley Re: Datenbank auf jedem Rechner nur einmal starten
Mit nachfolgender Funktion kannst Du den aktuellen Rechnernamen ermitteln, diesen anschl. in einer Tabelle suchen, sollte er schon vorkommen bingo und Datenbank schließen, wenn nicht gefunden Rechnername in Tabelle schreiben ...



'Im Deklarationsbereich des Moduls

'--- API-Funktion

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long





Function GetNetworkComputerName() As String

Dim lngMaxLen As Long, lngResult As Long

Dim strComputerName As String



lngMaxLen = 16

strComputerName = String$(lngMaxLen, 0)

lngResult = GetComputerName(strComputerName, lngMaxLen)

If lngResult 0 Then

GetNetworkComputerName = Trim$(Left$(strComputerName, lngMaxLen))

Else

GetNetworkComputerName = ""

End If



End Function



Grüße vom Bodensee

Gerd



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: