ник: час
Вот нацарапал, а может есть эллегантнее??
Public Function Kolichestvo_Strok(Strtbl As String, StrPole As String) As Long
' Определение количества строк в таблице Strtbl с полем StrPole
Dim k As String
Kolichestvo_Strok = 0
If Nalichie_Tablici(Strtbl) = False Then Exit Function
DoCmd.SetWarnings False
DoCmd.RunSQL "SELECT Count(" & Strtbl & "." & StrPole & ") AS [Count-Поле1] INTO Количество_строк FROM " & Strtbl & ";"
DoCmd.SetWarnings True
If Nalichie_Tablici("Количество_строк") = False Then Exit Function
k = DFirst("[Количество_строк]![Count-Поле1]", "Количес тво_строк")
Kolichestvo_Strok = Val(k)
End Function
|