Access2003サブフォームの質問です

質問ですが、
Access2003 VBAで伝票入力を作成しています。
ヘッダーに日付・得意先、明細（サブフォーム）に商品コード・品名などを入力する画面ですが
商品名で同じものが複数が頻繁にあるので、商品名をダブルクリックしたら１行前の商品名
をセットするような仕様にしたいのですが、１行前の商品名取ってくるような事は出来るので
しょうか？
ご存知の方がおられたら、教えてください。

お願い致します

No.1 ベストアンサー 回答者： toshichan7 回答日時： 2010/12/01 11:15

はなはだ、邪道のようですが、ｃｔｒｌと７キーの同時押しで前レコードの内容を複写できますので、ダブルクリックイベントに

SendKeys "^7", True
を入れればいけるかも知れません。
ただ、SendKeys はVISTA以降のOSだと不具合が出ることもあるようです。

この回答へのお礼

ありがとうございます。
CTRL+７は知りませんでした。XPでは問題ありませんでした。
簡単な方法が良いと思っていましたので助かりました。

お礼日時：2010/12/01 13:40

No.3 回答者： fuuten_no_neko 回答日時： 2010/12/01 11:53

「１行前の商品名」が明確に判りませんが、最終入力した商品名でしょうか？

それならばフォームの「更新後処理」で適当な変数に待避させ、ダブルクリックイベントで、そこから商品名に戻してやればよいでしょう。

この回答へのお礼

ありがとうございます。
これが入力の最終行でなく、３行目でダブルクリックしたら２行目をコピーするようになります。
説明不足ですみません

お礼日時：2010/12/01 13:37

No.2 回答者： noname#140971 回答日時： 2010/12/01 11:34

Option Compare Database

Dim isClick As Boolean

Private Sub 商品名_Click()
　　If isClick Then
　　　　Zenchi
　　End If
　　isClick = False
End Sub

Private Sub 商品名_DblClick(Cancel As Integer)
　　isClick = True
End Sub

Public Sub Zenchi()
　　SendKeys "^("")", False
End Sub

商品名が空欄の時だけ前値をコピーするのか否かという問題は残りますが・・・。

この回答へのお礼

ありがとうございます。
教えて頂いた内容でやってみます

お礼日時：2010/12/01 13:38