使用自定义函数返回列表框中的选定项

Question

Windows 7，ACCESS 10 基于HansUp的先前答案，我创建了以下函数，该函数返回在列表框中选择的值：

Public Function listboxSel(ByVal listName As String) As Integer
MsgBox Nz(Me.Controls(listName).Value, "Null")
End Function

我从列表框的LostFocus事件中调用该函数：

 Dim cageHrsHold As Integer
 cageHrsHold = listboxSel(cageHrs)

我将MsgBox留在函数中只是为了查看它是否已执行。那一行，函数中的MsgBox行，炸弹与＆＃34;检测到的Anbiguous名称：listboxSel＆＃34;。

JPL