ник: joka
Me.RecordsetClone.FindFirst "id = " & Me![ПолеВыбораСотрудника]
Me.Bookmark = Me.RecordsetClone.Bookmark
Здесь вы не проверяете NoMatch, а зря.
|
я правильно понял так надо проверять?
If Not Me.RecordsetClone.NoMatch Then
Me.RecordsetClone.FindFirst "id = " & Me![ПолеВыбораСотрудника]
Me.Bookmark = Me.RecordsetClone.Bookmark
End If
а чем все таки грозит отсутствие такой проверки? просто это событие стоит на апдейт списка, который ограничен по своим значениям - точно СУЩЕСТВУЮЩИМИ значениями из таблицы...
RecCount.Caption = Me.Recordset.RecordCount
|
а тут надо что то типа?
RecCount.Caption = 0
Me.Recordset.MoveFirst
while not Me.Recordset.EOF
RecCount.Caption = RecCount.Caption + 1
Me.Recordset.MoveNext
wend
так?