Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Error 91...

Тема: Error 91

15.06.2007 21:02:41

shura_k

2 сообщения

Тема: Error 91

Public Sub Spider()
Dim TaskFile As String
Dim pp As New Collection
Dim LNVisualWT1 As LNVisualWT

With LNVisualWT1

pp.Add "03107589", "loginname"
pp.Add "123456", "password"
pp.Add "'7','1'", "query_games"
pp.Add "1", "query_type"

TaskFile = "D:\play.vwt"

Set .Parameters = Nothing 'Почему сдесь

If pp.Count > 0 Then
Set .Parameters = pp 'сдесь
End If
.StartTask TaskFile 'сдесь
.ReleaseAll

End With

End Sub

Выскакивает
Object variable or With block variable not set (Error 91)

P.S. Проблемы с базой данных
Автор: shura_k от 27.06.2002 18:15:47 Источник ...

15.06.2007 21:02:41

All

4316 сообщения

RE: Error 91

Непонятно, что Вы (объекты, пароли и т.п.) собираетесь хранить в этом наборе. Например, чтобы сохранить объект-форму можно сделать так.

Private colForms As New Collection
Public Function funSaveActiveForm()
Dim frm As Form
Set frm = Screen.ActiveForm
colForms.Add Item:=frm, Key:=frm.Hwnd & ""
End Function

' Отображение формы, strKey = frm.Нwnd & ""
Public Function funViewForm(strKey As String)
Dim frm As Form
Set frm = colForms(strKey)
frm.Visible = True
End Function

P.S. Проблемы с базой данных
Автор: Виктор Конюков от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Error 91...

Поиск

Список форумов

Начало | Forums