VBAへのアクセス：文字列tablefieldを含むSQL文字列を日付として変換します

Question

通常、DateTimeの問題はVBAとSQLにありますが、この場合は壁に当たっています。

私は私が欲しいことをすることができるかどうかもわかりません。

I等のフィールドF1、F2、と一時テーブルを有する

フィールドF7は、文字列のn形式DD/MM/YYYYのように日付を含みます。

今、テンポラリテーブルのデータを、フィールドF7のデータをDate/Timeフィールドに格納するテーブルにコピーします。このフィールドの形式は、短い日付（dd-MM-yyyy）です。

私は##で私の日付データをパディングし、私のテーブルfieldnameにブラケット[]を追加するとともに、単独で、及びいくつかの組み合わせでCDate()、Format()とTrim()を使用してみましたが、私は単純に正しい組み合わせを見つけることができません。

これは私のコードです。私は変数を使用しているので、importedDateは正常に動作します。しかし、フィールドF7のために、私はVBA日付変換でSQLクエリを混合していて、それは私のために働いていません。

Sub MoveImportedData() 
Dim SQLStr As String 


SQLStr = "INSERT INTO TblDebitorSaldoListe " _ 
& "(CompanyCode,CompanyName, CustomerNumber, CustomerName, OneTimeCustomerName, TermsOfPayment, NetDueDate, Reference, " _ 
& "DunningBlock,Comment, ReminderOne, ReminderTwo, DebtCollection, TotalAmountDKK, TotalNotYetDueDKK, TotalOverdueDKK, " _ 
& "ReminderOneFile, ReminderTwoFile, NoReminder, ImportedDate) " _ 
& "SELECT F1, F2, F3, F4, F5, F6, #" & CDate("F7") & "#, F8, F9, '', '', '', '', F10, F11, F12, '', '', 0, '" & CDate(Date) & "' " _ 
& "FROM TEMP WHERE Len(F1)=4" _ 

MsgBox SQLStr 

DoCmd.RunSQL SQLStr 

End Sub 

任意の助けもいただければ幸いです。私はAccess 2013を使用しています。

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

Answer 1

それは実際にはかなり簡単です：F7が点在している場合、

& "SELECT F1, F2, F3, F4, F5, F6, DateValue(F7), F8, F9, '', '', '', '', F10, F11, F12, '', '', 0, Date() " _ 

をか（交換すると、単一引用符を持つように修正）：グスタフの提案を使用した作業

& "SELECT F1, F2, F3, F4, F5, F6, DateValue(Replace(F7, '.', '-')), F8, F9, '', '', '', '', F10, F11, F12, '', '', 0, Date() " _ 

Answer 2

。

デンマークのロケールのために、DateValueが機能しませんでした。私はそれがNULLのテーブルのF7フィールドに挿入されていた（私にとって）間違った日付形式を返したと思います。

& "SELECT F1, F2, F3, F4, F5, F6, DateValue(Replace(F7, ""."", ""-"")), F8, F9, '', '', '', '', F10, F11, F12, '', '', 0, Date() " _ 

しかしCDateは余分"を追加するとともに、私の問題を解決しました：それは、これは動作しませんでしたが、異なる日付形式で他の人のために働く可能性があります。これは私のために働いた：

& "SELECT F1, F2, F3, F4, F5, F6, CDate(Replace(F7, ""."", ""-"")), F8, F9, '', '', '', '', F10, F11, F12, '', '', 0, Date() " _ 

すばやく便利なヘルプの両方をありがとう！