ник: alecks_lp
Public Function RecordCounter(frm As Form) As Variant
On Error GoTo ErrorHandler
Dim rs As DAO.Recordset
Set rs = frm.Recordset.Clone
If rs.BOF And rs.EOF Then
RecordCounter= "Нет записей"
Else
rs.MoveLast
rs.MoveFirst
RecordCounter=rs.RecordCount
End If
ErrorHandler:
Set rs = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Ошибка"
End If
Private Sub кнопка34_Click()
поле35.Value = RecordCounter(Me)
End Sub