Запретить фокусу произвольно переходить на другие поля

@GafarovIS · Регистрация: 10.10.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте!
В приложении БД. Задумка в том, чтобы при получении полями "Текст 1" и "Текст 2" отображались для каждого из них свои столбцы "Запись 1" и "Запись 2".
Проблема в том, что при этом фокус на выбранное поле переходит только со второй попытки.
Возможно ли сделать, чтобы это происходило с первой попытки?

mobile · 18.09.2016, 08:19

Если правильно понял идею, то так

Visual Basic

Private Sub Текст_1_GotFocus()
    Screen.ActiveDatasheet.[Запись 1].ColumnHidden = False
    Screen.ActiveDatasheet.[Запись 2].ColumnHidden = True
End Sub
 
'Private Sub Текст_1_LostFocus()
'    Screen.ActiveDatasheet.[Запись 2].ColumnHidden = False
'End Sub
 
Private Sub Текст_2_GotFocus()
    Screen.ActiveDatasheet.[Запись 2].ColumnHidden = False
    Screen.ActiveDatasheet.[Запись 1].ColumnHidden = True
End Sub
 
'Private Sub Текст_2_LostFocus()
'    Screen.ActiveDatasheet.[Запись 2].ColumnHidden = True
'End Sub

@GafarovIS · 18.09.2016, 08:27 **[ТС]**

Вы все правильно поняли. Просто я не сказал Вам, что полей "Текст" и соответствующих им полей "Запись" гораздо больше, а не по два.
Поэтому, в одной процедуре не возможно будет угадать на каком поле в прошлый раз был фокус.
Вернее... Возможно, но это через переменную. Просто хотел узнать другого способа не бывает ли?

mobile · 18.09.2016, 09:31

Пример для 4 полей. С регулярными именами: Запись 1, ..., Запись 4, Текст 1, ..., Текст 4 и полем Код. Если имена полей нерегулярны, то нужны массивы соответствия имен.

Кликните здесь для просмотра всего текста

Visual Basic

Private Sub Код_GotFocus()
    CtlVisible
End Sub
 
Private Sub Текст_1_GotFocus()
    CtlVisible
End Sub
 
Private Sub Текст_2_GotFocus()
    CtlVisible
End Sub
 
Private Sub Текст_3_GotFocus()
    CtlVisible
End Sub
 
Private Sub Текст_4_GotFocus()
    CtlVisible
End Sub
 
Public Function CtlVisible()
    Dim prev, cur, ctlP, ctlC
    On Error Resume Next 'при загрузке контролы даташит еще не определены
    cur = Screen.ActiveControl.Name
    prev = Screen.PreviousControl.Name
    ctlP = Replace(prev, "Текст", "Запись")
    ctlC = Replace(cur, "Текст", "Запись")
    Screen.ActiveDatasheet.Controls(ctlC).ColumnHidden = False
    If prev <> "Код" Then Screen.ActiveDatasheet.Controls(ctlP).ColumnHidden = True
End Function

@GafarovIS · 18.09.2016, 10:05 **[ТС]**

спасибо.
а как теперь навести фокус на поле в таблице формы (ну чтобы оно выделялось так будто курсор встал не на основной форме, а в таблице???

@VinniPuh · 18.09.2016, 10:17

Может какое нибудь условное форматирование нужно применить?
Хотя в табличных формах такое кажисть не прокалывает.

@GafarovIS · 18.09.2016, 10:32 **[ТС]**

Сообщение от mobile

Dim prev, cur, ctlP, ctlC

А переменные можно сделать явными?

mobile · 18.09.2016, 12:14

GafarovIS, попробуйте

@GafarovIS · 18.09.2016, 14:50 **[ТС]**

спасибо большое! очень сильно помогли

Запретить фокусу произвольно переходить на другие поля

Решение

Решение

Решение

@GafarovIS 24 / 23 / 0 Регистрация: 10.10.2014 Сообщений: 886
	18.09.2016, 08:27 [ТС]	3
	Вы все правильно поняли. Просто я не сказал Вам, что полей "Текст" и соответствующих им полей "Запись" гораздо больше, а не по два. Поэтому, в одной процедуре не возможно будет угадать на каком поле в прошлый раз был фокус. Вернее... Возможно, но это через переменную. Просто хотел узнать другого способа не бывает ли? 0

@GafarovIS 24 / 23 / 0 Регистрация: 10.10.2014 Сообщений: 886
	18.09.2016, 10:05 [ТС]	5
	спасибо. а как теперь навести фокус на поле в таблице формы (ну чтобы оно выделялось так будто курсор встал не на основной форме, а в таблице??? 0

@VinniPuh 8862 / 5910 / 585 Регистрация: 27.03.2013 Сообщений: 19,583
	18.09.2016, 10:17	6
	Может какое нибудь условное форматирование нужно применить? Хотя в табличных формах такое кажисть не прокалывает. 1

@GafarovIS 24 / 23 / 0 Регистрация: 10.10.2014 Сообщений: 886
	18.09.2016, 10:32 [ТС]	7
	Сообщение от mobile Dim prev, cur, ctlP, ctlC А переменные можно сделать явными? 0

@GafarovIS 24 / 23 / 0 Регистрация: 10.10.2014 Сообщений: 886
	18.09.2016, 14:50 [ТС]	9
	спасибо большое! очень сильно помогли 0