Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1379 / 9994

←次へ　｜　前へ→


	【11913】検索結果を一覧に表示する方法

なりん - 11/1/16(日) 0:43 -


	引用なし

	パスワード

OS:windows xp
Access Version:2003

検索して一覧を表示するものを作成しています。

フォームを２個作成しました。
・FormSerch･･･検索ボタン配置
・FormSerchIchiranView･･･検索結果を表示用

メインとなるフォーム「FormSerch」の中にサブフォームを「SUB」を配置し、
このサブフォームのプロパティのソースオブジェクトで「FormSerchIchiranView」を
指定しています。

「FormSerch」の検索ボタン押下時のロジックを記載しているのですが、
「FormSerchIchiranView」を認識してくれません。
エラー内容：実行時エラー'2465'指定した式で参照されている'FormSerchIchiranView'フィールドが見つかりません。となります。

フォームやサブフォームのプロパティは特に変更していません。
何か設定漏れなどあるでしょうか？
「FormSerch」のフォームデザインを開くとちゃんと「FormSerchIchiranView」が
配置された状態で表示されるので認識をされているとは思っているのですが･

以下ロジックの抜粋　＊SQLを発行してデータは取得できています。

'DB接続
rs.Open strSelectSql & strFromSql & strWhereSql, Application.CurrentProject.Connection, _
　　　　　　　　　　　　　　　　　　　　　　　　　　adOpenKeyset, adLockOptimistic

If Not rs.EOF Then
　　'データが存在する場合
　　With FormSerchIchiranView ●●ここです●●
　　　　'データを一覧に設定
　　　　Set .Recordset = rs
　　　　　　.txt0.ControlSource = "ININAME"
　　　　　　.txt1.ControlSource = "iNN"
　　　　　　.txt2.ControlSource = "COMPANYNM"
　　　　　　.txt3.ControlSource = "COMPANYAFFI"
　　　　　　.txtCount = rs.RecordCount
　　　　Me.SUB.Requery
　　　　Me.SUB.SetFocus
　　End With
Else
　　'データが存在しない場合
　　'メッセージボックスを表示し、一覧クリア
　　MsgBox "データがありません", vbInformation, "データ無し"
　　With FormSerchIchiranView
　　　　.txt0.ControlSource = ""
　　　　.txt1.ControlSource = ""
　　　　.txt2.ControlSource = ""
　　　　.txt3.ControlSource = ""
　　　　.RecordSource = ""
　　　　.txtCount = "0"
　　　　Me.SUB.Requery
　　End With
End If

838 hits

▼

【11913】検索結果を一覧に表示する方法 なりん 11/1/16(日) 0:43