Ошибка в коде vba для переноса элемента из одного списка в другой

@benogruz · Регистрация: 19.05.2015

Author24 — интернет-сервис помощи студентам

При клике на элемент списка в форме должно, по моим ожиданиям, перекинуть выбранный элемент этого (первого) списка во второй. Но что-то пошло не так, выдает ошибку:
Во время подключения MS Access к серверу OLE или элемента управления ActiveX произошла ошибка.

Visual Basic

Private Sub List1_Click()
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End Sub

mobile · 07.07.2016, 19:17

Уберите .Text. В ВБА Access это свойство имеет иной смысл, нежели в формах ВБ 6

Visual Basic

Private Sub List1_Click()
List2.AddItem List1  '.Text
List1.RemoveItem List1.ListIndex
End Sub

И еще. Предлагаемый код пригоден только для свободных списков без источника.

@benogruz · 09.07.2016, 12:38 **[ТС]**

Хм, а как тогда сделать подобный перенос между списками с источниками, подскажете?

@ltv_1953 · 09.07.2016, 12:50

Только для списка значений ...
Читаем справку
"Remarks
The RowSourceType property of the specified control must be set to "Value List".
This method is only valid for list box or combo box controls on forms."

shanemac51 · 09.07.2016, 12:57

гугл-перевод

замечания
RowSourceType свойство указанного элемента управления должен быть установлен в "Список значений".
Этот метод применим только для окна списка или поля со списком элементов управления на формах.

@benogruz · 09.07.2016, 14:54 **[ТС]**

Понятно, что ж, спасибо.

mobile · 09.07.2016, 14:59

Сообщение от benogruz

а как тогда сделать подобный перенос между списками с источниками, подскажете?

В принципе тоже возможно. Но это будет перенос из одной таблицы в другую. И вариантов много. Зависит от большого количества факторов. Ответить однозначно нельзя, могут быть различные ситуации.

Ну и, как уже Вам писали, тип источника списка будет таблица/запрос. А не список значений.

@texnik-san · 09.07.2016, 15:05

Сообщение от benogruz

Понятно, что ж, спасибо.

НЕ поняла, чего вы скисли-то? И список значений - двольно годный способ переноса, да и другие способы есть. Выкладывайте образец данных, на пальцах не объясню.

Добавлено через 1 минуту

Сообщение от mobile

Но это будет перенос из одной таблицы в другую.

Зачем? Если можно просто редактировать условие where в двух запросах?

@benogruz · 09.07.2016, 15:50 **[ТС]**

Как из таблицы в таблицу переносить мне понятно. Но этот способ, увы, не подходит.

БД сейчас у меня на этом компе нет, как и Аксесса, придется подождать немного, ну или взять за пример и самому по-быстрому накидать в Аксессе что-то такое: в форме есть список1, ссылающийся на таблицу1, есть пустой список2, в который должно попадать выделенное (активное, нажатое, как угодно) в списке1 значение после, допустим, нажатия кнопки1. Ну, или же после дабл клика по нужному значению списка1, это уже не так важно.

@texnik-san · 09.07.2016, 17:50

Ок, тогда под вашу конкретику допилите сами.

@texnik-san · 09.07.2016, 17:55

Нашла в прошлой версии ляп, исправила. Берите этот вариант.

Visual Basic

Option Compare Database
Option Explicit
 
Dim strCodes As String
 
Private Sub Левый_Click()
    strCodes = Левый & "," & strCodes
    Правый.RowSource = "Select * From Таблица1 Where Код IN (" & strCodes & ")"
    Левый.RowSource = "Select * From Таблица1 Where Код NOT IN (" & strCodes & ")"
End Sub
 
Private Sub Правый_Click()
    strCodes = Replace(strCodes, Правый & ",", "")
    If Len(strCodes) > 0 Then
        Правый.RowSource = "Select * From Таблица1 Where Код IN (" & strCodes & ")"
        Левый.RowSource = "Select * From Таблица1 Where Код NOT IN (" & strCodes & ")"
      Else
        Правый.RowSource = "SELECT * FROM Таблица1 WHERE False"
        Левый.RowSource = "SELECT * FROM Таблица1 WHERE True"
    End If
