アクセスのデータ入力について

質問

教えてください。

アクセスのフォームでデータ入力をする際に、同じフィールドに同じデータを何回も連続して入力する場合があります。

たとえば、「日付」であるとか「勘定科目」あるいは「摘要」などです。
いちいち入力するのは面倒なので、たとえば「Enter」を押すと、前回、同じフィールドに入力したデータを表示してくれるようなプロシージャは作れないものでしょうか？？

よろしくお願いします！

回答No.2

tksoft · ベストアンサー

例えば、[入力]フォームに[摘要]のテキストボックスがあると仮定します。
この[摘要]の更新後処理、ダブルクリック時処理に以下の様なコードを書けばお望みの結果が得られると思います。

'Form_入力 : クラスモジュール　ここから
Option Compare Database
Option Explicit

'Public変数をここに宣言します
Public TEKIYOU As String

Private Sub 摘要_AfterUpdate()
'テキストボックス[摘要]の更新後処理です
'[摘要]に値が入力されたら、その値を一旦Public変数に保存します
If IsNull(Me.摘要) Then '[摘要]がNullかどうかの判定
'Nullだった場合""(空文字)を代入しておく
TEKIYOU = ""
Else
'Nullでなければ(文字列があれば)その文字列を変数に格納
TEKIYOU = Me.摘要
End If
End Sub

Private Sub 摘要_DblClick(Cancel As Integer)
'テキストボックス[摘要]のダブルクリック時の処理です
'上とは逆にPublic変数に保存された値を[摘要]に入力します
If TEKIYOU = "" Then 'TEKIYOUが空文字かどうかの判定
'空文字だったら何もしない
Else
'そうでなければ、TEKIYOUの値を代入
Me.摘要 = TEKIYOU
End If
'上のif文は該当テーブルの摘要フィールドで空文字列の許可が[はい]になっていれば
'特に必要は無いです
End Sub

お礼

ありがとうございました。
うまくできました！
今後とも宜しくご指導ください。

回答No.1

tksoft

可能ですよ、考え方としては
(1)入力データを保存するPublicな変数を準備
(2)更新後処理で入力したデータを変数に保存
(3)フォーカス取得時又はダブルクリック時などで変数のデータを入力
ということでいいと思います。

補足

ありがとうございます。
考え方はよく理解できましたが、具体的にどう記述すればいいのでしょうか？
初心者なものですからPublic変数の使い方がよくわかりません。
ぜひサンプルを教えてください。