アクセス2000でメインフォームにサブフォーム(クエリ)を埋め込みました。

メインフォームからEnterキーを押すと、
サブフォームにクエリーの結果が表示されます。

ところが、その後、いくらEnterキーを押してもカーソルがメインフォームへ戻りません・・・
「マウスでクリックせずに、Enterキーでメインフォームへ戻りたい!!」

埋め込んだサブフォームのプロパティ・タブストップを「いいえ」にすると、
クエリーの結果は出てこない、どうしたらいいのでしょう。。。教えて下さい!!!!

このQ&Aに関連する最新のQ&A

A 回答 (2件)

あ、どうも言葉が少なかったようですm(_ _)m。



#1でマクロを指定するのは、サブフォームの「フォーカス喪失後」じゃなくて、サブフォーム上にあるコントロールの「フォーカス喪失後」です。

サブフォーム上に幾つかのテキストボックスを配置しますよね。
で、それらに適当にタブオーダーを設定して、一番最後にフォーカスが移るコントロールの「フォーカス喪失後」に前述のマクロを設定してやればいい、と思います。
    • good
    • 0
この回答へのお礼

大変遅くなってしまいすいません。

出来ました!!!!ありがとうございました!!!!
アクセス2000から97に変更した事もあって、
ここに戻ってくるまでに、てんやわんやしまして・・・

御礼を言うのが遅くなってしまいましたが
本当にありがとうございました!!!!!!

お礼日時:2001/03/07 22:25

オブジェクトの選択,フォーム,フォーム名,いいえ


コントロールの移動,親フォーム上のコントロールの名前

ってなマクロを作って、サブフォーム上のコントロールの「フォーカス喪失後」に設定してやればいいんじゃないかと思います。

この回答への補足

回答ありがとうございます。
ちなみに、アクセス97で変換して開いたら
埋め込んだサブフォームのプロパティに「フォーカス喪失後」がありません。
こんな時はどうしたらよいのでしょうか?
お忙しい時にすいません・・・でも教えて下さいーーーーー!!!

補足日時:2001/02/19 22:53
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QAccessのRefresh・Requery・Repaintの違い

Requeryはもう一度ソースレコード(テーブル)を読み込むようです。このとき、テーブルの先頭レコードに移動してしまいます。
Refreshは最新のレコード(テーブル)を再表示するような気がします。レコードの移動は起こらない気がします。
Repaintは、VBAでキャプションなどを変更したとき使っています。
でも、よくわかっていません。
どんなときにどんなメソッドを使えばいいのでしょうか?
詳しい方、よろしくお願いいたします。

Aベストアンサー

たびたびすみません。
調べてたらこんなのがでてきました。
http://www.nurs.or.jp/~ppoy/access/access/acF007.html

参考URL:http://www.nurs.or.jp/~ppoy/access/access/acF007.html

QACCESS フォームからサブフォームのデータを更新・入力したい

ACCESS フォームからサブフォームのデータを更新・入力したい

tbl_プロジェクトというテーブルにIDとプロジェクトコード、プロジェクトの基本情報を持たせ、f_プロジェクトフォームからプロジェクトコード、件名、契約日等のデータ及び、f_テーマサブフォームにテーマを入力できるようなフォームを作成しています。フォームで入力したものをそれぞれのテーブルに保存したいのですがうまくいかない部分があります。

フォームから入力すると、tbl_プロジェクトに所属する情報は更新されます。そのtbl_プロジェクトに所属するプロジェクトコードをサブフォームのtbl_テーマのプロジェクトコードにも反映したいのですがどのようにしたらよいでしょうか?
そういったことは可能でしょうか?分かりにくい説明で申し訳ないですが教えていただけると助かります。よろしくお願いします!



DBの構成
【テーブル】
tbl_プロジェクト (1件1件のIDとプロジェクトコードを持つ)
(フィールド:P_ID、プロジェクトコード、件名、契約日など)
tbl_テーマ(プロジェクト毎に関連のあるキーワードを持つ)
(フィールド:P_ID、プロジェクトコード、テーマ)←これのプロジェクトコードにtbl_プロジェクトのデータが入るようにしたい。
tbl_顧客(プロジェクトを依頼した顧客情報を持つ)
【クエリ】
q_テーマ(プロジェクト、テーマ、顧客を抽出するクエリ)
【フォーム】
f_プロジェクト (プロジェクトを1件ずつ表示・参照・新規作成するフォーム)
f_テーマサブフォーム (f_プロジェクトフォームのプロジェクトコードにづきテーマを
        表示・入力するサブフォーム)

