Ответ Access VBA при передаче неверного пароля для импорта зашифрованного пароля

Question

Я использую этот код для импорта зашифрованного Excel в Access 2007:

xlApp.Workbooks.Open FileName:=dlgOpen.SelectedItems(i), PASSWORD:=strPasswd

Это работает хорошо, если я даю правильный пароль или ничего (я предложу пользователю ввести пароль снова, поскольку они дают пустой пароль), но не для неправильного пароля, Access выдаст сообщение об ошибке «1004», говоря что пароль не верный, и попросите отладку.

Как я могу изменить его, чтобы он отклонял ввод пользователя и снова запрашивал пароль?

Спасибо!

Answer 1

Вы должны сделать несколько сообщений об ошибках.С макушки головы что-то вроде этого

Public Sub Import (strPassword as String)
On error goto Error_trap
If len(strPassword)=0 then
    strPassword=InputBox(“Enter Password”)
End if
xlApp.Workbooks.Open FileName:=dlgOpen.SelectedItems(i), PASSWORD:=strPasswd

Exit Sub

Error_trap:

If err.Number=1004 then
    If msgbox(“No Password entered, do you want to try again?”,36)=vbYes then
        Import ""
    Else
        Msgbox “Ok fine be that way”
    End if
Else
    Msgbox “Error happened in sub Import, error description, “ & err.description
End if
End Sub