| |
こんにちは。
是非みなさまのお知恵をお貸しください。
次のようなACCESS(Ver.2000)を作りたいと考えています。
1.取引先cd、品名（部分一致）、仕様（部分一致）で検索し、
該当レコードを一覧で表示する。
2.該当レコードの品名をクリックすると、その詳細データを表示する。
購入実績の詳細は常に画面上に開いていて、検索結果の品名をクリックする度に
その内容が変わるようにしたい。
さらには、検索結果の品名に条件付書式をつけて、「この品名を選択してるよ」と
わかるようにしたい。
3.該当データがない場合は、空の詳細を表示し、新規に入力できるようにする。
自分なりに考えて次のように作ってみたのですが。
1.検索用フォーム（帳票）を作り、入力した検索の条件をつなげwhereとし、
ApplyFilterを使ってみました。
2.詳細用フォーム（単票）を作り、検索用フォームのCurrentイベントで詳細フォームを
openformするようにしてみました。
3.該当データがない場合として、検索用フォームのCurrentイベント時に
stDocName = "詳細用フォーム"
If IsNull(Forms![検索用フォーム]![一覧ｵｰﾄNO]) Then
MsgBox "実績ありません", vbQuestion + vbOKOnly
DoCmd.SelectObject acForm, stDocName
DoCmd.OpenForm stDocName, , , , acFormAdd
Else
stLinkCriteria = "[ｵｰﾄno]=" & Forms![検索用フォーム]![一覧ｵｰﾄNO]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
という文を入れてみました。
でも、詳細用フォームがacformaddで開かないのです。gotorecored 〜acnextでもダメでした。
根本的な考え方の変換も含め、どのような処理がいいのか教えてください。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
