クリップボードにコピーするので別のアプリケーションにも貼り付けできます
私はフォーカス取得時に使ってます
Private Sub フィールド名1_GotFocus()
'文字をすべて選択します
Me.フィールド名1.SelStart = 0
Me.フィールド名1.SelLength = 255
'コピーします
DoCmd.RunCommand acCmdCopy
End Sub
目次へ
私はフォーカス取得時に使ってます
Private Sub フィールド名1_GotFocus()
'文字をすべて選択します
Me.フィールド名1.SelStart = 0
Me.フィールド名1.SelLength = 255
'コピーします
DoCmd.RunCommand acCmdCopy
End Sub
目次へ