HOME > 即効テクニック > AccessVBA > データ操作 > 更新クエリで"Yes/No型"のフィールドを初期化する

即効テクニック

データ操作

更新クエリで"Yes/No型"のフィールドを初期化する

(Access)
テーブルのフィールドのデータ型には、"Yes/No型"があります。
ここでは、データを更新したかどうかを表すために"Yes/No型"のフィールドを利用しているテーブルを用意して、更新クエリを使って初期化します。

<テーブル名:テーブル1>

 フィールド名       データ型
------------------------------------
商品名           テキスト型
仕入先           テキスト型
更新フラグ         Yes/No型

更新フラグには、Yes/No、True/False、またはOn/Offの、2つの値のうちの1つが格納されます。
サンプルでは、全てのデータの更新フラグを初期化する更新クエリを作成して実行します。

●サンプル●
Sub Sample()
    Dim myDB As Database
    Dim qdf  As QueryDef
    Dim sql  As String
    
    Set myDB = CurrentDb
    
    sql = "UPDATE テーブル1 SET テーブル1.更新フラグ = No;"
    Set qdf = myDB.CreateQueryDef("Q_更新フラグ初期化", sql)

    DoCmd.OpenQuery "Q_更新フラグ初期化"
    
End Sub

既に、"Q_更新フラグ初期化"と同じ名前のクエリがある場合は、削除するか名前を変えてください。
SQL文で、「テーブル1.更新フラグ = No」としていますが、"=False""=Off"でも同じ結果が得られます。