投稿2020/09/16 23:51
編集2020/09/18 02:39accessのフォームのデータを複製する方法を教えてください。
フォームに商品登録する画面があります。
普通なら新規データを登録するのですが、たまに管理番号だけが違って商品や内容は全部同じというものがあります。
その時にフォーム上で複製したいデータのところで「コピー」というボタンを押すと新しい管理番号(連番)だけ切り替わりあとは同じデータというものにしたいです。
私ではお手上げ状態ですのでどなたかわかる方宜しくお願いします。
あと、このフォームには陳列外商品も表示できてフォーム上のチェックが外れていれば陳列されている商品、チェックがついていれば陳列外商品も含めた表示になります。
チェックによりレコードソースを書き換えているのですが、そのせいなのか調べて作ったコードも機能してくれません・・・
またメインフォームにはサブフォームを含んでおりそのデータも複製したいです。
入力したコードは下記です。
Private
1 On Error GoTo Err_コマンド1_Click 2DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 3DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70 4DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append 5 6 Exit_コマンド1_Click: 7Exit Sub 8 9 Err_コマンド1_Click: 10MsgBox Err.Description 11Resume Exit_コマンド1_Click 12 13 End Sub``` 14 15これでボタンを押すと、「入力した値は、フィールドまたはコントロールに対して定義されている入力規則に従っていません」と出てしまいます・・・ 16デバッグを押すと 17 18```Private Sub チェック64_AfterUpdate() 19 20If Me!チェック64 = True Then 21 Me.RecordSource = "テーブル１" 22Else 23 Me.RecordSource = "クエリ２" 24 End If 25 26End Sub``` 27 28上記コードの Me.RecordSource = "クエリ２"ここが黄色くなっています。 29 30フォームに戻ると一応新規画面に入力されてますが、登録はできません。 31 32【9/18追記】 33フォームの構成などが不明ということでしたので今どんな構成になっているか簡単に書いていきます。 34まずメインフォームのレコードソース 35［テーブル１］ 36管理番号：数値型（フィールドサイズ：整数型、書式：数値） 37商品名：短いテキスト 38商品価格：数値型（フィールドサイズ：整数型、書式：数値） 39陳列の有無：Yes/No型 40 41チェックで切り替えたときのレコードソース 42［クエリ２］ 43管理番号：数値型（フィールドサイズ：整数型、書式：数値） 44商品名：短いテキスト 45商品価格：数値型（フィールドサイズ：整数型、書式：数値） 46陳列の有無：Yes/No型 47クエリ２はテーブル１からつくり陳列の有無の抽出条件でFalseで抽出しました。 48 49その他サブフォーム 50全部で6つのサブフォームがあり、タブコントロールで切り替えられるようにしています。 51 52まだまだ不足分がありましたらご教授願います。 53 54。
回答4件
0
Me.RecordSource = "クエリ２"ここが黄色くなっています。
単純にコピーしただけでは、「クエリ２」の場合には問題があるという事では無いでしょうか。
「クエリ２」が必要としている情報も併せて対処が必要なのだと思います。
追記された内容を見ると、敢えてレコードソースを変更しなくてもFilterプロパティの変更のみで大丈夫ですよ。
Filterの使い方｜FilterOn｜複数条件の設定方法｜日付抽出｜解除方法 - Access VBA入門
投稿2020/09/17 02:23
編集2020/09/18 04:20総合スコア25184
0
ベストアンサー
確認手順も含め回答します
まずされたいことをここでは
「陳列標品すべてを表示」チェックボックス(チェック64)のOn/Off切り替えで表示を切り替えたい
に限定します。
提示されていた内容を元に内容を整理してみました
［テーブル１］
管理番号：整数型 値要求:はい 規定値:0 インデックス:はい (重複なし)
商品名：短いテキスト 値要求:はい 空文字の許可:いいえ
商品価格：数値型 値要求:はい 規定値:0
陳列の有無：Yes/No型 規定値:No
テストの為100レコードを作成
その内33レコードが陳列の有無がNoのレコード
［クエリ２］
この状態で[フォーム１]を作成
作成方法は「フォーム ウイザード」から「テーブル１」の項目すべてを選択し
表形式で自動作成し「陳列標品すべてを表示」チェックボックス(チェック64)をフォームヘッダに追加
チェックボックスの規定値をTrueにしておきます。
実行イメージ
ここで質問者様が提示されていたVBAコードを整形した内容がこちら
VBA
1Private Sub チェック64_Click() 2'------------------------------------------------------------------- 3' イベント処理 4'------------------------------------------------------------------- 5 6 Dim ERROR_PHASE As Integer 'ステップ位置 7 Const ERROR_MODULE As String = "チェック64_Click" 'モジュール名 8 9On Error GoTo チェック64_Click_Err: 10 11 '----- レコードソースの切り替え 12 ERROR_PHASE = 40 13 Select Case Me![チェック64].Value 14 Case True ' チェックがOnの時 15 ERROR_PHASE = 50 16 Me.RecordSource = "テーブル１" 17 Case False ' チェックがOffの時 18 ERROR_PHASE = 60 19 Me.RecordSource = "クエリ２" 20 End Select 21 22チェック64_Click_End: 23On Error Resume Next 24'----- 終了処理 25Exit Sub 26 27'----- エラー処理 28チェック64_Click_Err: 29 '----- エラー表示 30 Call MsgBox("ErrNo:" & Err & vbNewLine & Error, vbOKOnly + vbCritical, ERROR_MODULE) 31Resume チェック64_Click_End: 32End Sub
質問者様の環境で新たにフォームを作成して試してください
仕組みは変えていません。ただエラーの際どこでどんなエラーか表示させるようにしました
これで「どんなエラーがどこで発生している」のかがわかります。
エラーの可能性なのですがレコードが編集中で値が入っていない場合
(商品名が考えられますが)
Me.RecordSourceを切り替える直前にレコードの保存がまず動きます
その時「入力した値は、フィールドまたはコントロールに対して定義されている入力規則に従っていません」と表示されます。
ますは上記コードを試してみて下さい。
次に対策をしたコードを記載します。
VBA
1Private Sub チェック64_Click() 2'------------------------------------------------------------------- 3' イベント処理 4'------------------------------------------------------------------- 5 6 Dim ERROR_PHASE As Integer 'ステップ位置 7 Const ERROR_MODULE As String = "チェック64_Click" 'モジュール名 8 9On Error GoTo チェック64_Click_Err: 10 11 '----- 編集中の判定 12 ERROR_PHASE = 10 13 If Me.Dirty Then 14 Select Case MsgBox("現在レコードが編集中です" & vbNewLine & "保存しますか？", vbInformation + vbOKCancel, "フォーム1メッセージ") 15 Case vbOK 'OKボタンが押された時 16 ERROR_PHASE = 20 17 DoCmd.RunCommand acCmdSaveRecord '編集の保存 18 Case vbCancel 'Cancelボタンが押された時 19 ERROR_PHASE = 30 20 DoCmd.RunCommand acCmdUndo '編集の取り消し 21 End Select 22 End If 23 24 '----- レコードソースの切り替え 25 ERROR_PHASE = 40 26 Select Case Me![チェック64].Value 27 Case True ' チェックがOnの時 28 ERROR_PHASE = 50 29 Me.RecordSource = "テーブル１" 30 Case False ' チェックがOffの時 31 ERROR_PHASE = 60 32 Me.RecordSource = "クエリ２" 33 End Select 34 35チェック64_Click_End: 36On Error Resume Next 37'----- 終了処理 38Exit Sub 39 40'----- エラー処理 41チェック64_Click_Err: 42 '----- エラー表示 43 Call MsgBox("ErrNo:" & Err & vbNewLine & Error, vbOKOnly + vbCritical, ERROR_MODULE) 44Resume チェック64_Click_End: 45End Sub
レコードが編集中か判定して更新するかキャンセルするかメッセージを表示して
選択できるようにしています。
これで切り替え前にレコードが編集中という事はありません
しかし更新を行うフォームでMe.RecordSourceの値を切り替えるのは本来オススメできない方式です。
というのも切り替えの間に空白の状態が生まれ入力規則に引っかかる可能性があるからです。
そこで方法を変更したのが下記内容です
VBA
1Private Sub チェック64_Click() 2'------------------------------------------------------------------- 3' イベント処理 4'------------------------------------------------------------------- 5 6 Dim ERROR_PHASE As Integer 'ステップ位置 7 Const ERROR_MODULE As String = "チェック64_Click" 'モジュール名 8 9On Error GoTo チェック64_Click_Err: 10 11 '----- 編集中の判定 12 ERROR_PHASE = 10 13 If Me.Dirty Then 14 Select Case MsgBox("現在レコードが編集中です" & vbNewLine & "保存しますか？", vbInformation + vbOKCancel, "フォーム1メッセージ") 15 Case vbOK 'OKボタンが押された時 16 ERROR_PHASE = 20 17 DoCmd.RunCommand acCmdSaveRecord '編集の保存 18 Case vbCancel 'Cancelボタンが押された時 19 ERROR_PHASE = 30 20 DoCmd.RunCommand acCmdUndo '編集の取り消し 21 End Select 22 End If 23 24 '----- レコードソースの切り替え 25 ERROR_PHASE = 40 26 Select Case Me![チェック64].Value 27 Case True ' チェックがOnの時 28 ERROR_PHASE = 50 29 Me.Filter = "" 30 Me.FilterOn = False 31 32 Case False ' チェックがOffの時 33 ERROR_PHASE = 60 34 Me.Filter = "[陳列の有無] = False" 35 Me.FilterOn = True 36 End Select 37 38チェック64_Click_End: 39On Error Resume Next 40'----- 終了処理 41Exit Sub 42 43'----- エラー処理 44チェック64_Click_Err: 45 '----- エラー表示 46 Call MsgBox("ErrNo:" & Err & vbNewLine & Error, vbOKOnly + vbCritical, ERROR_MODULE) 47Resume チェック64_Click_End: 48End Sub
フィルター機能を使います。
テーブルとかで項目名の▼を押下して対象レコードを絞る方法と一緒です。
この機能で「陳列標品すべてを表示」をOffにした状態がこちらです
フィルタがオレンジ色になってレコード件数が33件になり陳列有無がOffの物のみ表示されているのが
わかりますでしょうか？
以上で今回の回答とさせていただきます。
投稿2020/09/18 05:44
総合スコア2506
0
質問への追記、修正依頼へもコメントしましたが、質問内容は、下記の3点の質問か混在しています。
１．コマンド1_Click で「入力した値は、フィールドまたはコントロールに対して定義されている入力規則に従っていません」エラーがでる。
２．Me.RecordSource = "クエリ２"ここが黄色くなっています。
３．またメインフォームにはサブフォームを含んでおりそのデータも複製したいです。
それぞれ、結構なボリュームになると思われますので、一つずつ順番に解決していくことをお勧めします。
解決する順番は、２．→ １．→ ３． がいいと思います。 まずは、２．が解決しないと１．も無理なので。
で、２．に関してですが、
saziさんの回答へのコメントより
回答の通りクエリ2の設定を少し触ったところ
クエリ2が黄色く光るのはなくなり次は、「コマンドまたはアクション追加、貼り付けは無効です」と表示されるようになりました。
で、少し進展したようです。
まず、手入力で、メインフォームでの更新、追加はできますか。
チェックボックスを切り替えて、テーブル1 のとき、クエリ2 のときの両方で確認してください。
もし，クエリ2のとき、更新・追加できない場合、クエリ2を直接開いて、そこで更新、追加ができるか確認してください。
もし、クエリ2で更新できない場合、クエリ2 のSQL文を質問に追記するか、コメントにコピペしてください。
まずは、ここまでやってみて結果をコメントで教えてください。
投稿2020/09/18 01:31
総合スコア33715
0
Accessのフォームで表示されているレコードはコピーが作れます
VBA
1Dim recClone As DAO.Recordset 2Dim lngRecordNo As Long 3Set recClone = Me.Form.RecordsetClone 4'サブフォームの場合はこんな感じ 5'Set recClone = Me![SubFome].Form.RecordsetClone 6'この時点でrecCloneは画面で選択されているレコードに移動している状態 7 8'もし最初からレコードの検索を行いた場合 9lngRecordNo = 0 10recClone.MoveFirst 11Do Until recClone.EOF 12 lngRecordNo = lngRecordNo + 1 13Loop 14Set recClone = Nothing 15
こんな感じで対象レコードのコピーができます
あとはペースト時にrecCloneのフィールド値を設定すれば良いだけです。
投稿2020/09/17 01:08
総合スコア2506
あなたの回答
tips
プレビュー
Q&A
