ＡＣＣＥＳＳとレポートとＶＢＡと

初めまして。
まったくの初心者ですが宜しくお願いします。
環境はＯＳ：Ｘｐ・ＡＣＣＥＳＳ２０００です

現在、フォームに印刷ボタンを作成し、
それを押下後、レポートの画面が開くというものを
ＶＢＡを用いて作成しています。

フォームには顧客コードというものを設定しているのですが、顧客コードを何番に変更しても印刷ボタンを押すと一番最初のデータ（私の場合は顧客コード「１」）がレポートに表示されます。
これをフォームの顧客コードとレポートの顧客コードが同じ番号になったレポートを表示したいのですが、どのようなＶＢＡのコードを打てばよろしいでしょうか？

質問の意図をしっかりとお伝え出来ていないかも知れませんが、よろしくお願いします。

No.3 ベストアンサー 回答者： Mtr2004 回答日時： 2004/11/29 17:00

度々すいません

criteria = "顧客コード = '　" & Me!顧客コード　&"　'　"

こうです。。。

この回答へのお礼

ありがとうございました。

全然解らなかった事なのですが
Mtr2004さんのアドバイスのおかげで気が抜けるほど
簡単に解決いたしました。

本当にありがとうございます

お礼日時：2004/11/29 18:39

No.2 回答者： Mtr2004 回答日時： 2004/11/29 16:54

上手くいかなかったですかすいませんm(__)m

Stringにした場合は

criteria = "顧客コード = '　" & Me!顧客コード"　'　"

とシングルコーテーションで囲んでみてください。
コレでどうでしょう。。。

No.1 回答者： Mtr2004 回答日時： 2004/11/29 16:06

private sub 印刷ボタン_click()

dim criteria as integer

criteria = "顧客コード = " & Me!顧客コード
docmd.openreport "レポート",acviewpreview, ,criteria

end sub
こんな感じでどうでしょうか？

この回答へのお礼

さっそくの回答ありがとうございました。

criteria = "顧客コード = " & Me!顧客コード
上記の箇所で「型が一致しません」と、デバックエラーが出てしまいました。

そこで型を「String型」に換えたところ
docmd.openreport "レポート",acviewpreview, ,criteria
上記の箇所で「抽出条件でデータ型が一致しません」と出てしまいました。

何か解決方法はありますでしょうか？

お礼日時：2004/11/29 16:47