テーブルのデザインを変更して保存する時、フィールド数が最大値（255）に達していないのに
「定義されているフィールドが多すぎます」となる時。
ACCESSでは、テーブルごとにフィールドのカウント値を持っている。
フィールドを追加した時と同様にフィールドのプロパティを変更した時にもそのカウンターがインクリメントされる。
これはフィールドを削除してもカウンターは変更されない。

【解決法】
・データベースを最適化／修復する
・テーブルをコピーする

'# テキストファイルを一括読み込み
Private Function ReadFile(strFilename As String) As String

    Dim nFNO        As Integer 'ファイル番号
    Dim strData     As String

    nFNO = FreeFile '空ファイル番号取得
    Open strFilename For Input As #nFNO
    strData = StrConv(InputB(LOF(1), #nFNO), vbUnicode)
    Close #nFNO '閉じる

    ReadFile = strData

End Function

続きを読む…»

AccessからOfficeアプリケーションを制御すること

[書式]

DLookup("抽出したいフィールド名", "テーブル名", "フィールド名 = 検索値")
DLookup("抽出したいフィールド名", "テーブル名", "フィールド名 = '検索文字列'")

後で要素数を変更したい配列を定義するとき

Dim Str() as String

要素数を変更し再定義

ReDim Str([n]) as String

※最初に要素数を指定し、宣言した場合はReDimを使っての再定義ができません。

配列の内容を残したまま、要素数を増やしたい場合は

ReDim Preserve Str([n]) as String

と再定義します。