|
|
AdpUIDPwdAdpUIDPwd
Diese Funktion ist in folgenden Access-Versionen verfügbar: 2002, 2003, 2007, 2010
Ermittelt, ob es sich um eine ADP-Datei handelt und gibt die User-ID und das Passwort des aktiven Users (Access-Sicherheitssystem) aus.
Function AdpUIDPwd(pbstrUID As String, pbstrPwd As String) As Boolean
True: Bei der Datenbank handelt es sich um ein ADP.
Dim fErgebnis As Boolean
Dim strUserID As String Dim strPasswort As String WizHook.Key = 51488399 fErgebnis = WizHook.AdpUIDPwd(strUserID, strPasswort) MsgBox "Ist ADP: " & fErgebnis & vbCrLf & _ vbCrLf & _ "User-ID: " & strUserID & vbCrLf & _ vbCrLf & _ "Passwort: " & strPasswort
- - - Ich danke Serge Gavrilov für den entscheidenden Hinweis.
|
02.10.2020: 06.11.2019: 06.05.2017: 27.03.2016: 23.05.2014: |
|
|