ms-access - Access VBA のコンボボックスの問題

Question

コンボボックスの値をデフォルト値に設定しようとしています。問題は、データ ソースが整数型を返すクエリからのものであることです。これを試したときに、デフォルト値を「*」にしたいのです。

Private Sub LabelWklstID_DblClick(Cancel As Integer)
Me.WorklistIDSelector.Value = Mid(Me.WorklistIDSelector.DefaultValue, 2, 1)
End Sub

「無効な値」エラーが発生して機能しませんでしたが、int を試すと機能します。

Me.WorklistIDSelector.Value = 1

コンボボックスに「*」を受け入れるようにするにはどうすればよいですか。どんな助けでも大歓迎です

編集：

• RowSource= SELECT tWorkList.WorkListID, tWorkList.ProjectID FROM tWorkList GROUP BY tWorkList.WorkListID, tWorkList.ProjectID HAVING (((tWorkList.ProjectID)=[Forms]![fMain]![ProjectID])) ORDER BY tWorkList.WorkListID;
• バインドされた列 = 1
• 列の幅 = 2,54cm