• ベストアンサー

Access VBA でデータペーストをする

Access2002 を使っています。 クリップボードにコピーしたデータを、ボタンを押せば、指定するテキストボックス（仮称 T10 とします）に表示させたいと思っています。ボタンにどのように記述すればよいのか教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • m3_maki
  • ベストアンサー率64% (295/459)
回答No.2

テキストボックスが 「使用不可」 とかでなければ 　　Me.T10.SetFocus 　　DoCmd.RunCommand acCmdPaste とか？ 「使用不可」 なら 前後に テキストボックス を 使用可・不可にするコードを付加すればよろしいでしょう。

その他の回答 (1)

  • nicotinism
  • ベストアンサー率70% (1019/1452)
回答No.1

こちらを参考に。 http://www.moug.net/tech/acvba/0021.html の クリップボードのデータを取り出す方法 http://www.moug.net/tech/acvba/0020003.html あとは、コマンドボタンのクリック時イベントに Me!T10 = GetClipBoard などと。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. その他MS Office製品

関連するQ&A

  • クリップボードの中身のペースト

    クリップボードの中身をペーストしたいと思っています。 テキストをクリップボードに写して それをテキストボックスに入れたいのですが、 どうすればいいのでしょうか？ 記述の仕方がよくわかりません。 教えてください。

  • Access VBA クリップボードの内容を

    Access2003 を使用しています。 クリップボードに取り込んだ商品名を、あるボタン(仮称：cmd01)を押せば A1 というデータに代入したいと思います。そのVBAの書き方を教えてください。 つまり Private Sub Cmd01_Click() 　　　　dim A1 as string 　　　　A1=(クリップボードに取り込んだ商品名） End Sub このようなイメージにしたいのですが・・・

  • Access クリップボードにデータが無い場合無視

    Access2000 クリップボードでテキストデータのコピー & 貼付をやりたいのですが、下記コードの場合、クリップボードにデータが無いとエラーしてしまいます。(貼付) クリップボードにデータが無い場合は無視するコードを教えて下さい。 Private Sub コマンド_Click() Me.テキスト.SetFocus DoCmd.RunCommand acCmdPaste End Sub

  • Access 2003 VBA について

    　始めまして Access 初心者です。 　ある、フォームのテキストボックスに入力した内容を元に、 コマンドボタンクリック時に、Aテーブル内容を検索し、テキストボックスに 入力した内容と一致しない場合にAテーブルに格納し 一致するレコードが見つかった場合は、エラーを表示したいのですが、 どのように記述すればいいのでしょうか？ 駄文失礼します。

  • レコードのデータをクリップボードにコピーしたい

    ◇◇アドバイスをお願いしている対象のソフトウェアーは Microsoft Access 2010 です◇◇ [やりたいこと] フォームにコマンドボタンを配して、表示されているフォームのデータを全てクリップボードへコピーしたいと思っております。是非、アドバイスをお願いします。 [現在やっていること] フォームにコマンドボタンを配して、マクロの作成で目的のテキスト窓への「コントロールの移動」とメ「ニューコマンドの実行」で「コピー」コマンドを記述しています。レコード全部をコピーするには全てのテキスト窓の隣にコマンドボタンを配する必要があり、作成時間や手間も含め面倒を感じていました。 是非、宜しくお願いします。

  • AccessのVBAの記述について

    たびたびお世話になります AccessのVBAで、フォーム上にあるテキストボックス（CadrDate）のデータを同一フォーム内の別のテキストボックスに貼り付ける操作はできるのでしょうか？ 出来るのであれば記述文を教えてください。

  • Access VBA

    Access　2000　についての質問です。 下記のようなフォーム上のコンボボックスで　商品、産地、サイズを選択 →テキストボックスに個数を入力 →見積りボタンをクリック →テキストボックスに合計金額を表示 ----------------------------------------- フォーム 　コンボ　コンボ　コンボ　　　テキスト 　商品　　産地　　サイズ　　　個数 ボタン　　　　　　　　テキスト 見積り　　　　　　　　金額：＿＿＿＿＿＿円 ----------------------------------------- というものを、下記の表に基づいて作りたいのです。 単価.xls ===================== 商品　 産地 サイズ 単価 みかん　和歌山　L　　30 リンゴ　青森　　M　　50 リンゴ　青森　　L　　70 リンゴ　長野　　L　　70 ===================== そこで、コンボボックスで選択した値を活かして 単価.xlsの　”単価”の値を利用して テキストボックスに表示したいのですが、 どのように記述すれば使用できるのか？わかりません。 超初心者ですのでわかりやすく教えてください。よろしくお願いします。

  • Access　VBA

    AccessとWordの連携について教えてください。 フォーム[会社データ]上に「ｃｍｄ実行」ボタンを配置しています。 行いたいのは次の作業です。 上記「ｃｍｄ実行」ボタンのクリックによりWordを起動（新規文書）し，フォームに表示しているレコードから[会社名]テキストボックスのデータを２行目のセンターに，[担当者]テキストボックスのデータを４行目の左端にそれぞれ出力する。 AccessのVBAで[ツール][参照設定]で[Microsoft Word Object Library]を選択済みです。 どなたかご教授いただければと思います。何とぞよろしくお願いいたします。 なお，AccessのVBAで[ツール][参照設定]で[Microsoft Word Object Library]を選択済みです。

  • AccessのVBAにおいて，アクセスフォームに表示されている「値」を

    AccessのVBAにおいて，アクセスフォームに表示されている「値」を変数の中に格納したい。 　例えば，オートフォームの単票形式でフォームを作成した場合，「番号」「製品」といったフィールドが２個あるテーブルを使うと，「番号」「製品」という名前のテキストボックスが２個ほどできます。 （フィールド名やテキストボックス名は問題ではありません。） このフォーム上に「ボタン」を配置し，このボタンをクリックした時に，「製品」というテキストボックスの内容を，メッセージボックスで表示させたい。 MsgBox (Me.製品.Text) と書いてもエラーとなります。 実際には，このフォームで欲しいデータを見つけた時，ボタンクリックで，テキストボックスに表示されている内容をグローバル変数に格納したいのですが，方法が分かりません。 Access　初心者です。どなたかよろしくお願いします。

  • アクセス２０００でデータの追加がうまくいかないんですけど

    アクセス２０００を使ってます。 基礎データというテーブルを作って、そこに「テキスト」というメモ型のフィールドを作り、 参照追加フォームというフォームを作って、その中に二つのテキストボックスを配置し、一方のテキストボックス１には「基礎データ」の「テキスト」をコントロールソースとして設定し、他方のテキストボックス２は非連結にし、コマンドボタンを二つ配置して、一方のコマンドボタン１を押すと、テキストボックス１のデータがテキストボックス２のデータにコピーされるようにＶＢＡコードを書き、さらに、もうひとつのコマンドボタン２を押すと、非連結のテキストボックスのデータを、基礎データテーブルの「テキスト」というフィールドに追加する追加クエリを動かすようにしました。 　このような状況で、コマンドボタン２を押すと、非連結のテキストボックス２のデータが、全角１２６文字までなら正常に動作するのですが、それ以上（全角１２７文字以上）になると、「引数が無効です。」というエラーが出てしまいます。 基礎データテーブルの「テキスト」はメモ型に設定してあるのに、どうしてこのようなエラーが出てしまうのでしょうか？誰か教えてください。 　※ためしに、追加クエリ単独で動かして、全角１２７文字以上のデータを入れた場合には、追加クエリは正常に動作します。これって、フォーム側の問題なんですか？ 　

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する