クエリの複数表示？について

質問

こんばんは、よろしくお願いします。
以下の２テーブルをjancodeで１対多のリレーションをはっています
顧客_tbl（メインテーブル）のフィールドは
id 　　(テキスト型）
jancode（数値型）

menu_tblのフィードは
id2　（オートナンバー）
menu　(テキスト型）
price　（数値型）
jancode（数値型）

例えばjancode 12345のmenuがコーヒー　紅茶　ミルクの３つとします。
下記のコードでは（コーヒー￥４００）としか表示されません。
３つ表示するにはどうすれば良いのでしょうか？

Set adoRS = adoCON.Execute("select * from menu_tbl where jancode = " & Me!テキスト10)
totalmenu = adoRS!menu
totalprice = adoRS!price
Me.テキスト17.Value = totalmenu & "\" & totalprice

回答No.3

nicotinism · ベストアンサー

こんな風かと思います。

Dim adoCON As ADODB.Connection
Dim adoRs As New ADODB.Recordset
Dim strSql As String
Dim strTmp As String

　　StrSql = "select * from menu_tbl where jancode = " & Me!テキスト10
　　Set adoCON = CurrentProject.Connection
　　adoRs.Open strSql, adoCON, adOpenStatic, adLockReadOnly

　　Do Until adoRs.EOF
　　　　strTmp = strTmp & adoRs!menu & "\" & adoRs!price & vbCrLf
　　　　adoRs.MoveNext
　　Loop
　　Me!テキスト17 = strTmp
　　adoRs.Close: Set adoRs = Nothing
　　adoCON.Close: Set adoCON = Nothing
End Sub

お礼

ありがとうございます。お礼がおくれてしまって申し訳ありません。
おかげ様で解決しました。

回答No.2

CHRONOS_0

１つのテキストボックスに３つ分表示させるのですか？

普通に３レコードとして表示させた方がいいように思いますが

回答No.1

nicotinism

表示するだけでよいのですか？
表示後に何かしたいのであれば、その辺の説明もあったほうが
よろしいかと思います。

補足

自作POSレジを作ってみようかと思っているのですが、
精算の際にお客様に会計の内容がわかる様に1つのテキストボックスに表示させたいと思っています。
内容はレコードにアップデートする様になっているので
表示するだけでお願いします。