| |
|
|
| | В таблице хочу пронумеровать записи что бы не было задвоеных
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
|
| |
| |
| |
| |
|
|
| | Сортировка должна быть в запросе - источнике рекордсета. | |
| |
| |
| |
|
|
| | А если источник взять просто таблицу..........
.sort у recordset имеется, а как им воспользоваться - не выйдетт без запроса  | |
| |
| |
| |
|
|
| | А какая разница что брать, таблицу или запрос?  | |
| |
| |
| |
|
|
| |
Нуууууууууууууууууууууууууууу запрос ещё нуна создавать..................................
а так сортиранул таблицу - и порядок | |
| |
| |
| |
|
|
| | Так прописать строку SQL запроса прямо в коде? | |
| |
| |
|
|
|
|
| |
|
|
| | У нас сегодня не Тяпница, завтра рабочий день.
Так что вы с FORMATOM сегодня "на двоих".  | |
| |
| |
| |
|
|
| | Завтра наХРюкаемся............ | |
| |
| |
| |
|
|
| | Ладно, пойду в болталку кабак открывать | |
| |
| |
....