リレーションはP_IDをキーに一対多で作成しています。

ACCESS フォームからサブフォームのデータを更新・入力したい

tbl_プロジェクトというテーブルにIDとプロジェクトコード、プロジェクトの基本情報を持たせ、f_プロジェクトフォームからプロジェクトコード、件名、契約日等のデータ及び、f_テーマサブフォームにテーマを入力できるようなフォームを作成しています。フォームで入力したものをそれぞれのテーブルに保存したいのですがうまくいかない部分があります。

フォームから入力すると、tbl_プロジェクトに所属する情報は更新されます。そのtbl_プロジェク...続きを読む

Aベストアンサー

No.4です。

前回の回答は、「レコードの新規登録」のみを想定していました(汗)
大変失礼致しました。


【「メインフォーム」-「サブフォームの新規レコード」間の不一致について】
(=No.4の補足での、2個目の「◆」の件)

メインフォーム側の「レコード移動時」イベントで、『プロジェクトコード』の
更新後イベントと同様の処理を行えば、解消すると思います。
(先頭1行が「Private Sub Form_Current()」となる他は、前回のVBAと全く
 同じなので、今回は省略します)


【既存レコードでの『プロジェクトコード』の空白について】
(=No.4の補足での、1個目の「◆」の件)

対処法としては、
 a)更新クエリを使用して、tbl_テーマの『プロジェクトコード』を一括更新
  (→tbl_テーマに入力済みの『P_ID』の再確認が不要な場合)
 b)「メインフォーム上のプロジェクトコードを、サブフォームの全レコードに
  一括代入」するためのコマンドボタンを、メインフォームに追加
  (→tbl_テーマの『P_ID』が正しいかを目視確認してから代入する場合)
の、2つの考え方があります。

「a」については添付画像をご覧いただくとして、ここでは「b」について説明
します。

メインフォームに『コード転記』コマンドボタンを作成したら、そのクリック時
イベントに以下のコードを記載して下さい:

Private Sub コード転記_Click()

  If MsgBox("サブフォームにプロジェクトコードを追記します", vbOKCancel, "確認") = vbCancel Then Exit Sub

  'サブフォームの全レコードを上書き更新
  With Me![サブフォームのコントロール名].Form.RecordsetClone
    Do Until .EOF
      .Edit
      !プロジェクトコード = Me!プロジェクトコード
      .Update
    Loop
  End With

  '更新を反映
  Me![サブフォームのコントロール名].Form.Refresh

  MsgBox "追記しました", , "確認"

End Sub


なお、「a/b」のどちらを採った場合でも、サブフォームの『P_ID』の上書き
編集に合わせて『プロジェクトコード』も連動して更新させるには、別途、
以下のような『P_ID』の更新後イベントでの対応が必要です:

Private Sub P_ID_AfterUpdate()
'メインではなくサブフォームの『P_ID』テキストボックスの更新後イベント

  If IsNull(Me!P_ID) Then
    Me!プロジェクトコード = Null
  Else
    Me!プロジェクトコード = DLookup("[プロジェクトコード]", "tbl_プロジェクト", "[P_ID]=" & Me!P_ID)
    '『P_ID』がテキスト型の場合は上記ではなく以下のコード
    'Me!プロジェクトコード = DLookup("[プロジェクトコード]", "tbl_プロジェクト", "[P_ID]='" & Me!P_ID & "'")
  End If

End Sub

また、この対応を組み込んで戴けば、

> テーマを修正するとフォーム上では10001が入力される。
> tbl_テーマには反映されない。

の件も解消すると思います。
(但し、別のレコードに移動したり、メニューから「レコード(R)→レコードの
 保存(O)」を選択する等して、レコードが保存してからでないと、テーブル
 には反映されないので、確認の際はご注意下さい)


・・・以上です。

No.4です。

