アクセスにエクセルからデータ追加時、型が違うエラーになります。

Question

アクセスのデータベースにエクセルからVBAでデータを追加しようとしたのですが、日付と、金額で「種類が一致しない」とエラーになります。

アクセスのデータベースで日付は日付フォーマット、金額は通貨フォーマットにしています。エクセルで同じ項目のの並んだテーブルに追加データを置いて、そこからアクセスデータベースに書き込もうとしました。

    .Open "データベース", adoCn, adOpenKeyset, adLockOptimistic 

    .AddNew

        Worksheets("sheet1").Select

            !主キー[ = Cells(2, 1).Value

            !登録ID = Cells(2, 2).Value

            !No = Cells(2, 3).Value

            !日付 = Cells(2, 4).Value

            !金額 = Cells(2, 5).Value           

    .Update

    .Close 

といったコードです。仕方ないので、アクセス側のフィールドの型を日付、金額とも「短いテキスト」にしたら、取敢えず動きました。

日付については、#9/12/2016#　という形式で設定する必要があるとわかりましたが、上記の例で、

!日付 = "#" & Cells(2, 6).Value & "#"

を試しましたが、うまくいきません。

日付データと通貨データをその形式で追加するにはどのようにすればよろしいのでしょうか。

よろしくお願いいたします。

（これは、https://social.msdn.microsoft.com/Forums/ja/home?forum=vbajp　にも投稿します。)

Answer 1

> アクセスのデータベースにエクセルからVBAでデータを追加しようとしたのですが、

> 日付と、金額で「種類が一致しない」とエラーになります。

> アクセスのデータベースで日付は日付フォーマット、

> 金額は通貨フォーマットにしています。

> !日付 = Cells(2, 4).Value

> !金額 = Cells(2, 5).Value  

If IsDate(Cells(2, 4).Value) = True Then

    ![日付] = CDate(Cells(2, 4).Value)

Else

    ![日付] = Null

End If

If IsNumeric(Cells(2, 5).Value) = True Then

    ![金額] = CCur(Cells(2, 5).Value)

Else

    ![金額] = Null

End If

---

以上のように修正した場合、どのような結果になるのでしょうか。

Answer 2

sk.exe様

ありがとうございます。

上手くいきました。エラーがなくなりました。

感謝いたします。