無効なフィールドデータ型使用時TableDef.CreateFieldメソッドVBA

Question

私がアクセス2016テーブルに一連のフィールドを追加しますが、エラーが発生した維持しようとしています：私はもともとDBNUMERICとして、データ型を指定

Runtime error '3259' 
Invalid field data type 

それがdbDecimalに変更されているかどうかを確認しました。 CreateFieldsの hereの解決策は私の問題を解決しませんでしたが、私はSQLを試しませんでした。それはしませんでした。ここでは、コードは次のようになります。

Sub BOD_Variables() 

    Dim myDBS 
    Dim myTable As TableDef 
    Dim myTableName As String 

    myTableName = "BOD_Data" 
    Set myDBS = CurrentDb 
    Set myTable = myDBS.TableDefs(myTableName) 

    Dim myField As Field 
    Dim myVariableNames As Variant 

    myVariableNames = Array("Blank_4_SampleVol", ... "BOD_ Concentration _OUT") 

    Dim iCount As Integer 

    For iCount = LBound(myVariableNames) To UBound(myVariableNames) 
    Debug.Print myVariableNames(iCount) 

     Set myField = myTable.CreateField(myVariableNames(iCount), dbDecimal) 'Originally specified dbNumeric for data type. 
     myTable.Fields.Append myField 
    Next 
End Sub 

私はアレイ（インデックス）への呼び出しを置き換えるために試みた。それでも同じエラーを取得し

 Set myField = myTable.CreateField("Blank_4_SampleVol", dbNumeric) 

。

長さをdiscussed hereと指定してみましたが、問題は解決しませんでした。 CreateFieldのドキュメントでは、フィールドの型がdbNumbericの場合、フィールドの長さが無視されます。

私が紛失しているものはありますか？前もって感謝します。

Answer 1

は、リンクされた問題のlinkに従い、DECIMALのための脚注＃7をお読みください。

strSQL = "ALTER TABLE myTable ADD COLUMN " & myVariableNames(iCount) & " DECIMAL (20,6);" 
CurrentProject.Connection.Execute strSQL 

小数フィールドだったいる：

[7] Not available in the Access query interface or DAO. Use ADO to Execute the DDL query statement.

だからあなたはこのようなものを使用したいです（下記のコメントを参照）、Avoid Using Decimal Field Size in Microsoft Access Tables またはhttp://allenbrowne.com/bug-08.html

ロング、ダブル、または通貨がより良い選択肢かもしれません。

Answer 2

それは我々がDAO.Field2オブジェクトを使用してみた場合でも、次ADOXコードは（アクセス2010でテスト済み）Decimalフィールドを作成し、DAOはDecimalフィールドを作成するために必要なプロパティを公開していないようだというのは本当である間：

Option Compare Database 
Option Explicit 

Sub AddNewDecimalField() 
    Dim cat As New ADOX.Catalog 
    cat.ActiveConnection = CurrentProject.Connection 
    Dim tbl As ADOX.Table 
    Set tbl = cat.Tables("MyTable") 
    Dim col As New ADOX.Column 
    col.Name = "MyNewDecimalField" 
    col.Type = adNumeric ' note: not adDecimal 
    col.Precision = 18 
    col.NumericScale = 8 
    tbl.Columns.Append col 
End Sub 

あるいは、アンドレは彼の答えに示唆するように、私たちはただ... ...

CurrentProject.Connection.Execute _ 
     "ALTER TABLE MyTable ADD COLUMN MyNewDecimalField DECIMAL(18,8)" 

をDDLクエリを使用することができます。