vba - Ms-Access のコンボ ボックスにラベルを配置する

Question

バックグラウンド：

コンボ ボックス上のボタンとして使用されているラベルを Ms-Access に配置しようとしています。ユーザーはコンボボックスのリストから選択し、選択を消去したい場合は、ラベルをクリックして選択をクリアできます。

質問：

ラベルをコンボの上に表示することは可能ですか? 特に送信元などに送信しても、ラベルがコンボの背後に送信されているようです...

Answer 1

オーバーレイ ラベルを作成して選択をクリアする代わりに、実際のボタンを作成します。デザイン モードでボタンとコンボ ボックスを互いに重ねますが、フォーマット プロパティでボタンの表示設定を「いいえ」に設定します。コンボ ボックス "cmbSelect" とクリア ボタン "cmdClear" を呼び出すとします。コンボ ボックスが選択された後にボタンを表示するには、次のようにします。

Private Sub cmbSelect_AfterUpdate

Me.cmdClear.Visible = True

End Sub

次のコードは、ボタンがクリックされた後にテーブルからデータをクリアします。

Private Sub cmdClear_Click()


DoCmd.SetWarnings False


'Deletes record from your table
Dim Delete As String
Delete = "DELETE * FROM [TableName] WHERE (([TableName].KeyField)='" & KeyField & "')"
DoCmd.RunSQL Delete

DoCmd.SetWarnings True

End Sub

削除文字列を使用する代わりに、各フィールドで再クエリを実行して、フォームを再クエリすることもできます。次に、「更新後」にボタンのコードを作成して、ボタンを再び非表示にし、コンボ ボックスから新しいエントリを選択できるようにすることができます。可能性はたくさんありますが、これで始められるはずです。さらに説明やヘルプが必要な場合はお知らせください。