нумепация строк по дате

Поправте код пожалуйста есть таблица1 (Код-счечик, Дата-дата, Faktura число) на основании ее создан запрос с сортировкой по дате на основании запроса форма нужно что бы в поле Faktura просавлялись номера по возрастанию согласно дат а сейчас проставляются теже номера что и в счечике Как быть помогите

Private Sub Кнопкпа7_Click()
Dim s As Integer
Dim ds As dao.Recordset
Dim fn As Integer

fn = 0
Set ds = CurrentDb.OpenRecordset("Таблица1", dbOpenDynaset)
ds.MoveLast
s = ds.RecordCount
ds.MoveFirst

For i = 1 To s
fn = fn + 1
ds.Edit
ds!faktura = fn
ds.Update
Debug.Print i, s, fn, ds!faktura
ds.MoveNext
Next

End Sub

автор

Set ds = CurrentDb.OpenRecordset("Таблица1", dbOpenDynaset)

Dim strSQL As String
strSQL = "SELECT * FROM Таблица1 ORDER BY Дата"
Set ds = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

так наверна

автор Set ds = CurrentDb.OpenRecordset("Таблица1", dbOpenDynaset) Dim strSQL As String strSQL = "SELECT * FROM Таблица1 ORDER BY Дата" Set ds = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

Спасибо но так тоже не работает

igor701

... Спасибо но так тоже не работает

в чём выражается "не работает"?

зы
ваще запретить надо употребление этого словосочетания на sql.ru

так,

igor701 ... Спасибо но так тоже не работает в чём выражается "не работает"? зы ваще запретить надо употребление этого словосочетания на sql.ru

в смысле простовлят номера счечика как и прежде

igor701

так, igor701 ... Спасибо но так тоже не работает в чём выражается "не работает"? зы ваще запретить надо употребление этого словосочетания на sql.ru в смысле простовлят номера счечика как и прежде

так может порядок следования счетчика совпадает с "ORDER BY Дата"?

покажите образец данных до и после выполнения процедуры
желательно с неправильным faktura

так,,

вот фаил

так,,

вот фаил

igor701,

сохраните в формате 2003

так,,