Form1というフォームがあります。Form1には、次のコードがあります-
Dim details As clsDetails
Set details = getDetials(1) ' This fails. It doesn't assign a value.
getDetails関数は、次のように別のモジュールで宣言されます-
Public Function getDetials(detailNumber As Integer) As clsDetails
Dim details As clsDetails
Select Case detailNumber
Case "1"
Debug.Print "Inside case1"
Set details = getDetail1()
Debug.Print details.comment ' This prints correctly.
End Select
Set getDetails = details
End Function
しかし、上記のコードを実行すると、getDetails関数が呼び出されて詳細が正しく出力されても、Form1のdetails変数が設定されません。これを修正する方法は?