Я хотел бы дополнить столбец конкатенацией из других столбцов той же таблицы, но я получаю ошибки.Мой код, как показано ниже:
Dim tbl2 As DAO.TableDef
Dim db2 As DAO.Database
Dim fld2 As DAO.Field
Set db2 = CurrentDb
Set tbl2 = db2.TableDefs("Table")
With tbl2
Set fld2 = tbl2.CreateField("Concatenate", dbText)
.Fields.Append fld2
'*and below is the part when I get errors on both options:*
fld2.Expression = "Account" & "-" & "Name" '<-- I get an error "Method or data member not found
fld2.Attributes = "Account" & "-" & "Name" '<-- when I change to this I get an error "Type mismatch"
End With
Set fld2 = Nothing
Set tbl2 = Nothing
Set db2 = Nothing
На самом деле код работает, поле создается правильно как текст, но оно не хочет дополнять значениями.
Не могли бы вы помочь?Как изменить код?Оба варианта неверны!