|
|
|
| Всем привет! Помогите, если кто знает. Есть список -телефон-, как из него достать значения и присвоить переменной? RowSource не помогает, присваивает вместо значений SQL запрос списка. Очень надо. | |
|
| |
|
|
|
|
| Так берется только одно выделенное значение. А в списке может быть несколько значений, надо их все присвоить переменной. | |
|
| |
|
|
|
| Тогда вам нужен рекордсетом пробежаться по списку и далее конкатенацией присваивать текущее значение списка переменной. Или же создать массив переменных.
Тока не понятно одно - нафига нужны эти извраты. Опишите, что хотите получить в итоге - наверняка есть более лучшее решение. | |
|
| |
|
|
|
| В итоге нужно получить: Есть таблица клиентов, кроме всего прочего, в ней указывается телефон клиента. У клиента может поменяться телефон (что часто происходит). То есть на одно ФИО есть запись с домашним телефоном, а есть запись где указан сотовый телефон. Надо совместить все его телефоны в одну строку с разделителем. | |
|
| |
|
|
|
| Тогда рекордсетом пробегайте по таблице о объединяйте телефоны. | |
|
| |
|
|
|
| Да я в принципе уже так и сделал, но блин, таблица содержит порядка 80000 записей, и присоединенная. Долго получается. | |
|
| |
|
|
|
| Подскажите пожалуйста еще такую вещь, как открыть рекодсет на основе SQL инструкции или запроса. Пишет, что недостаточно параметров, Access 97. Открываю так:
Dim bbb As Database, rec As Recordset, str As String
str = "SELECT таблица.телефон FROM таблица GROUP BY платежи.телефон, платежи.фио HAVING (((платежи.фио) = [Forms]![форма]![фио])) ORDER BY платежи.телефон DESC"
Set bbb = CurrentDb
Set rec = bbb.OpenRecordset(str , dbOpenDynaset)
|
| |
|
| |
|
|
|
| "SELECT таблица.телефон FROM таблица GROUP BY платежи.телефон, платежи.фио HAVING (((платежи.фио) = '" & [Forms]![форма]![фио].Values & "')) ORDER BY платежи.телефон DESC" | |
|
| |
|
|
|
| имхо, я бы так делал
"SELECT таблица.телефон FROM таблица WHERE (((платежи.фио) = '" & [Forms]![форма]![фио].Values & "')) GROUP BY платежи.телефон, платежи.фио ORDER BY платежи.телефон DESC" | |
|
| |
|
|
|
| Во всех трех случаях условия по таблице, отсутствующей во FROM ? | |
|
| |
|
|
|
| не знаю :)) лично я имел ввиду, что лучше сделать сначала выборку данных (WHERE), а уже потом группировать, чем группировать все, а потом выборку (HEAVING) :) в данном случае... а про таблички ничего не знаю ;) | |
|
| |
|
|
|
| А так не получится?
"SELECT DISTINCT телефон FROM таблица WHERE фио = '" & Forms("форма").Controls("фио").Values & "'"
|
| |
|
| |
|
|
|
| Спасибо всем, заработало! | |
|
| |