Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Не пойму в чем ошибка, в строке находится ошибка 
:(
    Опции темы
bucdapus
Дата 27.1.2009, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 100
Регистрация: 14.5.2007

Репутация: нет
Всего: нет
В программа используется вместе со сканером типа штрих код. и приустановке курсора в программе на позиции товара и нажатии кнопки сканить штрих код штрих код должен заноситься в колонку с товаром штрих код но вылетает ошибка
Run-time error '91'
object variable or with block variable not set

при запуске проекта пишет что ошибка вот здесь в коде строка 9:


Код

' ФУНКЦИЯ: определение номера записи товара по штрих-коду
' strScan - штрих-код
' Возвращает номер записи товара или 0, если код не найден
Public Function GetRecScancode(strScan As String) As Long
  ' Переменные
    Dim tbTable As DAO.Recordset ' таблица базы данных
  ' Код
    ' поиск товара в базе данных
    Set tbTable = CurrentDB.OpenRecordset("SELECT [NumRec] FROM [Goods] WHERE ([Barcode]='" & cm.sSubToSub(strScan, "'", "") & "') AND (Not [IsDelete]);", dbOpenForwardOnly)
    ' определение результата
    If tbTable.EOF Then
      GetRecScancode = 0
    Else
      GetRecScancode = cm.CVal(tbTable![NumRec])
    End If
    ' освобождение памяти
    Set tbTable = Nothing
End Function




Это сообщение отредактировал(а) Akina - 27.1.2009, 11:56
PM MAIL   Вверх
Naghual
Дата 27.1.2009, 11:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Кто такой cm.sSubToSub ?
Где и как объявлен объект cm ?


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Akina
Дата 27.1.2009, 11:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Приведённый код написан на VBA и должен использоваться в приложении MS Access. 
Использование его в VB6 ОБЯЗАНО приводить к ошибке.

Добавлено через 36 секунд

M
Akina		Используйте тег "Код".



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Naghual
Дата 27.1.2009, 13:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Akina, с чего ты взял, что это код из VBA?



--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Akina
Дата 27.1.2009, 13:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Naghual @  27.1.2009,  14:21 Найти цитируемый пост)
с чего ты взял, что это код из VBA?

VB6 не знает объекта по фамилии CurrentDB.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Naghual
Дата 27.1.2009, 14:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Это может быть глобальна переменная.
Я, к примеру, так и делаю.   smile 


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Akina
Дата 27.1.2009, 15:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
ТО есть вот ты веришь, что это совместимо с заданным вопросом... мне это представляется сомнительным. Тем более что ругань-то идёт именно на CurrentDB, а не на всё остальное.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Naghual
Дата 27.1.2009, 16:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Что-ж, возможно.
Ждем автора вопроса.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0578 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.