前回の回答は、「レコードの新規登録」のみを想定していました(汗)
大変失礼致しました。


【「メインフォーム」-「サブフォームの新規レコード」間の不一致について】
(=No.4の補足での、2個目の「◆」の件)

メインフォーム側の「レコード移動時」イベントで、『プロジェクトコード』の
更新後イベントと同様の処理を行えば、解消すると思います。
(先頭1行が「Private Sub Form_Current()」となる他は、前回のVBAと全く
 同じなので、今回は省略します)


【既存レコードでの『プロジェクトコー...続きを読む

QAccessで、サブフォームのあるフォーム内をEnterキーで移動したい

いつもお世話になっております。
質問させてください。m(_ _)m

Accessで、サブフォームのあるフォームを作成すると、同一フォーム内のフィールド移動は「Enter」で動きますが、フォーム間の移動は「Ctrl+tab」になります。
画面に表示されているフィールド間全部を(サブフォームであってもなくても関係なく)「Enter」キーのみで移動していく方法はありますか?
あればその方法を教えてください。
移動順序も変えられたらありがたいです。

よろしくお願いします。

Aベストアンサー

> 移動順序も変えられたらありがたいです。

タブ移動順のことでしたら、プロパティシートで指定できます。
 1)フォームをデザインビューで開く
  (Access2000以降ならフォームビューでも可)
 2)右クリックメニューなどでプロパティシートを開く
 3)コントロールのどれかを選択
 4)「その他」タブの「タブ移動順」にカーソルを移動させ、右端に表示される
  「...」をクリック
 5)「タブオーダー」ダイアログが表示されるので、クリック&ドラッグで各コント
  ロールの移動順序を編集(詳細/ヘッダ/フッタでそれぞれ別なので注意)
 6)「OK」をクリックして「タブオーダー」ダイアログを閉じる
 7)フォームを保存
・・・以上です。
(上記の方法ではなく、数字自体を編集すると変な結果になることがあるので
 注意して下さい)

  ------------------------------

> 画面に表示されているフィールド間全部を(サブフォームであってもなくても
> 関係なく)「Enter」キーのみで移動していく方法はありますか?

残念ながら、私の知っている範囲では、その方法は用意されていません。
なので、自作するしかありません。

で、自作するにしても、
 A)FunctionまたはSubとして用意して使い回し
 B)フォーム毎に個別でコード作成
の2通りの対応がありますが、「A」の方法は色々と考えなければならないことが
多すぎて、かなり厳しいです。
(例えば、ヘッダ/フッタの有無、レコード移動の可否(連結/非連結フォームの
 切り分け)、新規レコードの表示の有無(メインフォームに戻るのは最後の
 レコードの時か新規レコードの時か)・・・等を判定するコードが必要)

なので、当面はフォーム個別で対応されることをお薦めします。
方法の一例としては・・・メインフォーム・サブフォームにフォーカスを飛ばすための
コントロールを設置する、という方法があります。

例えばフォームの構成が
 メインフォーム;フォーム名=MF
  TB1,TB2(テキストボックス),SF1(サブフォーム),Cmd1,Cmd2(コマンドボタン)
 サブフォーム;フォーム名=SF (SF1のソースオブジェクト)
  Tx1,Tx2,Tx3(テキストボックス)
だったとします。

メインフォームに「Prv」「Nxt」、サブフォームに「Rtn」「Ext」というコントロール
(例えばオプションボタン等)を設置し、それぞれのタブ移動順を、
 メインフォーム ; TB1→TB2→Prv→SF1→Nxt→Cmd1→Cmd2
 サブフォーム ; Rtn→Tx1→Tx2→Tx3→Ext
となるように設定します。

そうしたら、メインフォームの「Prv」「Nxt」の「フォーカス取得後」イベントに
以下のコードを記述します;

Private Sub Prv_GotFocus()  '「→」「Tab」キー等で移動時
On Error GoTo エラー処理
'サブフォームの先頭レコードに移動
SF1.SetFocus  
With SF1.Form
!Tx1.SetFocus
DoCmd.GoToRecord , , acFirst
End With
終了処理:
Exit Sub
エラー処理:
MsgBox Err & ":" & Error$, , Me.Name & " Prv"
Resume 終了処理
End Sub

