Как мне назначить функцию, которая возвращает значение переменной?

Question

Итак, у меня есть класс транзакции, и я поместил все свои функции там.Проблема в том, что когда я пытаюсь вызвать эту конкретную функцию и присвоить ее переменной, возникает ошибка «Несоответствие типа аргумента ByRef», которая продолжает вызывать у меня проблемы.Помогите пожалуйста:)

Public Function GetUserID(name As String) As Integer
    Dim gotID As Integer
    Dim rec As Recordset
    Call connectDB
    sSQL = "select ID from User where Name ='" & name & "'"
    Set rec = CurrentDb.OpenRecordset(sSQL)
    gotID = rec(0)
    GetUserID = gotID
End Function

Private Sub btnAcctAdd_Click()
    Dim tr As Transactions
    Set tr = New Transactions

    Dim ID as Integer
    Dim name, username, password As String

    name = cmbName.Value
    'MsgBox name
    ID = tr.GetUserID(name)
    'MsgBox ID
End Sub

Answer 1

Так оно и есть, только пароль объявляется как строка, остальные 2 являются объектами.

Поэтому измените код на этот, и ошибка исчезнет:

Dim name As String, username As String, password As String