スキルアップ・問題解決なら、モーグにおまかせ！

メインフォームとサブフォームをリンク親子フィールドでつなげています。
メインフォームを単票フォーム、サブフォームをデータシートフォームとしています。
 
現状はメインフォームのレコードを移動させるとデータシートのレコードもあわせて同じレコードのみが表示されています。
 
やりたかったことは、サブフォーム（データシートフォーム）はすべてのテーブルのレコードを表示させてメインフォーム（単票フォーム）のレコード移動にあわせてサブフォームのレコードを移動させてたいです。
 
分割フォームサブフォームでなく、分割フォームにすればよいのですが、サブフォームに書式設定を使用しているため、このような形で作成したいです。
 
 

メインフォームとサブフォームのレコードソースは同じテーブル(クエリ)ということですか。
 
だとしたら、まずは、リンク親子フィールドの設定は削除してください。(これは一対多関係のテーブルの場合に設定するものです。)
 
そのうえでメインフォームの読み込み時のイベントプロシージャを下記のように記述すれば、メインフォームとサブフォームのレコードは同期します。
 

Private Sub Form_Load()
    Set Me.サブフォームコントロール名.Form.Recordset = Me.Recordset
End Sub

hatenaさん
 
コメントありがとうございます。
同じレコード表示を表示することができました。
ありがとうございました。
 

hatenaさん
 
度々申し訳ございません。
メインフォームとサブフォームの同期をすることはできたのですが、サブフォームにてデータ修正やデータを追加するとエラーメッセージがでてしまい修正等をするととができません。
 
Update または CancelUpdate メソッドには、対応する AddNew または Edit メソッドが必要です。 (エラー 3020)
 
回避する方法があれば教えてください。
 

サブフォームでも更新したい場合は、読み込み時のイベントプロシージャは削除して下記のように各フォームのレコード移動時のイベントプロシージャを設定してください。
 
メインフォームのレコード移動時

Private Sub Form_Current()
    If Me.NewRecord Then
        Me.FSub.Form.Recordset.AddNew
    Else
        Me.FSub.Form.Recordset.AbsolutePosition = Me.CurrentRecord - 1
    End If
End Sub

Private Sub Form_Current()
    On Error Resume Next
    If Me.NewRecord Then
        Me.Parent.Recordset.AddNew
    Else
        Me.Parent.Recordset.AbsolutePosition = Me.CurrentRecord - 1
    End If
End Sub

hatena さん
 
早速のアドバイスありがとうございます。
教えていただいたコード記述しました。
サブフォームでも書き込み可能になりました。
しかし、サブフォームで新規追加などすると、メインフォームとのずれが生じてしまったり、メインフォームとサブフォームのずれが生じてきます。
メインとサブフォームで同じクエリを使用しており、昇順にしていることが原因かもしれません。
誤った項目を削除してしまっても問題なので、最初におしえていただいたSet Me.サブフォームコントロール名.Form.Recordset = Me.Recordsetで、登録や修正はメインフォーム限定で使用したほうがよいようです。
いろいろとご教授いただきありがとうございました。

引用:
しかし、サブフォームで新規追加などすると、メインフォームとのずれが生じてしまったり、メインフォームとサブフォームのずれが生じてきます。

Private Sub Form_AfterDelConfirm(Status As Integer)
    Dim cr As Long
    cr = Me.CurrentRecord
    Me.Parent.Requery
    Me.Recordset.AbsolutePosition = cr - 1
End Sub

Private Sub Form_AfterInsert()
    Dim cr As Long
    cr = Me.CurrentRecord
    Me.Parent.Requery
    Me.Recordset.AbsolutePosition = cr - 1
End Sub

hatena さん
  
度々のアドバイスありがとうございます。
教えていただいたコード記述しました。
 
＞＞Me.Parent.Requery
上記のところでデバックしてしまって、うまく動作ができませんでした。
フォーム名を入れるなどして再トライしましたが、知識不足でうまく活用することができませんでした。
 
しばらくは一番最初に教えていただいたコードで運用したいと思います。
 
 
勉強になります。本当にいろいろありがとうございました。