Ошибка 3021. Текущая запись отсутствует.

[burik]

Здравствуйте!

Вобщем возникает ошибка 3021 (Текущая запись отсутствует).
Есть такой участок кода:

Код: Выделить всё


    For i = 1 To rs.RecordCount
        Load Days(i)
        With Days(i)
        .Top = Days(i - 1).Top + Days(i - 1).Height + 60
       
        .TDate = rs.Fields(1)
        .Text = rs.Fields(3)
        .BackColor = vbWhite
        .Visible = True
        End With
        rs.MoveNext
    Next i


Days - это массив моих контролов.
Ошибка возникает в ...Property Let TDate.. :

Код: Выделить всё


Public Property Let TDate(ByVal New_TDate As Variant)
    DTPicker1.Value() = Mid$(New_TDate, 1, 10) '<<<<<<<< Здесь ошибка возникает
    tTime(0).Text = IIf(Len(CStr(Hour(New_TDate))) = 1, "0" & CStr(Hour(New_TDate)), CStr(Hour(New_TDate)))
    tTime(1).Text = IIf(Len(CStr(Minute(New_TDate))) = 1, "0" & CStr(Minute(New_TDate)), CStr(Minute(New_TDate)))
    tTime(2).Text = IIf(Len(CStr(Second(New_TDate))) = 1, "0" & CStr(Second(New_TDate)), CStr(Second(New_TDate)))
    PropertyChanged "TDate"
End Property

Кол-во записей в rs - 4 у всех fields(1) = "24.06.2007 11:30:25".
Вроде все проверил.. Не знаю где ошибка..

[Antonariy]

А ты там нигде DataField/DataSource не проставляешь? Такая ошибка возникает, когда присваивается значение контролу, связанному с полем рекордета, который находится в BOF/EOF.

[burik]

А ты там нигде DataField/DataSource не проставляешь? Такая ошибка возникает, когда присваивается значение контролу, связанному с полем рекордета, который находится в BOF/EOF.

Нет. Там только две процедуры с БД работают (эта и еще одна), обе такого типа:

Код: Выделить всё


sub sub_name()
set db = dao.opendatabase..
set rs = db.opendatabase..
...
rs.close
set rs = nothing
db.close
set db = nothing
end sub


Связанных с БД контролов нет. В моем контроле есть DTPicker(календарь), image и два текст бокса

[Antonariy]

Возможно рекордсет таки находится в EOF потому что For i = 1 To rs.RecordCount - безграмотно. Грамотно так:

Код: Выделить всё

While Not rs.EOF
     ...
    i = i + 1
    rs.MoveNext
Wend

Кроме того ты передаешь rs.Fields(1) в функцию, которая принимает Variant. Из-за этого передается не значение свойства по умолчанию - Value, - а объект Field.

[burik]

Antonariy спасибо!
Заработало.