Private Sub Nxt_GotFocus()  '「←」「Shift+Tab」等で移動時
On Error GoTo エラー処理
'サブフォームの新規レコードに移動
SF1.SetFocus
With SF1.Form
!Tx3.SetFocus
DoCmd.GoToRecord , , acNewRec
End With
終了処理:
Exit Sub
エラー処理:
MsgBox Err & ":" & Error$, , Me.Name & " Nxt"
Resume 終了処理
End Sub

次に、サブフォームの「Rtn」「Ext」の「フォーカス取得後」イベント;

Private Sub Ext_GotFocus()  '「→」「Tab」キー等で移動時
On Error GoTo エラー処理
'新規レコードの場合はメインフォームに戻る
If Me.NewRecord Then
Tx3.SetFocus
Me.Parent!Cmd1.SetFocus
Else
Tx1.SetFocus
DoCmd.GoToRecord , , acNext
End If
終了処理:
Exit Sub
エラー処理:
MsgBox Err & ":" & Error$, , Me.Name & " Ext"
Resume 終了処理
End Sub

Private Sub Rtn_GotFocus()  '「←」「Shift+Tab」等で移動時
On Error GoTo エラー処理
'先頭レコードの場合はメインフォームに戻る
If Me.CurrentRecord = 1 Then
Tx1.SetFocus
Me.Parent!TB2.SetFocus
Else
Tx3.SetFocus
DoCmd.GoToRecord , , acPrevious
End If
終了処理:
Exit Sub
エラー処理:
MsgBox Err & ":" & Error$, , Me.Name & " Rtn"
Resume 終了処理
End Sub

さらに、サブフォームの「開くとき」イベント;

Private Sub Form_Open(Cancel As Integer)
On Error GoTo エラー処理
Tx1.SetFocus
終了処理:
Exit Sub
エラー処理:
MsgBox Err & ":" & Error$, , Me.Name & " Open"
Resume 終了処理
End Sub


・・・以上です。

なお、「Rtn」等のコントロールはクリックした場合も同じ動作をするので、
他のコントロールと重ねた上で、メニューで「書式(O)→最背面に移動(K)」
として、ユーザーの目から隠しておくことをお薦めします。

> 移動順序も変えられたらありがたいです。

タブ移動順のことでしたら、プロパティシートで指定できます。
 1)フォームをデザインビューで開く
  (Access2000以降ならフォームビューでも可)
 2)右クリックメニューなどでプロパティシートを開く
 3)コントロールのどれかを選択
 4)「その他」タブの「タブ移動順」にカーソルを移動させ、右端に表示される
  「...」をクリック
 5)「タブオーダー」ダイアログが表示されるので、クリック&ドラッグで各コント
  ロールの移動順序を編集(詳細/...続きを読む

QAccess サブフォームでの選択行の取得

こんにちは。

Access初心者です。

サブフォームでテーブルの項目を表示させていますが、
選択された行を取得する方法はありますか?
サボフォームの下の方に現在選択されているレコード数が表示されてますが、その値でかまいません。

調べているのですが、なかなか検討がつきません。
宜しくお願い致します。

Aベストアンサー

フォーム名がフォーム1、サブフォームコントロールの名前がサブフォーム1だとすると、

Forms!フォーム1!サブフォーム1.Form.CurrentRecord

で取得できます。
(「Forms」と「Form」がありますのでご注意下さい)


また、フォーム1にコードを記述する場合であれば

Me!サブフォーム1.Form.CurrentRecord

サブフォーム1へのコード記述であれば

Me.CurrentRecord

という構文によっても、それぞれ取得が可能です。

Qサブフォームに対してGoToRecordするには?

フォームに対してRequeryすると先頭のレコードへ移動してしまうので
Requeryする前のレコードの番号を取得して
Requery後にそのレコード番号へ移動したいのですが

Sub test()
i = Forms("Form").Controls("SubForm").Form.CurrentRecord
Forms("Form").Controls("SubForm").Requery
DoCmd.GoToRecord acActiveDataObject, Forms("Form").Controls("SubForm"), acGoTo, i
End Sub

これをすると、実行時エラー2498
指定した式は、いずれかの引数とデータ型が対応していません。
になりますが、
どこがおかしいのでしょうか?

Aベストアンサー

【要旨】
サブフォームのレコード移動では、対象サブフォームは引数で指定するのではなく、
SetFocusメソッドで移動後、引数を省略したGotoRecordを使用します:
  Forms("Form").Controls("SubForm").SetFocus
  DoCmd.GotoRecord , , acGoto, i

但し、「Requery前後でのレコード移動の回避」が目的の場合は、Requeryの
対象を「親フォームまたはサブフォームのFormオブジェクト」ではなく「サブフォーム
コントロール」とすればOkです。
 <現状・例1>
  Forms("Form").SetFocus
  DoCmd.Requery
 <現状・例2>
  Forms("Form").Requery
 <現状・例3>
  Forms("Form").Controls("SubForm").Form.Requery
 <代替策>
  Forms("Form").Controls("SubForm").Requery
  ※「現状・例3」との違い(→途中の「.Form」の有無)に注意。


【詳細】
> 実行時エラー2498

このエラーの直接の原因は、GotoRecordメソッドの第2引数に指定している
「Forms("Form").Controls("Subform")」の部分です。

ここに指定するのはオブジェクト名になりますが、そのデータ型は文字列型です。
一方、「~.Controls(~)」の形で指定した場合、取得できるのは
 a)オブジェクトそのもの
 b)そのオブジェクトのデフォルトプロパティ
