Baseのフォームで現在のレコード番号をmacroを使って調べたい。

[KAZ2]

baseのフォームで、現在のレコード番号をmacroを仕様して調べたいのですが、どなたかご教授いただけますでしょうか？
どうぞよろしくお願いいたします。

[koutarouwatanabe]

現在フォームに表示されているのが何番目のレコードなのかを知りたいのか？
表示されているレコード固有の番号を表示したいのかわかりませんので

この回答の情報で良いのかわかりませんが、やってみてください

以下のモジュールをフォームのボタンにセットして実行してみると、現在フォームで表示しているレコードが何番目にあるのか？が表示されると思います。（必ずボタンにセットして実行しないとDrawPageでエラーになります！）

フォーム名（この例では"MainForm"）はレコードナビゲーターやフォーム属性で表示される名前を指定してください
オブジェクト一覧にあるフォーム名を指定するとエラーになります

Sub RecordCount()

	Dim oForm As Object
	Dim Rcount As Integer
	Dim CRcount As Integer

	oForm = ThisComponent.Drawpage.Forms.getByName("MainForm")
	Rcount = oForm.RowCount
	MsgBox "登録されているレコード数は" & Rcount & "です"
	
	CRcount = oForm.Row
	MsgBox "現在表示しているレコードは" & CRcount & "です"	

End sub

[KAZ2]

ありがとうございます。
初歩的な質問に丁寧にご回答いただけて感謝です！
こちらのスクリプトで目的の結果を得る事ができました。
重ねてお礼申し上げます。