Попытка сбить объект требуется ошибка в VBA

Question

У меня есть эта проблема.У меня есть форма, которая извлекает данные таблицы, используя свойство источника записи формы.Когда форма открыта, я установил свойство источника записи для открытого метода модуля RetrieveMembers.Вот код ниже.

Private Sub Form_Open(Cancel As Integer)
'set Form's record source property to retrieve a Members table
Me.RecordSource = mod_JoinMember.RetrieveMembers

End Sub

'mod_JoinMember Class
Public Function RetrieveMembers() As String

Dim strSQL As String
Set strSQL = "SELECT tbl_Member.Title, tbl_Member.Gender, tbl_Member.LastName, 
tbl_Member.DateofBirth, tbl_Member.Occupation, tbl_Member.PhoneNoWork, 
tbl_Member.PhoneNoHome, tbl_Member.MobileNo, tbl_Member.Email, 
tbl_Member.Address, tbl_Member.State, tbl_Member.Postcode FROM tbl_Member;"
RetrieveMembers = strSQL

End Function

Требуется объект выдана ошибка.

Я не смог понять эту ошибку компиляции.Я не вижу ничего плохого в моем коде, так как recordsource - это свойство типа String.И функция моего модуля Retrievemembers возвращает строковое значение.

Почему это не устраивает это?

Answer 1

Спасибо за вашу помощь.

Я исправил это. Причина в том, что String на самом деле не является объектом для начала. Таким образом, ключевое слово «Set» не нужно - поскольку вам все равно не нужно явно объявлять объекты типа String!

Все хорошо сейчас!

Answer 2

Поскольку вы работаете с модулем класса, я думаю, вам нужно будет использовать:

Public Property Get RetrieveMembers() As String

Вместо:

Public Function RetrieveMembers() As String