ACCESS VBA 一覧から別フォームを開きたい

質問

顧客管理をしようとしています。

表形式のフォームで一覧を表示させています。

一覧の詳細セクションに「詳細」というボタンをつけていて、
すべての行に、詳細ボタンを表示させています。

この詳細ボタンを押したら、この顧客カード（単票形式のフォーム）を開きたいと思っています。

現在、下記の記述をしていますが、
「抽出条件でデータ型が一致しません」とのエラーメッセージが出ます。

どこを修正したら良いかわかりません。

わかる方、よろしくお願いいたします。

現在の記述

Private Sub コマンド29_Click()
If Me.NewRecord Then
MsgBox "新規レコードから詳細情報を表示することはできません。"
Else
DoCmd.OpenForm "顧客フォーム", , , "顧客ID='" & 顧客ID & "'"
End If
End Sub

回答No.1

nda23 · ベストアンサー

顧客IDが数値なのでは？
だとするとアポストロフィで囲むとエラーです。
顧客IDが数値の場合は以下の通りです。

DoCmd.OpenForm "顧客フォーム", , , "顧客ID=" & 顧客ID

お礼

すっきり一発解消です！！ありがとうございました。

回答No.3

nicotinism

>DoCmd.OpenForm "顧客フォーム", , , "顧客ID='" & 顧客ID & "'"
顧客ID が文字列なら
DoCmd.OpenForm "顧客フォーム", , , "顧客ID='" & Me!顧客ID & "'"
数値型なら
DoCmd.OpenForm "顧客フォーム", , , "顧客ID=" & Me!顧客ID
では？

お礼

なるほど！でした。
本の文例を見ながら写した記述だったので、気づきませんでした^^;
ありがとうございました。

回答No.2

layy

抽出条件で記載した期待の型と抽出データの型がおかしい

抽出データの値
抽出条件の記載
一致しないのだからどちらか変えて合わせる

か

抽出条件にヒットしないデータはあらかじめ単票から対象外にする、出てはいけないデータか？確認。

お礼

データ型って、どのこと言ってるんだろう？？って思ってたことがスッキリ解消されました！ありがとうございました。