質問する
0

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

質問日 2020-04-19 16:58:59 +0200

KAZ のGravatar画像

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

edit retag flag offensive close merge delete

1 Answer

1

回答日 2020-04-23 15:02:59 +0200

KWatanabe のGravatar画像

updated 2020-04-24 02:09:31 +0200

nogajun のGravatar画像

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

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

以下のモジュールをフォームのボタンにセットして実行してみると、現在フォームで表示しているレコードが何番目にあるのか?が表示されると思います。(必ずボタンにセットして実行しないと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
edit flag offensive delete link もっと

Comments

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

KAZ のGravatar画像KAZ ( 2020-04-24 04:51:32 +0200 )edit
ログイン/サインアップして回答する

質問ツール

1 follower

Stats

Asked: 2020-04-19 16:58:59 +0200

Seen: 44 times

Last updated: Apr 24