| |
フォームの検索
既存のフォームを検索するために
フォーム上のコンボ87というコントロールを作り、そこから選ぶと該当のフォームが出る設定にしたいです。
コンボ87の値集合ソースが下記の通りになっているとします
値集合ソース：
SELECT Str(Val(Val([日付]) & Format([IDコード],"0000"))) AS 注文日, クエリA.IDコード, クエリA.日付, 部署マスタ.部署, Sum([数量]*[単価]) AS 金額の合計
FROM (クエリA INNER JOIN 部署マスタ ON クエリA.部署コード = 部署マスタ.部署コード) INNER JOIN 商品マスタ ON クエリA.商品コード = 商品マスタ.商品コード
GROUP BY Str(Val(Val([日付]) & Format([IDコード],"0000"))), クエリA.IDコード, クエリA.日付, 部署マスタ.部署
ORDER BY Str(Val(Val([日付]) & Format([IDコード],"0000")));
コンボ87の更新後処理イベントに下記のようなコードを書いています
Private Sub コンボ87_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[注文日] = " & Str(Nz(Me![コンボ87], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
すると下記のようなエラーが出てイベントが止まってしまいます
実行時エラー3070
'注文日'を有効なフィールド名、または式として認識できません
※IDコードを先頭にするとプログラムは動きますが、実はIDコードは年度ごとに一新されるため同じコードが何年分も複数であります（2010年の1、2011の1というように）そして先頭の1番である2010年のフォームが検索されてしまいます。
なのでどうしても注文日というフィールドを作ってそれで検索しないといけないのです
おかしいところをご指摘ください
よろしくお願いします
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
