ник: час
В таблице хочу пронумеровать записи что бы не было задвоеных
Function Number_12345()
' Перенумерация при удалении
Dim MyRst As DAO.Recordset
Dim imeem As Long
imeem = 1
Set MyRst = CurrentDb.OpenRecordset("Pay_TBL", dbOpenDynaset)
With MyRst
.MoveFirst
как произвести сортировку по полю P/p
'.Sort
Do Until .EOF
.Edit
MsgBox !Pay_Name
![P\p] = imeem
.Update
.MoveNext
imeem = imeem + 1
Loop
End With
MyRst.Close
Set MyRst = Nothing
End Function
|