| |
▼小僧 さん：
こんにちは!
>前回の質問から判断して「1.フォーム」がメインで「2.フォーム」はサブフォームでしょうか？
そうです。
貼り付けてみたのですが、エラーが出てしまいました。
Private Sub Form_DblClick(Cancel As Integer)
Dim MainRS As DAO.Recordset
Dim SubRS As DAO.Recordset
Set MainRS = Forms![F_発生+被災+実態全体].Recordset
Set SubRS = Me.Recordset
MainRS.FindFirst "[T●発生状況.事故ID] = '" & Me.T●発生状況.事故ID & "'"
Set SubRS = Nothing
Set MainRS = Nothing
End Sub
↑氏名はサブフォームには持ってきていなかったので、事故IDとしました。
1.のフォームは F_発生+被災+実態全体 という名前です。
サブフォームのダブルクリック時に、上記を貼り付けました。
コンパイルエラー となり、
Private Sub Form_DblClick(Cancel As Integer) 黄色くなる
Dim MainRS As DAO.Recordset ここが指定される
となっています。
|
|
サチチ
- 05/6/7(火) 15:04 -
