ベストアンサー

Accessサブフォームのレコード移動

2004/07/21 09:22

Accessにおいて、サブフォームのレコードの移動方法をどなたか教えてもらえませんか。「Forms![メインフォーム名]![サブフォーム名].Form.SetFocus　DoCmd.GoToRecord acDataForm, "サブフォーム名", acNext」とコーディングしたのですがダメでした。よろしくお願い致します。

noname#16209

Visual Basic
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

LovelyMacky
ベストアンサー率33% (1/3)

2004/07/23 01:18 回答No.1

自宅のMacから回答を送っていますので確認できませんが、多分SetFocusの後で、SendKeyでカーソルキーを指定してあげれば移動すると思います。

質問者

お礼 2004/07/23 08:13

回答ありがとうございます。

関連するQ&A

Access メインフォームサブフォームにて

お世話になります。 Accessにてメインフォームにコマンドボタンを置いて、クリックするとサブフォームのレコードが次に行くようにしたいのですが、コマンドボタン　クリック Forms![メインフォーム]![サブフォーム名].Form!フィールド名.SetFocus DoCmd.GoToRecord , , acNext メインフォームとサブフォームのレコードが次に行ってしまいます。サブフォームだけ次のレコードに行くには、どのようにすれば良いのでしょうか。分かる方教えて下さい。宜しくお願いします。
GoToRecordでサブフォームを指定したい

Fフォームの中にSF詳細という名前のサブフォームを埋め込んでいます。このサブフォームに対して、指定したレコードに移動したいのですが DoCmd.GoToRecord acDataForm, Form_SF詳細, acGoTo, 3 DoCmd.GoToRecord acDataForm, Forms("Fフォーム").Controls("SF詳細").Form, acGoTo, 3 DoCmd.GoToRecord acDataForm, "SF詳細", acGoTo, 3 全部エラーになり、うまくいきません。正しい記述の仕方を教えてください。
サブフォームのレコード移動

以下のように2つのサブフォームを親フォームより指定しています。この場合だとかならずSetFocusしなくてはならなくそのたびに画面がぶれてしまいます。 Me.[1つ目のサブフォーム].SetFocus DoCmd.GoToRecord , , acGoTo, num Me.[2つ目のサブフォーム].SetFocus DoCmd.GoToRecord , , acGoTo, num SetFocusをしないでもサブフォームの移動は可能でしょうか？よろしくお願いします。
AIは使う人の年齢や市場にも影響する？人工知能の可能性

OKWAVE コラム
Access レコード移動時イベントでサブフォーム

お世話になります。親フォーム　Ａがあります。（データソースが存在します）その中にサブフォームＢがあります。（データソースが存在します）親フォームのレコード移動時のイベントで、いつもサブフォームのレコードの最後を表示したいのです。そこで・・・親フォームＡの　レコード移動時イベントに Private Sub Form_Current() Me.B.SetFocus DoCmd.GoToRecord , , acLast End Sub 上記を記述すると、一番初めはきちんとサブフォームBのレコードは最後を表示するのですが、以後、親フォームのレコードを動かすと、親フォームの最後のレコードをさしっぱなしになってしまいます。 Me.B.SetFocus DoCmd.GoToRecord , , acLast これの後にどんな記述をすれば、親フォームのレコードを動かすと同時にサブフォームＢも最後の行に移るようにできますでしょうか？何卒よろしくお願いいたします。
サブフォームの新規レコードに移動したい　アクセス

親フォームのコマンドボタンをクリックしたら親フォームにはまっているサブフォームの新規レコードに移動したいのですが、うまくできません。サブフォームのオブジェクト名は、"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 だと、何も起こりません。（新規レコードに移動しません）解決方法をご教授ください。
レコード移動について

