Добрый день многоуважаемые форумчане... Помогите пожалуйста с решением. На форме "Журнал прихода" есть "Поставщик". Оператор либо выбирает из выпадающего списка "Поставщика" либо вбивает начальные буквы и оператору предлагается нужный ему "Поставщик". Но как только вносишь нового поставщика он почему то не добавляется в Таблицу "Поставщик" Как сделать так чтоб список пополнялся через форму??? Спасибо заранее огромное Прошу прощение за RaR Сейчас в экселе использую такой код для формы: [vba]
Код
Private Sub ComboBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'выпадающий список для выбора "поставщика" с добавлением нового "поставщика2 и сортировка списка по алфовиту Dim LastRow2 As Long Dim Fam As String Fam = Me.ComboBox2.Value With Sheets("Поставщик") LastRow2 = .Cells(Rows.Count, 2).End(xlUp).Row If Fam <> "" Then If Application.WorksheetFunction.CountIf(Range("Поставщик"), Fam) = 0 Then .Cells(LastRow2 + 1, 2) = Fam End If End If Sheets("Поставщик").Range("B1:B1000").Sort Key1:=Sheets("Поставщик").Range("B2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal 'этот код и поможет отсортировать в алфавитном порядке End With 'Call UserForm_Activate End Sub
[/vba]
Добрый день многоуважаемые форумчане... Помогите пожалуйста с решением. На форме "Журнал прихода" есть "Поставщик". Оператор либо выбирает из выпадающего списка "Поставщика" либо вбивает начальные буквы и оператору предлагается нужный ему "Поставщик". Но как только вносишь нового поставщика он почему то не добавляется в Таблицу "Поставщик" Как сделать так чтоб список пополнялся через форму??? Спасибо заранее огромное Прошу прощение за RaR Сейчас в экселе использую такой код для формы: [vba]
Код
Private Sub ComboBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'выпадающий список для выбора "поставщика" с добавлением нового "поставщика2 и сортировка списка по алфовиту Dim LastRow2 As Long Dim Fam As String Fam = Me.ComboBox2.Value With Sheets("Поставщик") LastRow2 = .Cells(Rows.Count, 2).End(xlUp).Row If Fam <> "" Then If Application.WorksheetFunction.CountIf(Range("Поставщик"), Fam) = 0 Then .Cells(LastRow2 + 1, 2) = Fam End If End If Sheets("Поставщик").Range("B1:B1000").Sort Key1:=Sheets("Поставщик").Range("B2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal 'этот код и поможет отсортировать в алфавитном порядке End With 'Call UserForm_Activate End Sub
:'( Нашел еще один код но не получается применить его к своей форме [vba]
Код
Private Sub Поставщик_NotInList(NewData As String, Response As Integer) Response = acDataErrAdded Me.Организация.RowSource = Me.Поставщик.RowSource & ";" & NewData End Sub
[/vba]
:'( Нашел еще один код но не получается применить его к своей форме [vba]
Код
Private Sub Поставщик_NotInList(NewData As String, Response As Integer) Response = acDataErrAdded Me.Организация.RowSource = Me.Поставщик.RowSource & ";" & NewData End Sub
Private Sub Поставщик_NotInList(NewData As String, Response As Integer) If MsgBox("Обновить список?", vbOKCancel) = vbOK Then With CurrentDb.OpenRecordset("select * from [Поставщик]") .AddNew ![Организация] = NewData .Update End With Response = acDataErrAdded Else Response = acDataErrContinue End If End Sub
[/vba] Свойство поля Поставщик Ограничиться списком должно быть Да
Так можно [vba]
Код
Private Sub Поставщик_NotInList(NewData As String, Response As Integer) If MsgBox("Обновить список?", vbOKCancel) = vbOK Then With CurrentDb.OpenRecordset("select * from [Поставщик]") .AddNew ![Организация] = NewData .Update End With Response = acDataErrAdded Else Response = acDataErrContinue End If End Sub
[/vba] Свойство поля Поставщик Ограничиться списком должно быть ДаPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Pelena, Добрый день!!! Спасибо огромное работает на ура.... А я могу применить аналогично к другим спискам на форме!? Просто если я к примеру начинаю аналогично применять данный код и (ограничения ставить ДА) для другого списка. То сбивается предыдущая настройка списка (((( или может я что то не понимаю... И делаю не так
Pelena, Добрый день!!! Спасибо огромное работает на ура.... А я могу применить аналогично к другим спискам на форме!? Просто если я к примеру начинаю аналогично применять данный код и (ограничения ставить ДА) для другого списка. То сбивается предыдущая настройка списка (((( или может я что то не понимаю... И делаю не такlebensvoll
Кто бы ты ни был, мир в твоих руках
Сообщение отредактировал lebensvoll - Воскресенье, 27.05.2018, 12:26
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
:'( 
Спасибо огромное работает на ура....
