Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задание переменной / 7 сообщений из 7, страница 1 из 1
18.04.2008, 11:33
    #35263936
LeeoN
LeeoN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание переменной
...
SELECT [Имя таблицы].[ " & к &" ]
......
Где -к- это переменная значение которой берется из указанных в поле со списком

и мне выдает
...
SELECT [Таблица РПД №3].[Принято заявок на оказание помощи,Ликвидировано аварий на транспорте,Разрушение строительных конструкций]
...
Как прописать в коде первре выражение чтоб во втором получилось:
...
SELECT [Таблица РПД №3].[Принято заявок на оказание помощи],[Таблица РПД №3].[Ликвидировано аварий на транспорте],[Таблица РПД №3].[Разрушение строительных конструкций]
...
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.04.2008, 12:12
    #35264131
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание переменной
Код: plaintext
1.
2.
3.
4.
5.
6.
sql = "select "
Fields = Split(k, ",")
For x= 0  To UBound(Fields)
    sql = sql & "[Имя таблицы].[" & Trim(Fields(x)) & "], "
Next
sql = Left(sql, Len(sql) -  2 )
sql = sql & " from [Имя таблицы]"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.04.2008, 09:42
    #35267612
LeeoN
LeeoN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание переменной
А можно по подробнее !!! Как применить всаш совет к этому коду...
Вот код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
Private Sub Кнопка23_Click()
    Dim k, m, db As Database
    Set db = CurrentDb
    k = CopySelectedd(Me.Form, Me.listSubjectt)
    m = CopySelected(Me.Form, Me.listSubject)
    db.QueryDefs("Запрос и сточник(ЕДДС)").SQL = _
    "Select * From [Данные о состоянии ЕДДС] " _
    & "Where [Код субъекта] In (" & m & ")"
End Sub

Function CopySelectedd(frm As Form, ctl As Control) As String
    Dim ctlSource As Control
    Dim ctlDest As Control
    Dim strItems As String
    Dim intCurrentRow As Integer
    Set ctlSource = frm(ctl.Name)
    For intCurrentRow =  0  To ctlSource.ListCount -  1 
        If ctlSource.Selected(intCurrentRow) Then
            strItems = strItems & ctlSource.Column( 0 , intCurrentRow) & ","
        End If
    Next intCurrentRow
    CopySelectedd = Left(strItems, Len(strItems) -  1 )
'    ctlDest.RowSource = ""
'    ctlDest.RowSource = strItems
End Function
Function CopySelected(frm As Form, ctl As Control) As String
    Dim ctlSource As Control
    Dim ctlDest As Control
    Dim strItems As String
    Dim intCurrentRow As Integer
    Set ctlSource = frm(ctl.Name)
    For intCurrentRow =  0  To ctlSource.ListCount -  1 
        If ctlSource.Selected(intCurrentRow) Then
            strItems = strItems & ctlSource.Column( 0 , intCurrentRow) & ","
        End If
    Next intCurrentRow
'    ctlDest.RowSource = ""
'    ctlDest.RowSource = strItems
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.04.2008, 11:02
    #35267812
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание переменной
Мне лень разгребать неотформатированный код.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.04.2008, 11:14
    #35267848
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание переменной
2LeeoN
Модератор:
Используйте тег SRC VBA

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2008, 09:57
    #35270307
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание переменной
Код: plaintext
1.
2.
3.
4.
5.
    For intCurrentRow =  0  To ctlSource.ListCount -  1 
        If ctlSource.Selected(intCurrentRow) Then
            strItems = strItems & "[" & ctlSource.Column( 0 , intCurrentRow) & "],"
        End If
    Next intCurrentRow
    CopySelectedd = Left(strItems, Len(strItems) -  1 )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.04.2008, 17:57
    #35272255
LeeoN
LeeoN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задание переменной
Antonariy
Код: plaintext
1.
2.
3.
4.
5.
    For intCurrentRow =  0  To ctlSource.ListCount -  1 
        If ctlSource.Selected(intCurrentRow) Then
            strItems = strItems & "[" & ctlSource.Column( 0 , intCurrentRow) & "],"
        End If
    Next intCurrentRow
    CopySelectedd = Left(strItems, Len(strItems) -  1 )

Спасибо большое Antonariy что не поленился в коде разобратся !!!! немного сам дописал, и вышло )))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задание переменной / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 340ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2162376]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 221ms
total:  340ms
x
x
Закрыть


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