| |
|
|
| |
Dim dbs As Database, rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("No_DELETE_QUE", dbOpenDynaset)
|
ответ несоответствие типов данных
хотя, просто тычком мыши - запрос открывается | |
| |
| |
| |
|
|
| | что за XP
[code]
Dim dbs As Database, rst As Recordset
Dim SQLL As String
Set dbs = CurrentDb
SQLL = "SELECT Sale_Film_Nams.Film_Name AS Выражение1, Sale_Rights_broadcasting.tree_Wiev " _
& "FROM Sale_Film_Nams INNER JOIN Sale_Rights_broadcasting ON Sale_Film_Nams.Id_Film_Name = Sale_Rights_broadcasting.ID_Film " _
& "WHERE (((Sale_Rights_broadcasting.tree_Wiev) Like "" * (96) * "")) " _
& "WITH OWNERACCESS OPTION;"
Set rst = dbs.OpenRecordset(SQLL, dbOpenDynaset)
АААААААААА - надо явно на библиотеку ссылаться DAO.recordset | |
| |
| |
