Дико извиняюсь, но опять не работает.
Код:
Private Sub proff_n_list_Click()
Dim dbs As Database
Dim rstTemp As RecordSet
Dim sql_q As String
Set dbs = CurrentDb
sql_q = "Select ph_f_id From ph_f_n_t where ph_f_n='" + proff_n_list.Value + "';"
Set rstTemp = dbs.OpenRecordset(sql_q, dbOpenForwardOnly, dbReadOnly)
rstTemp.Close
End Sub
Получаю ошибку:
Цитата:
Run-Time Error '13'
Type mismatch
|
Ругается на присвоение Set rstTemp = dbs.Ope...
Пробовал различные type. Когда его "можно" использовать та же ошибка. Если нельзя - ругается на type...
Бред какой то... Я что то еще забыл подключить ?
Цитата:
Set recordset = object.OpenRecordset (source, type, options, lockedits)
Creates a new Recordset object and appends it to the Recordsets collection.
recordset An object variable that represents the Recordset object you want to open.
|
Пробовал пример из хелпа - тоже самое.
Помогите пожалуста разобратся.
