Возникли проблемы после инсталяции
1. При сборке установочного кмоплекта не стал устанавливать некоторые библиотеки (какие-то из них вызывали ошибки при инсталяции, так как кем-то использовались). В частности не включил Visual Basic Runtime Librory. После установки при настройке программы пишу функцей GetAllSettings некоторый настройки в реестр. При этом программа выдаёт ошибку:
Ошибка № 13;
Описание: Type mismatch;
Какую библиотеку надо включить, чтобы эта гадость работала? (Самому экспериментировать некогда)
2. Есть код:
Dim Frm As Form
Dim I As Long
Dim B As Long
IndCk = 0
For I = 1 To LvFind.ListItems.Count
If LvFind.ListItems(I).Checked Then
FrmAnketa.IsNewClnt = False
FrmAnketa.FrList = True
FrmAnketa.StrtPrint = True
LvFind_ItemClick LvFind.ListItems(I)
FrmAnketa.Show vbModal
LvFind.ListItems(I).Checked = False
LvFind.ListItems(I).SubItems(1) = "Да"
End If
Next
где LvFind - ЛистВью, FrmAnketa - форма (позднее связывание). У меня код отрабатывает нормально, у ВСЕХ пользователей возникает ошибка:
Ошибка № 91;
Описание: Object variable or With block variable not set;
Что это такое, с чем это едят и как с этим бороться - может кто знает?
Цитата:
Originally posted by mhaturov
народ, кто знает, как победить?
1. При сборке установочного кмоплекта не стал устанавливать некоторые библиотеки (какие-то из них вызывали ошибки при инсталяции, так как кем-то использовались). В частности не включил Visual Basic Runtime Librory. После установки при настройке программы пишу функцей GetAllSettings некоторый настройки в реестр. При этом программа выдаёт ошибку:
Ошибка № 13;
Описание: Type mismatch;
Какую библиотеку надо включить, чтобы эта гадость работала? (Самому экспериментировать некогда)
2. Есть код:
Dim Frm As Form
Dim I As Long
Dim B As Long
IndCk = 0
For I = 1 To LvFind.ListItems.Count
If LvFind.ListItems(I).Checked Then
FrmAnketa.IsNewClnt = False
FrmAnketa.FrList = True
FrmAnketa.StrtPrint = True
LvFind_ItemClick LvFind.ListItems(I)
FrmAnketa.Show vbModal
LvFind.ListItems(I).Checked = False
LvFind.ListItems(I).SubItems(1) = "Да"
End If
Next
где LvFind - ЛистВью, FrmAnketa - форма (позднее связывание). У меня код отрабатывает нормально, у ВСЕХ пользователей возникает ошибка:
Ошибка № 91;
Описание: Object variable or With block variable not set;
Что это такое, с чем это едят и как с этим бороться - может кто знает?
народ, кто знает, как победить?
1. При сборке установочного кмоплекта не стал устанавливать некоторые библиотеки (какие-то из них вызывали ошибки при инсталяции, так как кем-то использовались). В частности не включил Visual Basic Runtime Librory. После установки при настройке программы пишу функцей GetAllSettings некоторый настройки в реестр. При этом программа выдаёт ошибку:
Ошибка № 13;
Описание: Type mismatch;
Какую библиотеку надо включить, чтобы эта гадость работала? (Самому экспериментировать некогда)
2. Есть код:
Dim Frm As Form
Dim I As Long
Dim B As Long
IndCk = 0
For I = 1 To LvFind.ListItems.Count
If LvFind.ListItems(I).Checked Then
FrmAnketa.IsNewClnt = False
FrmAnketa.FrList = True
FrmAnketa.StrtPrint = True
LvFind_ItemClick LvFind.ListItems(I)
FrmAnketa.Show vbModal
LvFind.ListItems(I).Checked = False
LvFind.ListItems(I).SubItems(1) = "Да"
End If
Next
где LvFind - ЛистВью, FrmAnketa - форма (позднее связывание). У меня код отрабатывает нормально, у ВСЕХ пользователей возникает ошибка:
Ошибка № 91;
Описание: Object variable or With block variable not set;
Что это такое, с чем это едят и как с этим бороться - может кто знает?
Да, народ, забыл сообщить - проблема решилась сама собою после переинсталяции VB и перекомпиляции проекта.:)