Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Ошибка «Текущая запись отсутствует» при программном добавлении записей  [new]
MЭSH
Member

Откуда: Столица Каракумов
Сообщений: 15
Народ!
Из главной формы пытаюсь программным методом добавить записи в подчиненную форму следующим кодом:

Dim rs, rs1 As Recordset
Dim z, z1 As Integer
Dim t As String

Set rs = CurrentDb.OpenRecordset("Select Vypusk_Pf.* from Vypusk_Pf where Vypusk_Pf.KodSv=" & Me![Kod])


For i = Me.DN To Me.DK

Set rs1 = CurrentDb.OpenRecordset("VidNapitkov")
Do While Not rs1.EOF
rs.AddNew

rs!KodSv = Me.Kod

rs!Data = i
rs!Napit = rs1!Named


rs.Update
rs.MoveNext
rs1.MoveNext
Loop

Next i

rs.Close

Me.Refresh
Проблема возникает в случае, если рекорсет

"Select Vypusk_Pf.* from Vypusk_Pf where Vypusk_Pf.KodSv=" & Me![Kod] 

пустой (первый раз обращается). Выдает сообщение «Текущая запись отсутствует», хотя при просмотре в таблице запись внесена, но только одна.
Код срабатывает при повторном обращении к данному коду (на кнопке висит).

Как можно выкрутиться из данной ситуации? Что нужно изменить, чтобы данный код срабатывал с первой попытки при пустом рекорсете?

(KodSv – поле подчиненной формы, с которой осуществлена связь с главной формой Kod)



_//M*A*S*H\\_
26 июл 06, 19:32    [2930394]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка «Текущая запись отсутствует» при программном добавлении записей  [new]
Владимир Саныч
Member

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщений: 40414
На какой строке выдается ошибка?
26 июл 06, 19:42    [2930407]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка «Текущая запись отсутствует» при программном добавлении записей  [new]
MЭSH
Member

Откуда: Столица Каракумов
Сообщений: 15
Спасибо, вроде разобрался, кажется при добавлении записей программно совсем не надо ставить

rs.MoveNext

В полне логично, как можно посылать на следующую запись если ее еще нет
Правильны ли мои заключения? Наверно да


_//M*A*S*H\\_
26 июл 06, 20:10    [2930460]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка «Текущая запись отсутствует» при программном добавлении записей  [new]
Владимир Саныч
Member

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщений: 40414
Конечно! Теперь вижу. Эта строка вообще лишняя. Программа ведь ничего не делает с существующими записями рекордсета, она только добавляет новые.
26 июл 06, 20:13    [2930467]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка «Текущая запись отсутствует» при программном добавлении записей  [new]
MЭSH
Member

Откуда: Столица Каракумов
Сообщений: 15
Все-таки Украина гений! Он меня научил мыслить и искать до конца, а при поиске ошибки в коде использовать
msgbox
:-)

_//M*A*S*H\\_
26 июл 06, 20:17    [2930479]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка «Текущая запись отсутствует» при программном добавлении записей  [new]
Владимир Саныч
Member

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщений: 40414
MЭSH
Все-таки Украина гений! Он меня научил мыслить

Он говорил, что в свою очередь его мыслить научил я.

(Скромно так.)
26 июл 06, 20:22    [2930493]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка «Текущая запись отсутствует» при программном добавлении записей  [new]
MЭSH
Member

Откуда: Столица Каракумов
Сообщений: 15
Владимир Саныч
MЭSH
Все-таки Украина гений! Он меня научил мыслить

Он говорил, что в свою очередь его мыслить научил я.

(Скромно так.)


Ну тогда Вы мой дедушка-учитель!!! :-)

Вообще при программировании я так понял, больше нужна логика, чем вообще глобальное знание программирования. Если мыслить, то можно написать программу минимальным набором функций и процедур, пусть при этом все выглядит неказисто и смешно, но работает же!!! Хотя может быть не прав, но буду стоять на своем
26 июл 06, 20:36    [2930521]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка «Текущая запись отсутствует» при программном добавлении записей  [new]
Темный
Member

Откуда:
Сообщений: 11941
Владимир Саныч
MЭSH
Все-таки Украина гений! Он меня научил мыслить

Он говорил, что в свою очередь его мыслить научил я.

(Скромно так.)

Еще надо добавить вот это: Картинка с другого сайта.

:))
26 июл 06, 22:31    [2930681]     Ответить | Цитировать Сообщить модератору
 Re: Ошибка «Текущая запись отсутствует» при программном добавлении записей  [new]
Владимир Саныч
Member

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщений: 40414
MЭSH
Вообще при программировании я так понял, больше нужна логика, чем вообще глобальное знание программирования. Если мыслить, то можно написать программу минимальным набором функций и процедур, пусть при этом все выглядит неказисто и смешно, но работает же!!! Хотя может быть не прав, но буду стоять на своем

Это можно сказать короче: мыслить всегда не помешает.

Темный
Еще надо добавить вот это: Картинка с другого сайта.

27 июл 06, 10:58    [2931677]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить