AccessのVBAでSQLのSELECTを使い数値条件に合うレコードを抽出する｜フォーム実行例

レコードの抽出： SELECT FROM WHERE

例1：　SELECT 学生ID FROM 学生名簿 WHERE 体重>70
体重が70を超える学生IDをレコードセットに取り出します。

例2：　SELECT 学生ID FROM 学生名簿 WHERE 体重>70 AND 身長<=165
体重が70で身長が165以下の学生IDをレコードセットに取り出します。

Home　

SQL Tips

サンプルソフト
［実行時の画面］
消費電流（ワット）を入力すると、入力ワット数以下の商品名を表示します。
消費電流以下の液晶テレビを抽出

［商品仕様　テーブル］
商品ID　商品名　　　原価　消費電流
10　液晶TV 20型　\56,000　　98
11　液晶TV 26型　\96,000　　143
13　液晶TV 32型　\103,000　154
16　液晶TV 37型　\147,000　186
液晶テレビ　仕様

［コード］
Option Compare Database

Private 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)
    Do Until rs.EOF
        Me!テキスト2 = Me!テキスト2 & rs![商品名] & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

サンプルソフトのダウンロード

Home　

SQL Tips

AccessのVBAでSQLのSELECTを使い数値条件に合うレコードを抽出する｜フォーム実行例

レコードの抽出 ： SELECT FROM WHERE

レコードの抽出： SELECT FROM WHERE