Автозаполнение пользовательской формы с функцией vlookup - PullRequest
Новая
       31

Автозаполнение пользовательской формы с функцией vlookup

1 голос
/ 15 октября 2019

Я настроил пользовательскую форму с идентификационным номером вверху, а ниже приведен список полей, которые соответствуют остальной части базы данных. Когда выбран идентификационный номер, я бы хотел, чтобы все остальные поля в пользовательской форме были заполнены, например, с помощью vlookup. Ниже приведена текущая формула, но она не работает, так как я получаю сообщение об ошибке:

Run-time error '9': Subscript out of range.

Есть идеи, почему?

Ниже указана текущаякод 

Dim SLNo As Integer

SLNo = cmbdid.Value

Me.TextSendCode.Value = Application.WorksheetFunction.VLookup(SLNo, Sheets("EditForm").Range("B10:K13"), 2, 0)

Me.TextReceiveCode.Value = Application.WorksheetFunction.VLookup(SLNo, Sheets("EditForm").Range("B10:K13"), 3, 0)

Me.TextEntity.Value = Application.WorksheetFunction.VLookup(SLNo, Sheets("EditForm").Range("B10:K13"), 4, 0)

Me.TextAccNumber.Value = Application.WorksheetFunction.VLookup(SLNo, Sheets("EditForm").Range("B10:K13"), 5, 0)

cmbdid - имя текстового поля идентификационного номера, B10:k13 - таблица базы данных

...