title image


Smiley Re: Paßworteingabe bei Jetdatenbank2.6
Hi,



vor dem Öffnen Abfragen geht nicht, deshalb musst du's quasi mit try & error machen und den Fehler abfangen, wenn's ein falsches Passwort ist.

So in etwa könnte es z.B. gehen. Der Code ist jetzt schnell im InternetExplorer getippt, kann also sein dass Tippfehler oder sonst was drin sind...



Private Sub MySub()



Dim accessDenied as Boolean

Dim pwd as String

Dim dbs as Database



Do

pwd = InputBox( "Passwort eingeben" )



set dbs = OpenDatabaseWithPWD( pfad, pwd, accessDenied )



if accessDenied Then _

If MsgBox("Falsches Passwort. Nochmal versuchen?", vbCritical + vbOKCancel, "Falsches Passwort") = vbCancel Then _

Exit Do



Loop While accessDenied



if dbs is nothing = false then



'weiter gehts



end if



End Sub



Private Function OpenDatabaseWithPWD( path as String, pwd as String, ByRef accessDenied as Boolean ) as Database



set OpenDatabaseWithPWD = nothing

accessDenied = false



On Error GoTo Error_Password

Set OpenDatabaseWithPWD = DBEngine.Workspaces(0).OpenDatabase(path, True, False, pwd)

On Error GoTo 0



Leaving:

Exit Function



Error_Password:

If Err.Number = 3031 Then

accessDenied = true



Else

MsgBox "Folgender Fehler ist aufgetreten:" & vbNewLine & Err.Description, vbCritical, "Abbrechen"

Resume Leaving



End If



Exit Function







Gruß

Bostich

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: