| |
|
|
| | На форме - список, ни с чем не связанный.
Накидываю в список строки.
4566
85124
74551
----------------------
Как проверить , что в списке уже имеется строка 74551. | |
| |
| |
| |
|
|
| | Как-то примерно так:
For i = 0 To Me.Список.ListCount
Me.Список.Value = Me.Список.ItemData(i)
If Me.Список.Column(...) = Me.Полевводанакидывания Then
MsgBox ("Данная хрень уже есть")
Me.Полевводанакидывания = ""
GoTo l
Else
End If
Next i
CurrentDb.Execute "insert into [Табла] (Поле, ЕщеПоле) values (...... запрос на добавление короче)
l:
end sub
А несвязанный ни с чем это как? Накидывать тогда не в таблицу, а в сам список добавлять без запроса на добавление в таблу придется. | |
| |
| |
| |
|
|
| | Просмотр списка. Дальше делай с ним, что хочешь.
Dim i%, x$
x = "3333333"
With Me.Spis
For i = 0 To .ListCount - 1
Debug.Print x, .ItemData(i)
If x = .ItemData(i) Then
MsgBox "YES!!!"
End If
Next
End With
|
| |
| |
| |
| |
|
|
| | закинуть значения сперва в коллекцию или словарь
уникальные будут
потом join ом сформировать строку данных для списка :) | |
| |
| |
| |
|
|
| |
...сперва в коллекцию...
...потом join ом сформировать строку...
|
А вот с этого места подробнее пожалуйста.
Можно напрямки, или придется "огородами"?
:) | |
| |
| |
| |
|
|
| | как то так
Dim dc As New Scripting.Dictionary
For Each o In ar
If Len(o) > 0 And Not dc.Exists(o) Then dc.Add o, o '<-- добавляем в DC
If dc.Count > 10001 Then
MsgBox "Для фильтра по этой колонке через выпадающий список" & vbCrLf & _
"превышен лимит здравого смысла (записей больше 10000)." & vbCrLf & vbCrLf & _
"Воспользуйтесь способом -" & vbCrLf & _
"через контекстное меню 'Фильтр по выделенному'", , "Внимание"
Exit For
End If
Next
On Error GoTo err123
S = ""
If dc.Count < 10001 Then S = Join(dc.Items, "|") '<-- формируем строку для см. ниже
.ColComboList(Col) = clrCrLfTab(shFilter & IIf(S = "", "", S))
|
 | |
| |
| |
| |
|
|
| |
...Join(dc.Items, ...)...
|
Ааааа.
Бодренько, нарядненько!
 | |
| |
| |
| |
|
|
| |
blnСтрокаИмеется = (InStr(1, ";" & Список.RowSource & ";", ";" & strПроверяемоеЗначение & ";") > 0)
|
| |
| |
| |
| |
|
|
| | кстати, а свойствами нельзя разве урегулировать?
выставить в списке - уникальные значения
и всьо :) | |
| |
| |
| |
|
|
| |
выставить в списке - уникальные значения
и всьо :)
|
Мне отслеживать при вводе нужно,надо юзверу сказать - чёж ты делаешь?
....(С).......!!! | |
| |
| |
| |
|
|
| | кстати шото я нипонял - нема чтоли свойства - уникальные значения только? :) ыыы
а событие "Отсутствие в списке" рассматривал?
я нет, но интересно :) вдруг это оно?
 | |
| |
| |
|
|
| |
|
|
| |
кстати шото я нипонял - нема чтоли свойства - уникальные значения только? :) ыыы
|
чё та я ничого такого не надыпал у свойствах....... | |
| |
| |
