Microsoft Access 掲示板

コードはこちらです。

Funcion keyBreak()

  Dim rs As DAO.Recordset
  Dim PreNo As Long
  Dim strSQL As String

  strSQL = "select * from Mtbl_社員 ORDER BY No"

  Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset, dbFailOnError)

  cnt = 0

  Do Until rs.EOF

    If PreNo = rs!No Then

      cnt = cnt + 1

    Else

      If cnt = 1 Then

        rs.MovePrevious

          rs.Delete

        rs.MoveNext

      End If

      PreNo = rs!No

      cnt = 1

    End If

    rs.MoveNext

  Loop

  rs.Close
  Set rs = Nothing

End Function