単票フォームで何件かレコードがあります。それを DoCmd.GoToRecord , , acNext で１つずつ移動させ、今何番目のデータなのか？をメッセージで出し、最後のレコードになったら「最後のレーコード」というメッセージの後に Exit Sub させたいのですが... F8 で1つ1つコンパイルさせるとできるのですが、データベース画面から直接フォームをDBCLして開こうとするといきなり「最後のレコード」になってしまいます。記述のが悪いのでしょうか？それともフォーム自体が悪いのでしょうか？教えてください Private Sub Form_Current() If Me.CurrentRecord >= Me.RecordsetClone.RecordCount Then MsgBox "最後のレコード" Exit Sub Else MsgBox "途中のレコード" DoCmd.GoToRecord , , acNext 　 End If End Sub
サブサブフォームのレコード移動方法

　いつもお世話になっております。サブサブフォームのニューレコードに移動するボタンを作成しようとしているのですが、サブフォームは移動できるのですが、サブサブフォームを移動させることができません。 Me.sub1.Form.sub2.Form.コンボボックス名.SetFocus DoCmd.GoToRecord , , acNewRec で記述してみたのですが反応がありませんでした。指定方法が間違っているのでしょうか？よろしくお願いします。
新規レコードへ移動しない

Access2010を使用しています。サブフォームからメインフォームの「登録」ボタンプロシージャをCallした時、メイン・サブフォーム共に新規レコードへ移動しなくて困っています。具体的には、サブフォームにフォーカスがある時に「F12」を押すと画面の入力項目の内容刃そのままでメインフォームの「注文番号」テキストボックスにフォーカスが移動します。メインフォームにフォーカスがあるか、マウスで「F12」をクリックすると画面の入力項目がクリアされて新規レコードへ移動します。コードは以下の内容が記述してあります。ーーーーーサブフォーム----- Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 123 Call Me.Parent.Form_KeyDown(KeyCode, Shift) KeyCode = 0 End Select End Sub -----メインフォーム----- Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 123 Call 登録_Click KeyCode = 0 End Select End Sub Private Sub 登録_Click() DoCmd.GoToRecord , , acNewRec Me.注文番号.SetFocus End Sub
Access2000メインサブフォームでのレコード移動

Access2000でデータベースを作っている中で、メイン／サブフォームを使用しています。メインフォームで次レコードへ移動しようとすると、レコードNOは移動しているのですが、データ内容が変わりません。私の予想なのですがサブフォームにあるレコードの数だけ、（メインフォームの）同一レコードの内容が表示されているようです。・次レコードへの移動はフォーム一番下の、デフォルトでついてるレコード移動のボタンを押しました。・（メインフォ－ムの）テーブルにはKeyを設定してあり、同じデータは存在していません。以上ですが、不明な点がありましたらお知らせください。もしお分かりになる方がおられたらお教えください。よろしくお願いいたします。
ACCESS VBAサブフォーム(DATA SHEET)の値の取得方法

いつもお世話になっております。 ACCESS VBAでメインフォームに貼りついているサブフォームの値をとりたいのですが、うまくいっていません。現状は module1でaをPublicで宣言サブフォーム中のFORM_CURRENT()中で me.field1.setfocus a = me.field1.value として取得しています。 (実装ではメインのほうのボタンAを押したときにサブフォーム、FORM_CURRENT()で取得しておいた値を別の変数に入れようとしています。) サブフォームのみで実行するとうまくいくようですが、メインフォームに貼り付けるとうまくいかないようです。 (メインフォームに貼り付けて、サブフォームのFORM_CURRENTにブレイクを貼って止めようとするが止まらない) そこでメインフォームボタンAクリックイベントで dim a1 as integer Forms![mainform]![subform].form.[field1].setfocus a1 = Forms![mainform]![subform].form.[field1].value として値をとろうと思ったのですがメインフォームからサブフォームにフォーカスをうつせない？らしく、サポートされていませんの旨のメッセージがでてしまいます。やりたいこととしては、メインフォームに貼りついたサブフォームの選択レコードのフィールド値を、メインフォームのボタンを押したときに取得する。ということなのですが、うまくいっていません。別の方法でもいいので、実現方法をご存知の方、よろしくお願いします。ちなみにACCESSは2000を使用、ADOはサポートされていますがDAOは非サポートのようです。
Access2000のフォームに含まれるサブフォームのコントロールへのカーソルの移動の仕方

