ник: Анатолий (Киев)
я правильно понял так надо проверять?
If Not Me.RecordsetClone.NoMatch Then
Me.RecordsetClone.FindFirst "id = " & Me![ПолеВыбораСотрудника]
Me.Bookmark = Me.RecordsetClone.Bookmark
End If
|
Нет, неправильно.
Me.RecordsetClone.FindFirst "id = " & Me![ПолеВыбораСотрудника]
If Not Me.RecordsetClone.NoMatch Then
Me.Bookmark = Me.RecordsetClone.Bookmark
End If
|
А так - красивше:
With Me.RecordsetClone
.FindFirst "id = " & Me![ПолеВыбораСотрудника]
If Not .NoMatch Then Me.Bookmark = .Bookmark
End With
|
а тут надо что то типа?
RecCount.Caption = 0
Me.Recordset.MoveFirst
while not Me.Recordset.EOF
RecCount.Caption = RecCount.Caption + 1
Me.Recordset.MoveNext
wend
так?
|
Можно и так, но это как-то через ж...
Лучше так:
With Me.RecordsetClone
If Not .BOF Or Not .EOF Then .MoveLast
RecCount.Caption = .RecordCount
End With
|
ЗЫ. Мой вам совет - не ленитесь заглядывать в HELP по любому случаю.
Если не дружите с английским, найдите в инете Help на A97 rus. Была ссылка и на этом сайте.