ленточная форма

Александра-Александра
Дата: 27.02.2008 01:26:06
Здравствуйте...

Такой вопрос.
Имеется ленточная форма.
И имеются 2 поля NPP и Nazv_Texta

Private Sub Form_Load()

  If NPP.Value = 0 Then
   Nazv_Texta.Locked = True
  Else
   Nazv_Texta.Locked = False
  End If

End Sub

Где тут ошибка?

Спасибо...
Ёжик`
Дата: 27.02.2008 01:30:56
Ну так ленточная же...

Повесить код на событие Текущая запись

В случае ошибки блокировки Nazv_Texta уводить с него фокус предварительно.
Александра-Александра
Дата: 27.02.2008 01:36:58
Ёжик`
Ну так ленточная же...

Повесить код на событие Текущая запись

В случае ошибки блокировки Nazv_Texta уводить с него фокус предварительно.


Во... я примерно так и думала...

on Current работает частично.
только не знала как уводить оттуда фокус... :)

Как уводить с него фокус предварительно?
Александра-Александра
Дата: 27.02.2008 01:44:00
Ёжик`
Ну так ленточная же...

Повесить код на событие Текущая запись

В случае ошибки блокировки Nazv_Texta уводить с него фокус предварительно.

Создать скрытое поле и на него уводить фокус?
Ёжик`
Дата: 27.02.2008 01:47:41
NPP.SetFocus
Ёжик`
Дата: 27.02.2008 01:49:37
А как скрытое поле может быть в фокусе?
Александра-Александра
Дата: 27.02.2008 02:09:58
Ёжик`
NPP.SetFocus

Не помогает, что-то...
Только, если кликаю на другую строчку, тогда освобождается поле...
Ёжик`
Дата: 27.02.2008 02:24:54
Если только locked - тогда даже фокус уводить не надо

Me.Nazv_Texta.Locked = Not CBool(Me.NPP)
Александра-Александра
Дата: 27.02.2008 02:34:09
Ёжик`
Если только locked - тогда даже фокус уводить не надо

Me.Nazv_Texta.Locked = Not CBool(Me.NPP)


Так тоже не работает... Только, если кликну на другую строку и обратно...

Пример не открывается... У меня аксесс 2000...
Ёжик`
Дата: 27.02.2008 02:37:16
конвертнул