
No.3ベストアンサー
- 回答日時:
フォーム名がフォーム1、サブフォームコントロールの名前がサブフォーム1だとすると、
Forms!フォーム1!サブフォーム1.Form.CurrentRecord
で取得できます。
(「Forms」と「Form」がありますのでご注意下さい)
また、フォーム1にコードを記述する場合であれば
Me!サブフォーム1.Form.CurrentRecord
サブフォーム1へのコード記述であれば
Me.CurrentRecord
という構文によっても、それぞれ取得が可能です。
No.4
- 回答日時:
No3 さんの回答と同じですが・・・。
フォーム[売上伝票]に[売上伝票 サブフォーム]が配置されているとします。
次は、メインからサブフォームのカレントレコード等を取得するサンプルです。
Private Sub コマンド142_Click()
MsgBox FormRecord(Me.売上伝票_サブフォーム.Form) ' カレントレコードを表示
MsgBox FormRecord(Me.売上伝票_サブフォーム.Form, 1) ' レコードカウントを表示
End Sub
Public Function FormRecord(ByVal frm As Form, _
Optional R As Integer = 0) As Integer
On Error Resume Next
If R = 0 Then
FormRecord = frm.CurrentRecord
Else
FormRecord = frm.Recordset.RecordCount
End If
End Function
もちろん、
MsgBox FormRecord(Forms("売上伝票").売上伝票_サブフォーム.Form)
という書き方でもOKです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【初月無料キャンペーン実施中】オンライン健康相談gooドクター
24時間365日いつでも医師に健康相談できる!詳しくはコチラ>>
-
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
Accessのサブフォームから値を参照する方法について
その他(データベース)
-
4
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
5
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
6
アクセスでサブフォームのレコードを取得したい。
Access(アクセス)
-
7
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
8
アクセスVBAのMe!と[ ]
Access(アクセス)
-
9
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
10
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
11
サブフォームでのダブルクリックイベント
Access(アクセス)
-
12
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
13
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
14
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
15
Access サブフォームでの複数行選択
その他(プログラミング・Web制作)
-
16
新規レコード行を非表示にしたい
Access(アクセス)
-
17
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
18
Access2000 サブフォームのRecordSet取得法
Access(アクセス)
-
19
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
20
サブフォームのイベント取得
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
Access サブフォームでの選択行...
-
5
複数項目でのサブフォームとの...
-
6
チェックボックスでレコードの...
-
7
access サブフォームにリストを...
-
8
Access VBA チェックボックスで...
-
9
アクセス2003 - レコード追...
-
10
(ACCESS)条件に応じて、テキ...
-
11
サブフォームでのダブルクリッ...
-
12
Access VBA サブフォームの更新
-
13
X-Ripperというフリーウェアに...
-
14
クエリーの結果をフォームに表...
-
15
PDFファイルから特定の文字を検...
-
16
AccessのRefresh・Requery・Rep...
-
17
ACCESS フォームで抽出したデー...
-
18
PDFファイル/抽出許可され...
-
19
AccessのWHERE句において、変数...
-
20
Accessのコンボボックスでリス...
おすすめ情報
公式facebook
公式twitter