| |
|
|
| | Вот нацарапал, а может есть эллегантнее??
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
|
| |
| |
| |
| |
|
|
| | DCount("*","[Имя таблицы]")
Так элегантнее?  | |
| |
| |
|
|
