sql запрос в vba Access

[DenProx]

Доброго времени суток. У меня такая проблемка: пытаюсь выполнить запрос в коде VB ... ошибок нет, но и запрос не срабаотывает... что может быть в нем не так??

Private Sub TreeView1_NodeClick(ByVal Node As Object)
Dim sKey As String
Dim rst As DAO.Recordset
Dim strSql As String
 
sKey = tvwKey(Me.TreeView1)
 
Me!Поле11 = sKey
Me!Поле11.Requery
 
strSql = " SELECT SingleQuestionMode.* " _
& "FROM tblTreeV INNER JOIN SingleQuestionMode ON tblTreeV.Group1=SingleQuestionMode.GroupID " _
& "WHERE SingleQuestionMode.GroupID = " & sKey & ";"
 
Set rst = CurrentDb.OpenRecordset(strSql)
 
End Sub

[Swatch]

сначала обьявите создание запроса, а потом его открытие

Dim rst as QueryDef
Set rst=CurrentDb.CreateQueryDef ("имя запроса"," SELECT SingleQuestionMode.* " _
& "FROM tblTreeV INNER JOIN SingleQuestionMode ON tblTreeV.Group1=SingleQuestionMode.GroupID " _
& "WHERE SingleQuestionMode.GroupID = " & sKey & ";")
DoCmd.OpenQuery имя запроса

после имени запроса через запятую указываются режим открытия и режим данных. По умолчанию (т.е. можно не указывать) устанавливается режим таблицы и режим данных "На изменение".

[DenProx]

я пробовал... тогда выдает ошибку:

Run-time '2342':

Для макрокоманды ЗапускЗапросаSQL требуется аргумент, состоящий из конструкции SQL.

[shanemac51]

''проверь --разрешены ли макросы по безопасности

Sub mm()
Dim skey
skey = 1
Dim rst As QueryDef
Set rst = CurrentDb.CreateQueryDef("www", " SELECT SingleQuestionMode.* " _
& "FROM tblTreeV INNER JOIN SingleQuestionMode ON tblTreeV.Group1=SingleQuestionMode.GroupID " _
& "WHERE SingleQuestionMode.GroupID = " & skey & ";")
DoCmd.OpenQuery "www"

End Sub

[Woodlin]

DenProx попробуйте в конце строки запроса убрать & ";"

[DenProx]

shanemac51 спасибо ! но это не совсем то что мне нужно. Я извиняюсь за не предоставленную информацию того что есть, и как должно быть.

Есть форма, на ней лежит TreeView при выборе какого либо элемента из этого "дерева" в подчиненной таблице которая находится на этой же форме, должны отобразиться записи относящиеся к этому элементу.

должна просто выполнится выборка, а таблица должна ее отобразить...

Woodlin это не помогает...

[shanemac51]

Private Sub TreeView1_NodeClick(ByVal Node As Object)
Dim sKey As String
Dim rst As DAO.Recordset
Dim strSql As String
 
sKey = tvwKey(Me.TreeView1)
 
Me!Поле11 = sKey
Me!Поле11.Requery
 
strSql = " SELECT SingleQuestionMode.* " _
& "FROM tblTreeV INNER JOIN SingleQuestionMode ON tblTreeV.Group1=SingleQuestionMode.GroupID " _
& "WHERE SingleQuestionMode.GroupID = " & sKey & ";"
 
Set rst = CurrentDb.OpenRecordset(strSql)
 '''''''''''''''''''''''''''''''''''''''''''''''''''где обработк""""""""""""""'""""""
End Sub

[DenProx]

Товарищи! Проблема решена! решил простой запрос сделать, применить его как источник данных для подчиненной формы с таблицей, а в запрос передаю переменную ключа, выделенного элемента в TreeView )

Всем спасибо! Тему можно закрыть!