Test zaheslování databáze

Funkce:
Public Function CheckPWD(Path As String) As Integer
'Je nutné do projektu přidat referenci na DAO
'Návratové kódy:
'99 - soubor nebyl nalezen
'0 - není zaheslováno
'1 - je zaheslováno

   Dim db As Database

   If Dir(Path) = "" Then
      CheckPWD = 99
      Exit Function
   End If

   If Right(Path, 3) = "mdb" Then
      On Error GoTo errorline
      Set db = OpenDatabase(Path)
      CheckPWD = 0
      db.Close
      Exit Function
   Else
      CheckPWD = False
      Exit Function
   End If

errorline:
   CheckPWD = 1
   Exit Function

End Function

Příklad volání:
MsgBox CheckPWD("D:\VB\db1.mdb")

Zpět

Autor: The Bozena