title image


Smiley Probier's mal hiermit ...
Hallo Christoph,



Option Explicit



Private Declare Function CoCreateGuid Lib "ole32.dll" (tGUIDStructure As GUID) As Long

Private Declare Function StringFromGUID2 Lib "ole32.dll" (rGUID As Any, ByVal lpstrClsId As Long, ByVal cbMax As Long) As Long



Private Type GUID

Data1 As Long

Data2 As Integer

Data3 As Integer

Data4(0 To 7) As String * 1

End Type



Function CreateGUID() As String

Const clLen As Long = 50

Dim sGUID As String

Dim tGUID As GUID

Dim bGuid() As Byte

Dim lRtn As Long



If CoCreateGuid(tGUID) = 0 Then

bGuid = String(clLen, 0)

lRtn = StringFromGUID2(tGUID, VarPtr(bGuid(0)), clLen)

If lRtn > 0 Then

sGUID = Mid$(bGuid, 1, lRtn - 1)

End If

CreateGUID = sGUID

End If

End Function

Quelle: http://www.access-im-unternehmen.de/255.0.html



Funzt bei mir (Ac97/W2k) einwandfrei.



Gruss


scotty

I´m an admin. If you see me laughing, you should better have a backup.
Einen Fehler machen und ihn nicht korrigieren - das erst heisst wirklich einen Fehler machen.
Konfuzius


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: