アクセスファイルを読込み時にフィールドを追加するには？ (ID:78043)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんばんは 現在sample.mbdに社員名簿というテーブルがあり フィールド名に社員コード、氏名、部署名があり 今回、部署名の後ろに入社年齢を追加しようと考えているのですが元のファイルを変更せずに読込んだ時に追加し、保存すると新しく追加した項目が追加されている。というふうにしたいのですが、うまくいきません。 アドバイスの程宜しくお願いします。 説明が下手かもしれませんがその時は再度回答します。 Private Sub Command1_Click() Dim DB As Database, RSTable As Recordset Dim a_filename As String Dim i As Integer Dim j As Integer Dim fld As Field Dim a(i) As String Dim b(i) As String Dim c(i) As String Set DB = openDatabase("D:\smple.mdb") Set RSTable = DB.OpenRecordset("社員名簿", dbOpenDynaset) RSTable.MoveFirst For i = 0 To G_MAX_POWER - 1 a(i) = RSTable.Fields("社員コード") b(i) = RSTable.Fields("氏名") c(i) = RSTable.Fields("部署") 'フィールド追加 Start Set fld = RSTable.CreateField("入社年齢", dbInteger) RSTable.Fileds.Append fld 'フィールド追加 End RSTable.MoveNext Next i DB.TableDefs.Append Rstabl DB.Close '' DBを閉じる End Sub