Access VBAで int型にnullを入れる方法について

　Access で作ったテーブルの数値型のフィールド「金額」にnullを入れたいと思い、四苦八苦しています。
　以下のソースを書いたのですが、値には「0」が入ってしまい、nullが挿入されません。

Dim a As Long
Dim SQL1 As String

If IsNull(Me.摘要_会員番号) = True Then
IsNull (a)
Else
a = Me.摘要_会員番号
End If

SQL1 = "UPDATE 個人情報入金 SET 個人情報入金.金額 = " & a & ";"

DoCmd.RunSQL SQL1


　その他、a=null　や、a=''をやってみたのですがこれでは入らず、String型ではないので、スペースも入りません。
　nullで無くても、目で見てデータが見えない状態であればいいのですが、そのようにupdateをかける方法をしっている方、是非ご教授をお願いします。

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2006/07/15 11:53

Dim a As variant '変数の宣言についてはヘルプにて

Dim SQL1 As String

If IsNull(Me.摘要_会員番号) = True Then
　　a = "null"
Else
　　a = Me.摘要_会員番号
End If

SQL1 = "UPDATE 個人情報入金 SET 個人情報入金.金額 = " & a
'イミディエイトウィンドウでSQL文確認
debug.print sql1
DoCmd.RunSQL SQL1

では？
バックアップは取っといてくださいね

この回答へのお礼

ありがとうございました。うまくいきました。
valiantという型を知りませんでした。勉強します。

お礼日時：2006/07/16 14:57

No.2 回答者： SortaNerd 回答日時： 2006/07/15 21:13

BASICはよく分かりませんが、一般的に整数型にはNullという値は無いのではないかと思います。

代わりに-1を入れておいてはいかがでしょう。

この回答へのお礼

ご返答、ありがとうございました。

お礼日時：2006/07/16 14:58