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

質問

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

回答No.3

nicotinism · ベストアンサー

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

回答No.2

nicotinism

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

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

お礼

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

回答No.1

noname#22222

帳票形式であれば、

Private Sub ID_Click()
　　MsgBox Me.CurrentRecord
End Sub

お礼

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