のどちらかです(→状況によって変化します)。
(例えばテキストボックスなら、TextBoxオブジェクトまたはValueプロパティの値)

サブフォームのデフォルトプロパティは調べていませんが(汗)、少なくとも文字列
型のプロパティではないため、「型が一致しない」とのエラーとなります。
サブフォームのコントロール名を取得する場合は、
  Forms("Form").Controls("SubForm").Name
というように、Nameプロパティを明示的に指定する必要があります。

ただ、「サブフォームのレコード移動」の場合、明示的に「Name」プロパティを
指定しても解決には至りません(汗)
これは、GotoRecordメソッドの第2引数には、直接開いているオブジェクトの
名前のみが有効なためで、サブフォームを直接的に指定することはできない、
ということです。
(注:Microsoftの資料を探したわけではなく、経験則から記述していますので、
 私の勘違いでしたらご容赦願います(汗))

サブフォームのレコード移動には、冒頭に記述したとおり、「フォーカスの移動」と
「一部の引数を省略したGotoRecord」を使用します:
  Forms("Form").Controls("SubForm").SetFocus
  DoCmd.GotoRecord , , acGoto, i

なお、これも冒頭に書きましたが、サブフォームのRequeryの仕方には幾つか
方法がありますが、Requeryの対象を「コントロールとしてのサブフォーム」にすれば、
レコード移動が発生しませんので、GotoRecord自体が不要になります。
http://www.f3.dion.ne.jp/~element/msaccess/AcTipsFrmHowToRequeryAndReturn.html

【要旨】
サブフォームのレコード移動では、対象サブフォームは引数で指定するのではなく、
SetFocusメソッドで移動後、引数を省略したGotoRecordを使用します:
  Forms("Form").Controls("SubForm").SetFocus
  DoCmd.GotoRecord , , acGoto, i

但し、「Requery前後でのレコード移動の回避」が目的の場合は、Requeryの
対象を「親フォームまたはサブフォームのFormオブジェクト」ではなく「サブフォーム
コントロール」とすればOkです。
 <現状・例1>
  Forms("Form").SetFocus
  DoCmd.Requery
 <現...続きを読む

QAccess2010 Enterで次テキストへ移動

Accessのフォームで、
テキストなどの「プロパティ」→「その他」→「Enterキー入力時動作」を「規定」にすると、
フォームビューでそのテキストにフォーカスがあるときにEnterキーを押した場合、
タブ移動順で指定してある次のテキストにフォーカスが移ると思うのですが、
特定のパソコンのみEnterキーを押してもフォーカスが移動されません。
Tabキーではちゃんと移動されるのですが、、、

