Приватное Sub cmbFindSatf_AfterUpdate ()
Тусклые rs как предмет
'Me.FilterOn = ложно
Установите rs = Me.Recordset.Clone
rs.FindFirst «[SATF_NO] =» & я! [cmbFindSatf]. Колонка (1)
Если не rs.EOF после этого Me.Bookmark = rs. Bookmark
Me.Refresh
Подводная лодка конца
'если полем [SATF_NO] будет польза текста это Кодие
Приватное Sub cmbFindSatf_AfterUpdate ()
Тусклые rs как предмет
'Me.FilterOn = ложно
Установите rs = Me.Recordset.Clone
rs.FindFirst «[SATF_NO] = «» & я! [cmbFindSatf]. Колонка (1) & «» «
Если не rs.EOF после этого Me.Bookmark = rs. Bookmark
Me.Refresh
Подводная лодка конца
|