| |
OS:WindowsXP
Access Version:2007
フォームの検索用コンボボックスを用いてデータを検索し、検索したデータを
フォーム上で修正して「流用」ボタンを押すと、検索した元のデータは変わら
ずに、修正したデータを新しいレコードに追加するフォームを作成したいと
思っています。
注）新しいレコードのNoは現在の最終レコードのNoの値を1つ増やしたものに
なるのですが、オートナンバーではないので、手動で増やす必要があります。
テーブル1及びテーブル2からクエリ1を作成し、クエリ1をもとにフォーム1を
作成します。
テーブル1
No（数値：整数）
名前（テキスト）
部署名（テキスト）
出身地（数値：整数）
内線（テキスト）
テーブル2
ID（数値：整数）
出身地（テキスト）
クエリ1
No（テーブル1）
名前（テーブル1）
部署名（テーブル1）
出身地（テーブル2）
内線（テーブル1）
フォーム1には検索用コンボボックスと出身地を選択する用のコンボボックス
を作成。
「流用」ボタンのクリック時のイベント プロシージャを
Private Sub 流用_Click()
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord , , acNewRec
DoCmd.RunCommand acCmdPasteAppend
End Sub
としました。
流用したいデータを選択し修正した後「流用」ボタンをクリックすると
アクションの実行エラーが出てしまいます。
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
マクロ名
フォーム1 : コンボ1 : AfterUpdate : 埋め込みマクロ
条件
True
アクション名
オブジェクトからレコードの検索
引数
-1, , 先頭のレコード, ="[No] = " & Str(Nz(Screen.ActiveControl,0))
エラー番号
2950
−−−−−−−−−−−−−−−−−−−−−−−−−−−−
流用登録以前に、検索用コンボボックスのところでエラーが出ているよう
ですが...
どのようにしたらデータの流用登録ができるでしょうか。
よろしくお願い致します。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