Forms![メインフォーム名]![サブフォームコントロール名] のように指定してもコントロールが移動してくれないんです。もし、移動できたとしてサブフォームの一番最後のレコードのセルをコピーしたいのです。どのように指定すればよいのでしょうか？教えてください。
Access サブフォームのレコードソースを変更するには

Accessのプロシージャについて教えてください。フォーム FM0020 上に、2つのサブフォーム FS002001 と、FS002002 があります。メインフォームにある値を使って、サブフォームのレコードソースを変更したいのですが、どうもうまくできません。 FS002001のレコードソースは下記の1行目のコードで変数strSQLに代入出来るのですが、 FS002002のレコードソースは下記の2行目のようにしても「オブジェクトまたはクラスがこのイベントセットをサポートしていません」となり、代入出来ないのです。 2つ目のサブフォーム上にあるテキストボックス HMCD が下記3行目のようにすると代入できるので、サブフォームの名前を間違えているわけではないと思うのですが...。他に原因としては何が考えられますか？下記の3行を同じモジュール内に続けて書いても2行目だけがひっかかるのでもうお手上げ状態です..。なんとか助けてください。お願いします。 strSQL = Forms!FM0020.FS002001.Form.RecordSource strSQL = Forms!FM0020.FS002002.Form.RecordSource strSQL = Forms!FM0020.FS002002!HMCD
サブフォームに対して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 指定した式は、いずれかの引数とデータ型が対応していません。になりますが、どこがおかしいのでしょうか？
ACCESSのサブフォームからメインフォームへの移動

お世話になります。仕訳伝票の入力画面を作成しています。仕訳登録フォームにサブフォームを2つあります。うまく説明できないのでコーディングを記入しておきます。これで仕訳登録フォームから仕訳登録サブ借方フォーム仕訳登録サブ借方フォームから仕訳登録サブ貸方フォームへはカーソルが移動しますが仕訳登録サブ貸方フォームから仕訳登録フォームへは移動してくれませんマウスを使わずイベントで移動する方法はありますかメインフォーム仕訳登録 Private Sub 目的_LostFocus() DoCmd.GoToControl "仕訳登録サブ借方" End Sub サブフォーム１仕訳登録サブ借方 Private Sub 借方合計_Click() Forms!仕訳登録!借 = 合計 DoCmd.GoToControl "仕訳登録サブ貸方" End Sub サブフォーム２仕訳登録サブ貸方 Private Sub 貸方合計_Click() Forms!仕訳登録!貸 = 合計 DoCmd.GoToControl "仕訳登録" End Sub 「カレントレコードに'仕訳登録'というフィールドはありません」とメッセージにになりますので Private Sub 貸方合計_Click() Forms!仕訳登録!貸 = 合計 DoCmd.GoToControl "Forms!仕訳登録!貸" End Sub 「カレントレコードに'Forms!仕訳登録!貸'というフィールドはありません」とエラーメッセージになります。
サブフォームのプロシージャーの呼び出し方

Access2010です。別フォームの、サブフォームのプロシージャーの呼び出し方が分かりません。呼び出すフォーム名メインサブフォーム名メインSF プロシージャー名取り込み4 です以下のようにやってみましたが、エラーになってしまいます。 Call Forms_メイン_メインSF.Form.取り込み4 よろしくお願いします
Accessのサブフォームについて

メインフォームとサブフォームのあるフォームを作成しました。メインフォームを入力してから、サブフォームを入力し、次のレコードへ移動するのにメインフォームの移動ボタンを押すと、次のレコードのカーソルがサブフォームのフィールドへ移動します。メインフォームに移動する方法はありませんか？
アクセスサブフォーム２つを同時にレコード移動したい

お世話になります。メインフォームに　サブフォームが２つあります。片方のサブフォーム内のレコードを移動させたら、同時にもう片方の方も自動的にレコード移動をさせたいです。理由は、テーブル内のフィールド数が２５５個までのため分割してるからです。本来、両方合わせて１つのレコードだからです。よろしくお願いします。
サブフォームが見えなくなる。

