AS400 Kennwort mit VBA prüfen

[Fuerchau]

Das leigt eben an der Einstellung:

dbDriverCompleteRequired

was dazu führt, dass bei Fehlern eben das Anmeldefenster kommt.
Diesen Wert musst du mit einer Einstellung "dbDriverPromptNone" verhindern!
Wobei ich den genauen Namen der Konstanten jetzt nicht kenne, den bekommst du aber per IntelliSence angezeigt.

[Pauli]

Hallo,

ich habe jetzt den richtigen Befehl gefunden.

Die Zeile sieht jetzt so aus
Set cnADO1 = wrkODBC1.OpenConnection("", dbDriverNoPrompt, False, CN_STR & tbBenutzer & "; Pwd =" & tbKennwort)

und damit kann ich jetzt eine "ON Err" Abfrage starten und das ganze von vorne beginnen lassen

Übrigens Error 13 = falsches Kennwort

Vielen Dank an alle