none
ACCESS Ошибка в коде втоматического проставления и исправления порадкового номера строк RRS feed

  • Общие обсуждения

  • Программу писал не я, да и я не особо разбираюсь в акссессе, но если есть легкий способ исправить код, буду признателен

    Есть кнопка в форме, которая нумерует строки по порядку в конкретный день.  Но после обновления до оффис16, она перестала работать, пишет ошибку, иногда выделяет строку с "SQL = SELECT", иногда ".edit"

    "

    Private Sub Кнопка5_Click()
     
      Dim rst As Recordset
      Dim SQL As String
      Dim counter As Integer
     
      SQL = "SELECT * FROM list Where data = #" & Format(Forms.main!Дата, "yyyy-mm-dd") & "#" & "ORDER BY List.id"
      Set rst = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
     
      If rst.RecordCount = 0 Then
        MsgBox ("Нет подходящих записей. Возможно, установлена неверная дата.")
        End
      End If
     
     rst.MoveFirst
     counter = 0
     Do While Not rst.EOF
        counter = counter + 1
            With rst
                .Edit
                !num = counter
                .Update
            End With
     rst.MoveNext
     Loop
     
      MsgBox ("Номера коробок пересчитаны.")
     
    End Sub
    "

    2 февраля 2018 г. 12:59