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

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Помогите с кодом разобраться. два одинаковых, куска в разных формах не работают 
:(
    Опции темы
Bes
Дата 18.7.2005, 11:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 7
Жирным показан одинаковый кусок кода который и был мною добавлен - он приведен для открытия двух разных форм.

так все работает

Цитата
Private Sub Form_Open(Cancel As Integer)
Dim НомЗап As Long, sqlstr As String
On Error Resume Next

Me.FilterOn = False
Me.OrderByOn = True
Me.OrderBy = "ДатА;Поставщик;КлЗак"

НомЗап = DLookup("[Запись]", "Позиция", "[Форма]='Закупки'")
Otkl = 1
DoCmd.GoToRecord , , acGoTo, НомЗап
Название.SetFocus
If Len(Err.Description) > 0 Then MsgBox Err.Description
Err.Clear


НомЗап = 0
sqlstr = " [User] = '" & CurrentUser() & "' and dat = date()"
НомЗап = DLookup("[id]", "Registrat", sqlstr)
If НомЗап = 0 Then
sqlstr = "insert into registrat (user,dat,tms) values ('" & CurrentUser() & "' , '" & DatE & "' , '" & Time() & "' )"
DoCmd.RunSQL sqlstr, False
End If
End Sub



а так не работает

Цитата
Private Sub Form_Open(Cancel As Integer)
Dim НомЗап As Long, sqlstr As String

НомЗап= 0
sqlstr = " [User] = '" & CurrentUser() & "' and dat = date()"
НомЗап= DLookup("[id]", "Registrat", sqlstr)
If НомЗап= 0 Then
sqlstr = "insert into registrat (user,dat,tms) values ('" & CurrentUser() & "' , '" & DatE & "' , '" & Time() & "' )"
DoCmd.RunSQL sqlstr, False
End If

On Error GoTo 999
Otkl = 1
DoCmd.Maximize
Me.FilterOn = True
Me.OrderBy = "[Nom],[Data]"
Me.OrderByOn = True
DoCmd.ApplyFilter , "[Stch]=True or [Frm]='КАССА'"
Me.KnSCT.Enabled = False
НомЗап = DLookup("[Запись]", "Позиция", "[Форма]='Счет'")
DoCmd.GoToRecord , , acGoTo, НомЗап
Me.Plt.SetFocus
Exit Sub
999:
If Err.Number = 2150 Then Resume Next

End Sub


Выдает ошибку:
Ошибка выполнения "94"
Недопустимое использование Null

заранее спасибо.

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


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


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

Репутация: 30
Всего: 454
Цитата(Bes @ 18.7.2005, 12:11)
Выдает ошибку:
Ошибка выполнения "94"
Недопустимое использование Null

В какой строке? какие при этом значения используемых в строке переменных?

И потом - используй тег "code", а не "quota"... надо выделить - выделяй комментами.


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


Опытный
**


Профиль
Группа: Участник
Сообщений: 466
Регистрация: 17.5.2005
Где: Москва

Репутация: 4
Всего: 20
проверь, возможно DLookup возвращает NULL


--------------------
TSC! Russia 
PM MAIL   Вверх
Bes
Дата 18.7.2005, 11:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 7
2likhobory: да именно его и возвращает но ведь он его возвращает и в первом случае и ничего - все работает?
ну и как с этим бороться?
PM MAIL   Вверх
likhobory
Дата 18.7.2005, 12:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 466
Регистрация: 17.5.2005
Где: Москва

Репутация: 4
Всего: 20
If НомЗап Is Null ...


--------------------
TSC! Russia 
PM MAIL   Вверх
Bes
Дата 18.7.2005, 13:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 7
Ха фигу вылетает на предыдущей строчке
НомЗап= DLookup("[id]", "Registrat", sqlstr)
вот тут как будто толи ДЛукап не может нулл вернуть толи он его не может Лонгу присвоить. Хрень какая-то. smile smile
PM MAIL   Вверх
likhobory
Дата 18.7.2005, 13:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 466
Регистрация: 17.5.2005
Где: Москва

Репутация: 4
Всего: 20
дык я ж не телепат, пиши № строки, пробуй
НомЗап= NZ(DLookup("[id]", "Registrat", sqlstr), 0)


--------------------
TSC! Russia 
PM MAIL   Вверх
Bes
Дата 18.7.2005, 13:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 7
Сорри да строку не указал.
Круто спасибо сработало, а почему в предыдущей форме этого не требуется smile но это уже другой вопрос.

Это сообщение отредактировал(а) Bes - 18.7.2005, 13:23
PM MAIL   Вверх
likhobory
Дата 18.7.2005, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 466
Регистрация: 17.5.2005
Где: Москва

Репутация: 4
Всего: 20
сходу не отвечу, надо смотреть...
советую в таких ситуациях всегда подстраховываться с помощью Nz или IIF(IsNull...


--------------------
TSC! Russia 
PM MAIL   Вверх
  
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "MS Access"
Akina
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] и [code=sql][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

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

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

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

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

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


 




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


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

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