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í: |
![]() |
Autor: The Bozena |