|
Действия ...
|
29.08.2001, 05:34
|
|||
|---|---|---|---|
|
|||
Как при помощи 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 По-моему, ничего не забыл, но не проверял. Успехов  |
|||
|
|
