Yes/Noフラグの値をコピーできない

質問

すいません。ACCESS2003 VBAで下記の問題で困っています。

新たに作成したmdbファイル(テーブルの中身は空)に既存のmdbファイルのテーブル内容をコピーしたいのですが、Yes/Noフラグ型だけ移行できません。一応サンプルのソースです↓

Dim db As DAO.Database
Dim RS As DAO.Recordset
Dim strsql As String

コピー元のmdbファイルをオープン
Set db = OpenDatabase("コピー元mdb")

'SQLの生成
strsql = ""
strsql = strsql & " SELECT * FROM テーブル名"

'レコードセット生成
Set RS = db.OpenRecordset(strsql, dbOpenSnapshot, dbReadOnly)

'コピー元テーブルにデータがあるか判定
If RS.RecordCount = 0 Then
msgbox "データがありません"
Else
RS.MoveFirst
'コピー先のデータベースを設定
Set db = OpenDatabase("コピー先mdb")
'レコードの初期化
db.Execute (DELETE FROM コピー先テーブル名)

Do While RS.EOF = False
strsql = ""
strsql = strsql & " INSERT INTO コピー先テーブル名("
strsql = strsql & " ,コピー先のYes/Noフラグ値" '
strsql = strsql & ")VALUES("
strsql = strsql & " ,'"コピー元のYes/Noフラグ値 "' "
strsql = strsql & ")"

db.Execute (strsql)
RS.MoveNext
Loop

End If

RS.Close
db.Close

回答No.2

Dxak · ベストアンサー

＃１です

>> Yes/Noフラグ型
> まぁ、置いといて・・・
> この型は、数値であって、文字ではありません

の意味が判りずらかったでしょうか？

> strsql = ""
> strsql = strsql & " INSERT INTO D_SK_DATA("
> strsql = strsql & " FLG"
> strsql = strsql & ")VALUES("
> strsql = strsql & " '" & RS.Fields("FLG") & "' "
strsql = strsql & RS.Fields("FLG")
> strsql = strsql & ")"

と、１行違うと言う話ね
「'」で囲むと文字列、数値の場合、不要なのよ

参考URL：

http://office.microsoft.com/ja-jp/access/HP010322451041.aspx

お礼

無事解決しました！完全に知識不足でした。。わかりやすい回答ありがとうございました。

回答No.1

Dxak

> Yes/Noフラグ型
まぁ、置いといて・・・
この型は、数値であって、文字ではありません
と言うことで、「 INSERT INTO 」の「 ' 」は、型が違うと言う話
Yes : -1
No : 0
と、言う話ね

補足

すいません。簡単にしたつもりが、かえってわかりにくい表記になっていましたので、訂正いたします。

strsql = ""
strsql = strsql & " INSERT INTO D_SK_DATA("
strsql = strsql & " FLG"
strsql = strsql & ")VALUES("
strsql = strsql & " '" & RS.Fields("FLG") & "' "
strsql = strsql & ")"