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