No.1ベストアンサー
- 回答日時:
Ctrl+7 ではダメですよね?
コマンドボタンのクリック時イベントで以下のコードを記述すれば、
選択していたレコードを、新規レコードにコピーできると思います。
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdRecordsGoToNew
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
速攻のアドバイスありがとうございます。結果は上記コードを使わなくてもコピーできました。回答はいたって簡単でした。フォームをデザインビューで加工して解決しました。ツールボックスのコマンドボタンを新規作成し、レコードの操作→レコードの複製→新しいレコードにコピー★☆★にて新規レコードへ複製した内容が追加されました。
内容は
Private Sub コマンド198_Click()
On Error GoTo Err_コマンド198_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Exit_コマンド198_Click:
Exit Sub
Err_コマンド198_Click:
MsgBox Err.Description
Resume Exit_コマンド198_Click
End Sub
となっていました。どうもありがとうございました
No.2
- 回答日時:
VBA使えますか?
例えばテーブルのフィールドが項目1、項目2、項目3で、頻繁に発生する内容が、
項目1は「象さん」
項目2は「ぞうさん」
項目3は「お鼻が長いのね」
というケースですと
1.フォームにコマンドボタンを1つ配置します。(ウイザードは起動しないでね)
2.プロパティでボタンの名前を「象さん」表題を「象さん」に変更、プロパティのイベントタグをクリックし、クリック時のイベントをクリックすると右に...というボタンが出てくるので、そこをクリックしコードビルダを起動、
3.Private Sub 象さん_Click()
End Sub
と出るので、そこに
Private Sub 象さん_Click()
項目1 = "象さん"
項目2 = "ぞうさん"
項目3 = "お鼻が長いのね"
End Sub
と入力しその画面を閉じる
再びフォームのデザインビューにもどるので、フォームビューに切り替えて、象さんボタンをクリックすると、それぞれの項目に内容がポンッと表されるはずです。
アドバイスありがとうございます。VBAは使えません。やっと学習を始めたところです。が、上記内容ならば今の私でも理解できます。また、質問した問題は解決しました。しかしこれからもう少し悩む問題に取り組まなければ・・悩んでも光が見えないときは別項目にて質問させていただくかとおもいます。その時もよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- その他(プログラミング・Web制作) 入力フォームへ、データを自動的に入力するプログラム。どうやって作る? 4 2023/01/16 10:24
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- JavaScript ラジオボタンによるフォームの開閉を行いたい 3 2022/03/31 21:30
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- その他(データベース) accessでのフォームの連携について 2 2022/06/14 00:45
- その他(ソフトウェア) Googleフォーム、効率的な入れ方 2 2022/10/03 22:44
- Chrome(クローム) 入力フォームの履歴を消したい 2 2023/06/29 13:02
- その他(IT・Webサービス) 必要なデータを定形資料に取り込む方法 3 2022/08/26 09:29
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Accessでレコードの複製
Access(アクセス)
-
前のレコードの値を自動で入れたい
PowerPoint(パワーポイント)
-
アクセス 前レコード内容を、新レコードにコピー
Access(アクセス)
-
-
4
MS.Access でサブフォーム付のフォームのレコードの複数コピーについて
Access(アクセス)
-
5
Access 同じデータをたくさんのレコード(同一列)に一度に入力するには
Access(アクセス)
-
6
Accessでレコードを別テーブルへコピーするには
Access(アクセス)
-
7
Access:サブフォームのレコードのコピー(複数)
Access(アクセス)
-
8
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
9
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
10
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
11
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
12
ACCESS フォームからサブフォームのデータを更新・入力したい
Access(アクセス)
-
13
アクセスのfilter、複数条件の記述方法を教えてください。
Access(アクセス)
-
14
新規レコード行を非表示にしたい
Access(アクセス)
-
15
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
16
Accessでレコードの複製
Access(アクセス)
-
17
ACCESS テキストボックスに入力したデータをコピーするボタンを作りたい
Access(アクセス)
-
18
ACCESSのフォームからデータの追加ができない
その他(データベース)
-
19
1つ前のレコードのフィールドをコピーするVBAについて
Access(アクセス)
-
20
メインフォームとサブフォームのレコードを複製
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Oracle 2つのDate型の値の差を...
-
DBのタイプの指定とサイズにつ...
-
Access テキスト型に対する指定...
-
エクセルグラフの凡例スペース
-
BIOSでAHCIに設定したいが、項...
-
アンドロイド おサイフケータイ...
-
APN設定について教えていただけ...
-
SUBSTRING 関数に渡した長さの...
-
ACCESSからORACLEへの移行について
-
ORACLEでLONG項目からCHAR項目...
-
access2000:フォームで入力し...
-
SQLのSELECT文で*を使わない理由
-
空白をそのままインポートする...
-
2行目を表示できますか?
-
Windows10で、Windowsのログの...
-
Access2000 レポートの並び替...
-
Joy To Keyのマウスやキーボー...
-
スティックパリティの役割
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Oracle 2つのDate型の値の差を...
-
セルの右クリックで出る項目を...
-
Access テキスト型に対する指定...
-
SUBSTRING 関数に渡した長さの...
-
Accessで数値型にNULLをInsert...
-
APN設定について教えていただけ...
-
エクセルグラフの凡例スペース
-
ORACLEでLONG項目からCHAR項目...
-
複数のレコードを1つのレコード...
-
空白をそのままインポートする...
-
アンドロイド おサイフケータイ...
-
access2000:フォームで入力し...
-
VBAで複数の数式セルを最終行ま...
-
株に関する用語集
-
必須入力項目と入力必須項目
-
他テーブルで一致する列から名...
-
BIOSでAHCIに設定したいが、項...
-
datファイルからaccessにインポ...
おすすめ情報