Microsoft Access 掲示板

Microsoft Access 掲示板

テキストボックスからインポート操作 / 2

6 コメント
views
4 フォロー
2
hiroton 2020/09/07 (月) 17:14:56 2d6b2@f966d

クリップボード弄るあれこれ調べてたんですけどパッとしないですねぇ

Dim strClip As String

If Nz(Me!txtデータ) = "" Then
    'クリップボードのデータをコピー'
    Me!txtデータ.SetFocus
    DoCmd.RunCommand acCmdPaste
    Me.Recalc 'これを入れないとコード実行中に張り付けた値が反映されない'
End If

If Nz(Me!txtデータ) = "" Then Exit Sub

strClip = Me!txtデータ
Me!txtデータ = Null

'クリップボードのデータを削除'
CreateObject("WScript.Shell").Run "cmd /c ""echo off | clip""", 0

「クリップボードからの直接取込」または「txtデータに入力からの取込」の両方に対応して、2重取込防止（取込実行でtxtデータとクリップボードを消去）みたいなイメージで

通報 ...