Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1640 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【6145】レコードNo.を取得する方法 きこ 05/9/2(金) 14:39 質問[未読]
【6146】Re:レコードNo.を取得する方法 小僧 05/9/2(金) 14:51 回答[未読]
【6148】Re:レコードNo.を取得する方法 きこ 05/9/2(金) 15:04 質問[未読]
【6149】Re:レコードNo.を取得する方法 小僧 05/9/2(金) 15:25 回答[未読]
【6150】Re:レコードNo.を取得する方法 きこ 05/9/2(金) 15:54 お礼[未読]
【6145】レコードNo.を取得する方法
質問  きこ  - 05/9/2(金) 14:39 -
引用なし
パスワード
   田舎の事務員です。
周りに相談する人も大きな本屋もないので苦労しています。


レコード位置（レコードNo.）を取得する方法で
適当な関数ってないですか？
【6146】Re:レコードNo.を取得する方法
回答  小僧  - 05/9/2(金) 14:51 -
引用なし
パスワード
   ▼きこ さん：
こんにちは。

>レコード位置（レコードNo.）を取得する方法で
>適当な関数ってないですか？

関数ではないですが、レコードセットの位置でしたら
「AbsolutePosition」プロパティで取得する事ができます。
使用される場合は、1レコード目の値が「0」なので気をつけて下さい。
【6148】Re:レコードNo.を取得する方法
質問  きこ  - 05/9/2(金) 15:04 -
引用なし
パスワード
   小僧 さん：
>こんにちは。
>
>
>関数ではないですが、レコードセットの位置でしたら
>「AbsolutePosition」プロパティで取得する事ができます。
>使用される場合は、1レコード目の値が「0」なので気をつけて下さい。

「AbsolutePosition」プロパティってどこに
あるのですか？
私はフォーム上でレコードNo.が取得できればいいのですが・・・。

次元の低い質問だったらすみません。
【6149】Re:レコードNo.を取得する方法
回答  小僧  - 05/9/2(金) 15:25 -
引用なし
パスワード
   ▼きこ さん：
こんにちは。

>「AbsolutePosition」プロパティってどこにあるのですか？

どこに…と言われると難しいんですが…。VBA で使う事ができます。


>フォーム上でレコードNo.が取得できればいいのですが・・・。

まずフォーム上に「txtレコード」という名前でテキストボックスを配置してみて下さい。

次にフォームのプロパティを開いて

[イベント] タブの　[レコード移動時] を選択して右側の「...」をクリック。

コードビルダを選択すると VBA を記述する画面が出てきまので、


Private Sub Form_Current()
　　Me.txtレコード = Me.Recordset.AbsolutePosition + 1
End Sub

と記述して画面を閉じます。(記述はコピー&ペーストで大丈夫です。)


フォームのレコードが変わるたびに「txtレコード」の値が変わると思うのですが
いかがでしょうか？

外していたらすみません。
【6150】Re:レコードNo.を取得する方法
お礼  きこ  - 05/9/2(金) 15:54 -
引用なし
パスワード
   ▼小僧 さん：
ありがとうございました。

指示どおりやってみました。
簡単にできてしまいました。
ありがとうございました。

できちゃうと、簡単なものなんですねえ。
感激です。


>>「AbsolutePosition」プロパティってどこにあるのですか？
>
>どこに…と言われると難しいんですが…。VBA で使う事ができます。
>
>
>>フォーム上でレコードNo.が取得できればいいのですが・・・。
>
>まずフォーム上に「txtレコード」という名前でテキストボックスを配置してみて下さい。
>
>次にフォームのプロパティを開いて
>
>[イベント] タブの　[レコード移動時] を選択して右側の「...」をクリック。
>
>コードビルダを選択すると VBA を記述する画面が出てきまので、
>
>
>Private Sub Form_Current()
>　　Me.txtレコード = Me.Recordset.AbsolutePosition + 1
>End Sub
>
>と記述して画面を閉じます。(記述はコピー&ペーストで大丈夫です。)
>
>
>フォームのレコードが変わるたびに「txtレコード」の値が変わると思うのですが
>いかがでしょうか？
>
>外していたらすみません。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1640 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1080853
(SS)C-BOARD v3.8 is Free