即効テクニック |
テーブルのフィールドのデータ型には、"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"でも同じ結果が得られます。