VBAのopenformについて

質問

はじめまして。
現在、Accessを仕事で使うために勉強中です。
使用しているOSはWindowsXP、Accessは2003を使用しています。

顧客管理のデータベースのようなものを練習で作っているのですが、
作成した一覧のフォームから顧客コードを元に別のフォームを開けるように
したいのですが、うまくいきません。

フォーム1：顧客一覧
フォーム2：顧客登録画面

このフォーム1とフォーム2は、同じテーブルを元にしたフォームです。
フォーム1の「顧客コード」というところをダブルクリックすると、該当の顧客コードの
フォーム2が開くようにしたいと思い、フォーム1のテキストボックスに、

Private Sub 顧客コード_DblClick(Cancel As Integer)
DoCmd.OpenForm "顧客登録", , , "[顧客コード] ='" & Me![顧客コード] & "'"
End Sub

と記載しましたが、いざ実行をすると
「OpenFormアクションの実行はキャンセルされました」
と表示されてしまいます。

どのようにしたら、この現象が回避でき希望する動きができるのかわからず悩んでおります。
すみませんが、解決する方法を教えていただければと思います。
宜しくお願いいたします。

回答No.1

piroin654 · ベストアンサー

テーブルの顧客コードが数値型ならば、

DoCmd.OpenForm "顧客登録画面", , , "[顧客コード] =" & Me![顧客コード] & ""

とします。質問の場合はテーブルの顧客コードが数値型なのに、
" & Me![顧客コード] & " を

'" & Me![顧客コード] & "'

のように「'」で囲ったからです。顧客コードがテキスト型ならば
質問の場合とおなじにします。

お礼

教えていただいた通り記述を直したところ、うまく動きました。
おっしゃる通り、データ型が数値型でした。

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