アクセスのフォーム（表になっている）で、表の何番目に位置するかその数値を取得したいのですが（ＶＢ）

フォームの名前を「フォーム１」とします。
アクセスのフォームですが、データシートの表のようになっています
ID code name TelNo
10 ・・・
20　・・・
30　・・・
・
・
ＶＢで[form]![フォーム１]![ID]
とすれば、10とか20とか、マウスでポイントした行の
値を得ることができます
ところで、マウスでＩＤ＝30のところをポイントすると、3行目なので
"3"という値をえるにはどうすればいいのでしょうか
よろしくおねがいします。

No.3 ベストアンサー 回答者： nicotinism 回答日時： 2006/09/04 12:27

MsgBox Me!サブフォーム名.Form.SelTop

MsgBox Forms!メインフォーム名!サブフォーム名.Form.SelTop
MsgBox Me!サブフォーム名.Form.CurrentRecord
MsgBox Forms!メインフォーム名!サブフォーム名.Form.CurrentRecord
では？

No.2 回答者： nicotinism 回答日時： 2006/09/01 17:44

Private Sub ID_Click()

　　MsgBox Me.CurrentRecord
End Sub
こちらでは問題なかったですけど・・
当方Access2002のVBAで確認 ≠VB

あと、Me.SelTop ではどうですか？

この回答へのお礼

やってみたらできました、ありがとうございました
実は問題を簡素化して、あそが
実際にはサブフォームのCurrentRecordを取得したい
のですが
MsgBox Me.CurrentRecord
　　↓
MsgBox Me![サブフォーム名].CurrentRecord
としたらダメでした
サブフォームの表現方法が知りたいのですが

お礼日時：2006/09/03 21:55

No.1 回答者： noname#22222 回答日時： 2006/09/01 15:55

帳票形式であれば、

Private Sub ID_Click()
　　MsgBox Me.CurrentRecord
End Sub

この回答へのお礼

回答・ご指示ありがとうございました
私の知識不足でつまずいてしまいました
さらに、回答を、とおねがいするものではありません
参考として、つまずき、は
「指定した式に、CurrentRecordプロパティにたいする、正しくない参照が含まれています」というエラー
がでました、
帳票形式であれば、という条件がちがうのかな
ありがとうございました

お礼日時：2006/09/01 16:33