|
Как при помощи VBA найти максимальный порядковый номер
|
||
|---|---|---|
Гость
|
||
|
Public Sub Max_Nom(otdel as string)
Dim db As Database Dim rs_kont_max As DAO.Recordset Dim st_sel_max As String Set db = CurrentDb() st_sel_max = "SELECT MAX(поле1) AS maxs FROM NrRabot WHERE trim(Otdel) = '" & trim(otdel) & "'" Set rs_kont_max = db.OpenRecordset(st_sel_max, dbOpenDynaset) max_nom = rs_kont_max!maxs + 1 end sub По-моему, ничего не забыл, но не проверял. Успехов  |
||
| 29.08.2001, 05:34 |
|
|
