Microsoft Access 掲示板

Microsoft Access 掲示板

ダブルクリックでコピー

2 コメント
views
4 フォロー

サブフォーム内の下記コードにて、ダブルクリックすると自分自身をクリップボードにコピーしたいのですが
うまくいきません。

エラー
「実行時エラー2046　コマンドまたはアクション　コピー　は無効です」

なぜでしょうか。。何卒ご教示ください。

Private Sub txtテスト_DblClick(Cancel As Integer)
    If Not IsNull(Me!txtテスト) Then
    Me!txt製品名.SetFocus　　←フォーカスは自分自身なので消したりもしてみたのですが同じでした。
    DoCmd.RunCommand acCmdCopy
    End If
End Sub
オリガミ
作成: 2020/11/10 (火) 13:08:46
通報 ...
1
hiroton 2020/11/10 (火) 13:51:56 6da9b@f966d

テキストが選択状態じゃないとそのエラーが発生します。自分自身にSetFocusしてもテキストは選択状態にならないのでそのエラーが発生します

Private Sub txtテスト_DblClick(Cancel As Integer)
    With Me!txtテスト
        If Not IsNull(.Value) Then
        .SelStart = 0
        .SelLength = Len(.Value)
        DoCmd.RunCommand acCmdCopy
        End If
    End With
End Sub

質問文中コントロール名があやしい（txtテスト/txt製品名）ので見直してみてください

2
オリガミ 2020/11/10 (火) 14:37:14 0029a@1c915 >> 1

コントロール名も間違っていました。。スミマセン。
自分自身を選択するのは一工夫必要だったんですね…
よくわかりました。ありがとうございました。