コピー時のエラー表示を変更したい

質問

コードビルダ選択時での基礎知識が不足しています。ご面倒をお掛けしますが、宜しくお願いします。

テキストボックスのデータをコピーする際の方法として、イベントの「ダブルクリック」で「コードビルダ」を選択して下記を記述しています。うっかりデータがないテキストボックスをダブルクリックした時にでるエラー表示を「データがありません」に変更したいと思っています。ご指導をお願いします。

Private Sub 用例_DblClick(Cancel As Integer)
Me!用例.SelStart = 0
Me!用例.SelLength = Len(Me!用例.Text)
DoCmd.RunCommand acCmdCopy
End Sub

以上、宜しくお願いします。

回答No.1

hatena1989 · ベストアンサー

テキストが空("")の時にでるエラーなので、それをIfでチェックして独自のメッセージを表示させればいいでしょう。

Private Sub 用例_DblClick(Cancel As Integer)
　　If Me!用例.Text = "" Then
　　　　MsgBox "データがありません"
　　Else
　　　　Me!用例.SelStart = 0
　　　　Me!用例.SelLength = Len(Me!用例.Text)
　　　　DoCmd.RunCommand acCmdCopy
　　End If
End Sub

エラートラップ処理という方法もありますので、興味があればWEB検索してみてください。

お礼

hatena1989様へ

アドバイスをありがとうございます「希望していた動作を実現できました。」。VBAの考え方手順と記述方法を明記していただきまして、知らないながらも自身に理解誘導への姿勢に繋がりました。早速、自身のデータベース「ACCESSアドバイス情報」に保存するとともに、貴殿のお気持ちを大切に受け止めさせていただきます。有難うございました。