サブフォームが見えなくなる。Ａccess初心者です。メインフォームにサブフォームを入れ込んだのですが、メインフォームを新しいレコードに移動すると、サブフォーム自体が出てこなくなります。データがあるレコードではきちんとサブフォームが出ていることが確認出来ています。どうしていいのか判らないので教えて下さい。マクロで入力ボタンを押すとメインのフォームを開き、新しいレコードに移動することをやっていますが、関係あるでしょうか？やりたいことはメインを新しいレコードに移動した時に、サブフォームが表示されて入力できるようにしたいということです。
ACCESS2000のメインフォームサブフォーム間の移動

Access2000でメインフォームの中に詳細を確認/入力するためのサブフォームを作成しています。メインフォームの中のコントロールを最後まで入力（enterで移動）していくと、メインフォームの最後のコントロールの次はサブフォームの最初のコントロールに移動します。（これは普通ですよね？）サブフォームはデータの詳細によっては１レコードで終わるものもありますし、複数レコードにわたるものもあります。サブフォームの入力が終了したときに、キー操作でメインフォームの次のレコードの頭のコントロールに移動する事はできますか？マクロをAccessの方から設定するくらいならできるのですが、自分でSQLをうんぬんする知識はありません。よい方法があったら教えてください。
指定した文字を検索しそのレコードに移動したい

アクセスのフォーム上のレコードで会社名ＡＡＡ会社ＣＣＣ会社ＢＢＢ会社・・・となっていて、「ＢＢＢ会社」をvbaで検索しつつ、そのレコードに移動するにはどうすればいいでしょうか？ GoToRecordメソッドを使う事はわかったのですが、「ＢＢＢ会社」を検索しつつ、そのレコード番号を取得し・・・と言う処理がわかりません。レコード番号さえわかれば、GoToRecordメソッドで移動できる気がします。会社名のレコードが入っているフォームはサブフォームとなっています。

Accessサブフォームのレコード移動

質問者が選んだベストアンサー

お礼 2004/07/23 08:13

関連するQ&A

Access メインフォームサブフォームにて

GoToRecordでサブフォームを指定したい

サブフォームのレコード移動

AIは使う人の年齢や市場にも影響する？人工知能の可能性

Access レコード移動時イベントでサブフォーム

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

レコード移動について

サブサブフォームのレコード移動方法

新規レコードへ移動しない

Access2000メインサブフォームでのレコード移動

ACCESS VBAサブフォーム(DATA SHEET)の値の取得方法

Access2000のフォームに含まれるサブフォームのコントロールへのカーソルの移動の仕方

Access サブフォームのレコードソースを変更するには

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

ACCESSのサブフォームからメインフォームへの移動

サブフォームのプロシージャーの呼び出し方

Accessのサブフォームについて

アクセスサブフォーム２つを同時にレコード移動したい

サブフォームが見えなくなる。

ACCESS2000のメインフォームサブフォーム間の移動

指定した文字を検索しそのレコードに移動したい

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

Accessサブフォームのレコード移動

質問者が選んだベストアンサー

お礼 2004/07/23 08:13

関連するQ&A

Access メインフォーム サブフォームにて

GoToRecordでサブフォームを指定したい

サブフォームのレコード移動

AIは使う人の年齢や市場にも影響する？人工知能の可能性

Access レコード移動時イベントでサブフォーム

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

レコード移動について

サブサブフォームのレコード移動方法

新規レコードへ移動しない

Access2000メインサブフォームでのレコード移動

ACCESS VBAサブフォーム(DATA SHEET)の値の取得方法

Access2000のフォームに含まれるサブフォームのコントロールへのカーソルの移動の仕方

Access サブフォームのレコードソースを変更するには

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

ACCESSのサブフォームからメインフォームへの移動

サブフォームのプロシージャーの呼び出し方

Accessのサブフォームについて

アクセスサブフォーム２つを同時にレコード移動したい

サブフォームが見えなくなる。

ACCESS2000のメインフォームサブフォーム間の移動

指定した文字を検索しそのレコードに移動したい

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

Access メインフォームサブフォームにて

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

カテゴリ
一覧

専門家に質問してみよう
専門家登録