文字条件に合うレコードを抽出する｜Access SQL
SELECT FROM WHERE ： 文字列で抽出する場合、'(単引用符)で囲みます
Access VBAでSQLを実行するコードを掲載しています。サンプルソフトもダウンロードできます。
例. SELECT 名前 FROM 学生名簿 WHERE 苗字='大木'苗字が「大木」の名前をレコードセットに取り出します。
文字列の場合、'(単引用符)で囲みます。
実行サンプルソフト
［実行時の画面］型式を入力し「抽出」ボタンをクリックすると、商品カタログから見つかれば「商品名」「価格」を表示します。
見つからなければ、メッセージを表示します。
［商品カタログ テーブル］
商品ID 商品名 型式 価格
10 液晶TV 20型 ETV-20D \78,000
11 液晶TV 26型 ETV-26D \98,000
13 液晶TV 32型 ETV-32D \2,600,000
16 液晶TV 37型 ETV-37D \3,500,000
SQLを実行するAccess VBA
Option Compare DatabasePrivate Sub コマンド8_Click()
Dim SQL As String
Dim rs As Recordset
If IsNull(Me!テキスト1) Then
MsgBox "抽出する「型式」を入力してください"
Exit Sub
End If
Me!テキスト2 = Null
SQL = "SELECT 商品名,価格 FROM 商品カタログ WHERE 型式= '" & Me!テキスト1 & "'"
Set rs = CurrentDb.OpenRecordset(SQL)
If Not rs.EOF Then
Me!テキスト2 = rs![商品名]
Me!テキスト3 = rs![価格]
Else
MsgBox "入力された型式の商品は見つかりません。"
End If
Set rs = Nothing
End Sub
サンプルソフトのダウンロード
Homeへ 
SQL TipsへCopyright(C) FeedSoft