jlbaline
10 de Enero del 2005

Mi duda es la siguiente: creo un objeto bd_segur que me habre un espacio de

trabajo en ACCESS con una contraseña. Quiero comprobar si el objeto no se crea

debido a que la contraseña no es la correcta como puedo hacerlo. He utilizado el

"IS NOTHING" pero aparece error. Escribo el código. Gracias por la ayuda.

If ((MsgBox("Eres usuario administrador?", vbYesNo)) = vbYes) Then
passw = InputBox("Introduce la clave de la BD")
'Entremos a la bd con la clave establecida en access
Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
Set bd_segur = wrkJet.OpenDatabase(miBD, True, False, ";PWD=" + passw)

If bd_segur Is Nothing Then
MsgBox "Clave Incorrecta!", vbInformation
Unload Me
entradaSis.Show
Else
MsgBox "Clave OK", vbInformation
End If

Else
Set bd_segur = OpenDatabase(miBDcopia)
End If

eth0
10 de Enero del 2005

Según ese código, el error te daría en la línea:

Set bd_segur = wrkJet.OpenDatabase(miBD, True, False, ";PWD=" + passw)

Así que, en caso de error, nunca llegaría a comprobar si bd_segur es Nothing. El error salta en la línea anterior.

Necesitas establecer un manejador de errores en ese procedimiento, usando On Error.