最初は、テンキーの改行を使っていて、NumLockの影響で使えてないのでは、と思ったのですが、
そもそもEnterキーでフォーカスが移動しないPCはノートPCで、
テンキー部分が存在していないタイプのものでした。

他のPCでは動作するので、PC側の設定だとは思うのですが、
PCそのものの設定なのか、PCに由来するAccessの設定なのか、
何を確認すればよいのかすらわからず、途方に暮れております。

同じような症状を経験し、解決された方が見えましたら、
お知恵を頂戴したく思い、ご質問させて頂きました。

よろしくお願いします。

Aベストアンサー

ファイルタブ→オプション→クライアントの設定の
Enter キー入力後の動作
が移動しないになっていませんか?
フォームの「既定」はここが反映されます。
ハズレなら問題切り分けが必要になりますね。

Q親フォームからサブフォームのレコードソースを設定

親フォームからサブフォームのレコードソースを設定するには?
フォーム1にテーブル1をドロップアンドドラッグして、「テーブル1のサブフォーム」を作成しました。

フォーム1にあるコマンドボタンから「テーブル1のサブフォーム」のRecordSourceを設定する方法を教えてください。

「テーブル1のサブフォーム」からなら
Private Sub Form_Load()
Me.RecordSource = ""
End Sub

とできるのですが、
やりたいことはフォーム1からのイベントなので
「テーブル1のサブフォーム」からのイベントは使えません。

だからってフォーム1の
Private Sub コマンド2_Click()
Me.テーブル1のサブフォーム.RecordSource = "テーブル1のサブフォーム"
End Sub

とするとコンパイルエラーになります。

良い方法があれば教えてください。アドバイスよろしくお願いします。

Aベストアンサー

No2です。説明もれがあったので追加しておきます。
No2のところで、

>このとき、「テーブル1のサブフォーム」
>のフィールドには「#Name?」のような表示がされていると
>思います。すなわちこときはサブフォームにはレコードソースが
>設定されていないからです。

としていますが、「#Name?」と表示される理由はフィールドの
コントロールソースが設定されているために、「#Name?」のような
表示が出てきます。


ここからは蛇足ではありますが、コントロールソースが設定されていなければ
こうした表示はでませんが、もしコントロールソースも取り除いて
いるならば、コマンド1でもコマンド2のクリックイベントでもどちらでも
かまいませんが、たとえば「テーブル1のサブフォーム」の
フィールドのコントロールソースをすべて取り除いておいて、
コマンド2のクリックイベントで設定するとすれば、一応
「テーブル1のサブフォーム」のフィールドの名前をID、名前、住所として
テーブル1のフィールド名を同じくID、名前、住所とするならば、

Private Sub コマンド2_Click()
Me.テーブル1のサブフォーム.Form.RecordSource = "テーブル1"
Me.テーブル1のサブフォーム.Form.Controls("ID").ControlSource = "ID"
Me.テーブル1のサブフォーム.Form.Controls("名前").ControlSource = "名前"
Me.テーブル1のサブフォーム.Form.Controls("住所").ControlSource = "住所"
End Sub

として、レコードソース、コントロールソースを設定します。

No2です。説明もれがあったので追加しておきます。
No2のところで、

>このとき、「テーブル1のサブフォーム」
>のフィールドには「#Name?」のような表示がされていると
>思います。すなわちこときはサブフォームにはレコードソースが
>設定されていないからです。

としていますが、「#Name?」と表示される理由はフィールドの
コントロールソースが設定されているために、「#Name?」のような
表示が出てきます。


ここからは蛇足ではありますが、コントロールソースが設定されていなければ
こうした表示はで...続きを読む

Qサブフォームの新規レコードに移動したい アクセス

親フォームのコマンドボタンをクリックしたら
親フォームにはまっているサブフォームの新規レコードに移動したいのですが、
うまくできません。

サブフォームのオブジェクト名は、"F_SubForm"です。
サブフォームはデータシートビューです。

VBAコードは
Private Sub cmd_test_Click()
DoCmd.SelectObject acForm, "F_SubForm"
DoCmd.GoToRecord , , acNewRec
End Sub
です。

上記コードを実行すると
DoCmd.SelectObject acForm, "F_SubForm"
の部分で、
「実行時エラー 2489
 オブジェクトが開いていません。」