End Sub

@texnik-san · 09.07.2016, 18:01

На самом деле это даже не мой метод, а взяла на вооружение у двоих форумчан (mobile и у кого-то еще), когда обсуждалась возможность выбора строк таблицы галочками без создания временной таблицы.

@benogruz · 10.07.2016, 12:53 **[ТС]**

Спасибо большое, завтра буду подстраивать код под свою БД.

@benogruz 0 / 0 / 0 Регистрация: 19.05.2015 Сообщений: 11
	10.07.2016, 12:53 [ТС]	13
	Спасибо большое, завтра буду подстраивать код под свою БД. 0

@benogruz 0 / 0 / 0 Регистрация: 19.05.2015 Сообщений: 11
	09.07.2016, 12:38 [ТС]	3
	Хм, а как тогда сделать подобный перенос между списками с источниками, подскажете? 0

@ltv_1953 17487 / 7249 / 1651 Регистрация: 21.06.2012 Сообщений: 13,866
	09.07.2016, 12:50	4
	Только для списка значений ... Читаем справку "Remarks The RowSourceType property of the specified control must be set to "Value List". This method is only valid for list box or combo box controls on forms." 1

shanemac51 Модератор 11963 / 4831 / 779 Регистрация: 07.08.2010 Сообщений: 14,151 Записей в блоге: 4
	09.07.2016, 12:57	5
	гугл-перевод замечания RowSourceType свойство указанного элемента управления должен быть установлен в "Список значений". Этот метод применим только для окна списка или поля со списком элементов управления на формах. 1

@benogruz 0 / 0 / 0 Регистрация: 19.05.2015 Сообщений: 11
	09.07.2016, 14:54 [ТС]	6
	Понятно, что ж, спасибо. 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	09.07.2016, 14:59	7
	Сообщение от benogruz а как тогда сделать подобный перенос между списками с источниками, подскажете? В принципе тоже возможно. Но это будет перенос из одной таблицы в другую. И вариантов много. Зависит от большого количества факторов. Ответить однозначно нельзя, могут быть различные ситуации. Ну и, как уже Вам писали, тип источника списка будет таблица/запрос. А не список значений. 0

@texnik-san шапоклякистка 8-го дня 3679 / 2239 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	09.07.2016, 15:05	8
	Сообщение от benogruz Понятно, что ж, спасибо. НЕ поняла, чего вы скисли-то? И список значений - двольно годный способ переноса, да и другие способы есть. Выкладывайте образец данных, на пальцах не объясню. Добавлено через 1 минуту Сообщение от mobile Но это будет перенос из одной таблицы в другую. Зачем? Если можно просто редактировать условие where в двух запросах? 0

@benogruz 0 / 0 / 0 Регистрация: 19.05.2015 Сообщений: 11
	09.07.2016, 15:50 [ТС]	9
	Как из таблицы в таблицу переносить мне понятно. Но этот способ, увы, не подходит. БД сейчас у меня на этом компе нет, как и Аксесса, придется подождать немного, ну или взять за пример и самому по-быстрому накидать в Аксессе что-то такое: в форме есть список1, ссылающийся на таблицу1, есть пустой список2, в который должно попадать выделенное (активное, нажатое, как угодно) в списке1 значение после, допустим, нажатия кнопки1. Ну, или же после дабл клика по нужному значению списка1, это уже не так важно. 0

@texnik-san шапоклякистка 8-го дня 3679 / 2239 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	09.07.2016, 18:01	12
	На самом деле это даже не мой метод, а взяла на вооружение у двоих форумчан (mobile и у кого-то еще), когда обсуждалась возможность выбора строк таблицы галочками без создания временной таблицы. 1

Ошибка в коде vba для переноса элемента из одного списка в другой

Решение