No.1ベストアンサー
- 回答日時:
表示するところがテキストボックス「txt1」名であるとします。
フォームのレコード移動時に txt1 に設定します。
Private Sub Form_Current()
Me.txt1 = Me.Recordset.AbsolutePosition + 1 & "/" & Me.Recordset.RecordCount
End Sub
もしくは
Private Sub Form_Current()
Me.txt1 = Me.CurrentRecord & "/" & Me.Recordset.RecordCount
End Sub
表示するところが、ラベルだったら
Me.ラベル.Caption = ・・・・
となると思います。
この回答へのお礼
お礼日時:2009/09/29 21:54
ご回答有難うございます。
Me.txt1 = Me.Recordset.AbsolutePosition + 1 & "/" & Me.Recordset.RecordCount
Me.txt1 = Me.CurrentRecord & "/" & Me.Recordset.RecordCount
何れもバッチリです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
レコードを保存するコード ア...
-
新規レコード行を非表示にしたい
-
Accessでフォーム上に 直前の...
-
Access 更新キャンセルするには?
-
アクセス帳票フォームのループ...
-
ACCESS起動時に所定フォームを...
-
アクセスでの警告について教え...
-
accessのクエリで、該当するデ...
-
フィルタ後のフォームの件数の...
-
アクセスでフォームビューがみ...
-
Accessで一件の新規レコードの...
-
ACCESSでフォームを使って、テ...
-
レコード削除時に(サブ)フォー...
-
ACCESS「ンボ ボックスで選択し...
-
Accessでチェックボックスで抽...
-
Access サブフォームにフィルタ...
-
Access非連結フォームから複数...
-
ACCESSのクエリで抽出したデー...
-
アクセスの表示されてるフォー...
-
アクセスでフォームの作り方、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
レコードを保存するコード ア...
-
アクセスでフォームビューがみ...
-
新規レコード行を非表示にしたい
-
ACCESSでフォームを使って、テ...
-
フィルタ後のフォームの件数の...
-
レコード削除時に(サブ)フォー...
-
Accessで上の行を自動でコピー...
-
ACCESS起動時に所定フォームを...
-
Access:フォームプロパティ「...
-
アクセスの自動保存解除はでき...
-
AccessVBA RecordSourceのリセ...
-
Accessでレコードの保存をせず...
-
Accessでのデータ消滅に...
-
Accessでフォーム上に 直前の...
-
Access2010、値を入力したら自...
-
ACCESSフォームのリストボック...
-
Access レコード移動時イベント...
-
Access 「このレコードを保存す...
-
アクセス 前レコード内容を、...
-
Access 帳票フォームでカレント...
おすすめ情報