となります。

だからと言って、
DoCmd.GoToRecord , , acNewRec
だと、何も起こりません。(新規レコードに移動しません)

解決方法をご教授ください。

Aベストアンサー

> DoCmd.GoToRecord

これは、現在フォーカスがあるフォームに対して有効だったと思うので、

> 親フォームのコマンドボタンをクリック

した状態では、
フォーカスはコマンドボタンにあり、
そのコマンドボタンは親フォームにあるので、
親フォームに対して・・・という解釈になります。

> DoCmd.SelectObject acForm, "F_SubForm"

この DoCmd.SelectObject acForm は、フォームとして起動されている・・・
組み込まれたサブフォームは、フォームとして起動されているわけではないので NG

親フォームをデザインで見た時、
サブフォームコントロール名が F_SubForm なら
サブフォームコントロールにフォーカスを移した後に、DoCmd.GoToRecord しては?

Private Sub cmd_test_Click()
  Me.F_SubForm.SetFocus
  DoCmd.GoToRecord , , acNewRec
End Sub

※ 未検証

QAccessのフォーム上にレコード数とレコード番号の表示

Accessでクエリを元に表示するフォーム上で、テキストボックス等に関数を使って、レコード数とレコード番号を表示する方法がありましたら教えてください。

フォームの書式設定で「移動ボタン」の表示をすれば目的の事は出来るのですが、表示の大きさが調整できない為、とても見難いのです。

以上よろしくお願いします。

Aベストアンサー

レコード番号のコントロールソースを
=[CurrentRecord]
レコード数のコントロールソースを
=Count("*")-[NewRecord]
としてみてください。

QACCESSサブフォームにデータ反映されない

よろしくお願いします。

Access2010を使っています。
メインフォームにあるテキストボックス2つに条件を入力し、
抽出したデータをサブフォームで表示させたいと思います。

●メインフォーム名「フォーム1」
テキストボックス2つ「tex1」「tex2」

●データ元クエリ「q1」
フィールド名「ID1」「ID2」「Name」

●サブフォームSQL
SELECT q1.Name
FROM q1
WHERE (((q1.ID1) = Forms![フォーム1]!tex1) And
((q1.ID2) = Forms![フォーム1]!tex2)));


フォームを開き、tex1とtex2に入力してもサブフォーム表示が変わりません。
サブフォームをデータシートで別に開くと、データ抽出できていることは確認できました。

サブフォームのコントロールソースへSQLを入力するだけでは、
メインフォーム内でのデータは反映されないんでしょうか??

Aベストアンサー

>サブフォームをデータシートで別に開くと、
>データ抽出できていることは確認できました。

の部分がよくわかりませんが。


普通は、たとえば、
メインフォームにボタンを一つ
設定し、そのボタンのクリックイベントで、

Private Sub コマンド0_Click()
Me!埋め込み0.Requery
End Sub

のように設定します。
ここで、「埋め込み0」というのはメインフォームの
デザインビューでサブフォームを表示するために
設定するコントロールのことで、サブフォーム
そのもではありません。初期値は「埋め込み0」
のような名前になっています。サブフォームと
同じ名前に設定しているならば、「埋め込み0」
のところをサブフォームと同じ名前に置き換えても
かまいません。


そのほかには、「tex2」の更新後処理に同様に、

Private Sub tex2_AfterUpdate()
Me!埋め込み0.Requery
End Sub

のように設定してもいいのですが、この場合には
「tex2」に入力後、一旦フォーカスを移動させる
必要があります。たとえば「tx1」にマウスを
移動させてクリックするとか。それによって
「tex2」の更新後処理が起動されます。

>サブフォームをデータシートで別に開くと、
>データ抽出できていることは確認できました。

の部分がよくわかりませんが。


普通は、たとえば、
メインフォームにボタンを一つ
設定し、そのボタンのクリックイベントで、

Private Sub コマンド0_Click()
Me!埋め込み0.Requery
End Sub

のように設定します。
ここで、「埋め込み0」というのはメインフォームの
デザインビューでサブフォームを表示するために
設定するコントロールのことで、サブフォーム
そのもではありません。初期値は「埋め込み0」
のよう...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング