Accessでドラッグアンドドロップ

2024.09.25

デモ

プレイヤーのボタンを押すと再生します。

フォーム上に配置した９個のテキスト枠内の名前の位置が２ステップで変更できます。

動かしたい名前をクリック
動かす位置の枠をクリック

【AD】

作り方

テーブルとフォームを用意してVBAで自動化します。

テーブル

データを格納するテーブルを一つ用意し、フィールドを３つ作ります。

ID（オートナンバー型)
名前（短いテキスト）
位置（短いテキスト）

フォーム

データ表示や操作するフォームを一つ用意します。テキスト枠を９個並べます。

テキスト枠に適当な名前を付けます。

テキスト枠に名前を表示するように設定をします。下記のコードを各テキスト枠の[コントロールソース]にコピペしてください。


=IIf(DCount("名前","テーブル","位置='A1'")=0,"",DLookUp("名前","テーブル","位置='A1'"))

*[位置='A1']の「A1」がテキスト枠の名前になりますので適時変更してください。

クリックしたテキスト枠の名前を入力するテキスト枠（オレンジ色）を配置し、名前を「temp」にします。

【AD】

コード

テキスト枠をクリックしたときの動作をすべてのテキスト枠のプロパティの[クリック時のイベント]にコーディングします。


Private Sub A1_Click()
If IsNull(temp) = True Then
    temp = DLookup("ID", "テーブル", "位置='A1'")
Else
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set cn = CurrentProject.Connection
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open "テーブル", cn, adOpenDynamic, adLockOptimistic
    rs.Find "ID=" & temp
        rs!位置 = "A1"
    rs.Update
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
    temp = Null
    Me.Refresh
End If
End Sub

*テキスト枠「A1」の例

コードの説明

１．テキスト枠「temp」が空欄のとき、クリックしたテキスト枠に表示されている名前の「ID」が入力されます。
２．テキスト枠「temp」に「ID」が入力されているとき、テーブルを開いてテーブルの「temp」に表示されている「ID」の「位置」フィールドにクリックしたテキスト枠の名前を入力されます。

サンプルの説明

１．テーブルにIDを１から９まで用意
２．ID１から３の[名前]フィールドに「山田」「佐藤」「加藤」を入力
３．ID１から３の[位置]フィールドにテキスト枠の名前「A1」「B1」「C1」を入力

４．フォームを表示

５．フォーム上で移動させる名前をクリック
６．移動先のテキスト枠をクリック

テーブルを開いて「位置」の値を見るとテキスト枠の名前と一致します。

直感的な操作に役に立つかと思います。ご参考にしていただければ幸です。