ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Присвоить комбобоксу запрос
12 сообщений из 12, страница 1 из 1
Присвоить комбобоксу запрос
    #39867533
Банджо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Банджо
Гость
Добрый день и сорри.. читал читал, не нашел..

Есть комбобокс в форме, нужно вывести в него одно значение запроса, чтобы оно сразу было видно.
Собственно комбо может и не нужен, но в поле нужно иметь два значени, id и текст, вроде только комбо.

Me!party_1.RowSource = strSQL - присваивает, но чтобы увидеть текст, нужно ткнуть в треугольник
Me!party_1 = dbs.OpenRecordset(strSQL).Fields (0) - присваивает только одно поле

Как можно id b текст в комбо запросом записать и чтобы сразу виден был текст?
Спасибо.
...
Рейтинг: 0 / 0
26.09.2019, 20:16
| Ответить | Цитировать | Написать  
Присвоить комбобоксу запрос
    #39867535
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Банджо,

Код: vbnet
1.
2.
3.
    With Me.cbo
        .Value = .ItemData(0)
    End With
...
Рейтинг: 0 / 0
26.09.2019, 20:23
| Ответить | Цитировать | Написать  
Присвоить комбобоксу запрос
    #39867540
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Банджо, добавить значения список можно запросом и по одному значению ( AddItem(Item As String, [Index]) )
...
Рейтинг: 0 / 0
26.09.2019, 20:27
| Ответить | Цитировать | Написать  
Присвоить комбобоксу запрос
    #39867549
Банджо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Банджо
Гость
ПанургБанджо,
Код: vbnet
1.
2.
3.
    With Me.cbo
        .Value = .ItemData(0)
    End With

Панург, боюсь, что я ничего не понял..
пробую
Me.party_1.Value = Me.party_1.ItemData(0) при открытии формы в комбо виден код, а нужен текст..
...
Рейтинг: 0 / 0
26.09.2019, 20:54
| Ответить | Цитировать | Написать  
Присвоить комбобоксу запрос
    #39867553
Банджо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Банджо
Гость
strSQL = "SELECT ...;"
' результат одна строка
'комбо
Me!party_1.RowSource = strSQL
'что после этого написать чтобы при открытии формы, в комбо сразу увидеть текст?
или как-то вообще все иначе но чтобы сразу видеть текст в комбо
...
Рейтинг: 0 / 0
26.09.2019, 21:09
| Ответить | Цитировать | Написать  
Присвоить комбобоксу запрос
    #39867634
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Банджо....но в поле нужно иметь два значени, id и текст....Не "вкурил"-поясните
(речь о многозначном поле? Пользование которыми есть не очень хорошо)
...
Рейтинг: 0 / 0
26.09.2019, 23:49
| Ответить | Цитировать | Написать  
Присвоить комбобоксу запрос
    #39867663
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
БанджоПанургБанджо,
Код: vbnet
1.
2.
3.
    With Me.cbo
        .Value = .ItemData(0)
    End With


Панург, боюсь, что я ничего не понял..
пробую
Me.party_1.Value = Me.party_1.ItemData(0) при открытии формы в комбо виден код, а нужен текст..Оппаа! А комбо не надо настраивать? Обычно это делается вручную, но можно и программно.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
    With Me.party_1
        .RowSource = strSQL 
        .ColumnWidths = "0;4"
        .ColumnCount = 2
        .BoundColumn = 1
        .LimitToList = true
                If .ListCount then .Value = .ItemData(0)
    End With
...
Рейтинг: 0 / 0
27.09.2019, 04:07
| Ответить | Цитировать | Написать  
Присвоить комбобоксу запрос
    #39867723
Bandjo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bandjo
Гость
ПанургОппаа! А комбо не надо настраивать? Обычно это делается вручную, но можно и программно.Сорри, пока пробовал разные варианты, оставил столбцы 1;1..
Спасибо!
...
Рейтинг: 0 / 0
27.09.2019, 10:28
| Ответить | Цитировать | Написать  
Присвоить комбобоксу запрос
    #39867725
Bandjo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bandjo
Гость
sdku, просто обычный комбо, спасибо
...
Рейтинг: 0 / 0
27.09.2019, 10:30
| Ответить | Цитировать | Написать  
Присвоить комбобоксу запрос
    #39867794
Bandjo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bandjo
Гость
Чтобы не плодить темы, еще вопрос, можно ли добавить записи по вычисляемому имени поля

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
With rst
    rst.AddNew
       For i = 1 To 5
          If Me.Controls(Format(i, "\f\l\_0")).Value = -1 Then
            ''' !(Format(i, "\i\d\_\p\a\r\t\y\_0")) = Me.Controls(Format(i, "\p\a\r\t\y\_0")).Value
          End If
      Next i
    .Update
End With



заремленная строка явно неверная.. как поправить?
...
Рейтинг: 0 / 0
27.09.2019, 12:32
| Ответить | Цитировать | Написать  
Присвоить комбобоксу запрос
    #39867808
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
Код: vbnet
1.
2.
3.
If Me.Controls("fl_" & i)) Then
   .Fields("id_party_" & i) = Me.Controls("id_party_" & i)
End If
...
Рейтинг: 0 / 0
27.09.2019, 12:50
| Ответить | Цитировать | Написать  
Присвоить комбобоксу запрос
    #39867848
Bandjo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bandjo
Гость
Кривцов Анатолий, спасибо!
...
Рейтинг: 0 / 0
27.09.2019, 13:38
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Присвоить комбобоксу запрос
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]