2016-11-14 3 views
-1

Я знаю, что он не популярен, и людям это не нравится, но я хочу попробовать добавить MVF через форму в таблицу.Доступ VBA Multivalue

Однако по какой-то причине он не работает.

есть ли шанс может помочь с кодом, чтобы Оптина добавить MVF в таблицу

`

Dim db As DAO.Database 
Dim rs As DAO.Recordset 
Set db = CurrentDb 
Set rs = db.OpenRecordset("TblTop") 
rs.AddNew 

rs![Capital City] = Me.CapitalCity 
rs!Salary = Me.Salary 
rs![MVF] = Me.MVF 

rs.Update 
rs.Close 
Set rs = Nothing 
Set db = Nothing 
DoCmd.GoToRecord , , acNewRec` 

ответ

0

Вы должны будете использовать Recordset2:

Dim rs As DAO.Recordset2 

в Me.MVF является набор записей сам по себе.

Но, как вы уже видели, эти MVF не вызовут ничего, кроме неприятностей. Эта функция предназначена для не-программирующих пользователей, поступающих из Excel.

Смежные вопросы