Как отловить #Ошибка

MasterZ

Дата: 26.11.2009 10:56:05

Источником данных поля являестя следующий код

="Определить в место №" & IIf(IsEmpty(Form!frmPlaces!PlaceNumber);"нет мест!";Form!frmPlaces!PlaceNumber)

Если в форме Form!frmPlaces нет строчек то в поле появляется запись #Ошибка

пробовал проверки IsEmpty(Form!frmPlaces!PlaceNumber)
IsNull(Form!frmPlaces!PlaceNumber)

не помогает.
Подскажите как сделать проверку, чтобы вместо #Ошибка выводить свое сообщение?
Спасибо.

отакота

Дата: 26.11.2009 11:01:58

IsError попробуйте

Rivkin Dmitry

Дата: 26.11.2009 11:23:22

MasterZ,
Прогу надо писать типа

If Me.Recordset.RecordCount = 0 then
    Me.MyField = ""
Else
    If Nz(PlaceNumber, 0) = 0 Then
        Me.MyField = "нет мест!"
    Else
        Me.MyField = Me.PlaceNumber
End If

И вызывать ее на OnCurrent и во всех местах, которые связаны со значением в этом поле на AfterUpdate

MasterZ

Дата: 26.11.2009 13:51:44

Rivkin Dmitry

MasterZ,
Прогу надо писать типа

If Me.Recordset.RecordCount = 0 then
    Me.MyField = ""
Else
    If Nz(PlaceNumber, 0) = 0 Then
        Me.MyField = "нет мест!"
    Else
        Me.MyField = Me.PlaceNumber
End If

И вызывать ее на OnCurrent и во всех местах, которые связаны со значением в этом поле на AfterUpdate

это лишнее

вот

=IIf(IsError(Form!frmPlaces!PlaceNumber);"Нет мест!";"Определить в место №" & Form!frmPlaces!PlaceNumber)

И еще

=IIf(IsError(Form!frmPlaces!PlaceID);Null;Form!frmPlaces!PlaceID)

Проверяйте поле на null перед использованием и все будет ок.
спасибо отакота