前レコードのテキストボックスと同じ値を表示させる

質問

環境：XP,ACCESS2003
帳票形式のフォームがあります。
次のレコードの入力に移った時、前のレコードのあるテキストボックスは、同じ内容を表示させる方法がわかりません。なお、同じ内容を表示させたいテキストボックスは連結でテーブルのフィールドをコントロールソースにしています。

回答No.1

noname#22222 · ベストアンサー

１、規定値を前レコードに設定する。

サンプルコード略

２、前レコード値を表示する。

Private Sub Form_Activate()
　　Dim Ctl As Control

　　If Me.NewRecord Then
　　　　For Each Ctl In Me.Controls
　　　　　　If Ctl.ControlType = acTextBox Then
　　　　　　　　Ctl.SetFocus
　　　　　　　　SendKeys "^("")", False
　　　　　　End If
　　　　Next
　　End If
End Sub

お礼

コードまで書いていただきありがとうございました。
頑張ってやってみます。

回答No.3

CHRONOS_0

テキストボックスひとつだけなら
入力時にCtrl+’（7のキー)

1レコード全部なら
コントロールウィザードをONにしておいてボタンをおき
[レコードの操作][レコードの複製]で簡単に
カーソルのある行を新規レコードにコピーする
ボタンを作成できます

回答No.2

O_cyan

考え方としては退避用変数かフィールドを作りそのレコードを入力した時点(更新後処理イベント)で入力した内容を退避用変数かフィールドに値の代入してレコードを追加か移動した時点で退避した変数を値の代入で戻す形で良いと思います。
簡単にやるには各フォームのコントロールの更新後処理に入力された内容を代入してしまう。
Me!コントロール名.DefaultValue = Me!コントロール名
のようにすればセット出来ます。

お礼

大変参考になりました。現在取り組み中ですが私のような者でもうまくいきそうです。ありがとうございました。