ник: Nika33
Слетает при изменении значения в поле. На изменение вот такая процедура:
Private Sub Поле13_Change()
With Me.RecordsetClone
.FindFirst "[Материал] Like '" & Me.Поле13.Text & "*'"
If Not .EOF Then Me.Bookmark = .Bookmark
If Me.Поле13.SelLength > 0 Then
Me.Поле13.SelStart = Me.Поле13.SelLength
End If
End With
End Sub
Но все ж таки слетает не всегда (в 99 случаях из 100). А иногда слетает, когда просто это поле получает фокус.