pyOpenVBA 5.1.2__tar.gz → 5.2.0__tar.gz

{pyopenvba-5.1.2 → pyopenvba-5.2.0}/PKG-INFO

@@ -1,6 +1,6 @@
 Metadata-Version: 2.5
 Name: pyOpenVBA
-Version: 5.1.2
+Version: 5.2.0
 Summary: Read and write VBA macros and Excel Power Query in pure Python, no dependencies.
 Project-URL: Homepage, https://github.com/WilliamSmithEdward/pyOpenVBA
 Project-URL: Repository, https://github.com/WilliamSmithEdward/pyOpenVBA
@@ -385,10 +385,15 @@ with AccessDatabase("app.accdb") as db:
 
     report = db.add_report("Monthly")
     report.add_control("Label", "Banner", section="PageHeaderSection", caption="Header band")
+    db.rename_form("Draft", "Invoice")
     db.delete_form("Old")
     db.save()
 ```
 
+Renaming and deleting reach the code behind a design as well as the
+design itself. A form's module is bound to it by name, so `Form_Draft`
+becomes `Form_Invoice` and a deleted form takes its module with it.
+
 [examples/access_form_demo.py](https://github.com/WilliamSmithEdward/pyOpenVBA/blob/main/examples/access_form_demo.py)
 builds a working order calculator this way: a form whose buttons call a
 standard module and keep their running total in a class module, laid out

{pyopenvba-5.1.2 → pyopenvba-5.2.0}/README.md

@@ -349,10 +349,15 @@ with AccessDatabase("app.accdb") as db:
 
     report = db.add_report("Monthly")
     report.add_control("Label", "Banner", section="PageHeaderSection", caption="Header band")
+    db.rename_form("Draft", "Invoice")
     db.delete_form("Old")
     db.save()
 ```
 
+Renaming and deleting reach the code behind a design as well as the
+design itself. A form's module is bound to it by name, so `Form_Draft`
+becomes `Form_Invoice` and a deleted form takes its module with it.
+
 [examples/access_form_demo.py](https://github.com/WilliamSmithEdward/pyOpenVBA/blob/main/examples/access_form_demo.py)
 builds a working order calculator this way: a form whose buttons call a
 standard module and keep their running total in a class module, laid out

{pyopenvba-5.1.2 → pyopenvba-5.2.0}/pyproject.toml

@@ -4,7 +4,7 @@ build-backend = "hatchling.build"
 
 [project]
 name = "pyOpenVBA"
-version = "5.1.2"
+version = "5.2.0"
 description = "Read and write VBA macros and Excel Power Query in pure Python, no dependencies."
 readme = "README.md"
 license = { text = "MIT" }

{pyopenvba-5.1.2 → pyopenvba-5.2.0}/src/pyopenvba/__init__.py

@@ -291,4 +291,4 @@ def push_power_query(
     """
     return _push_queries(src_dir, workbook, out=out, encoding=encoding, remove_missing=remove_missing)
 
-__version__ = "5.1.2"
+__version__ = "5.2.0"

{pyopenvba-5.1.2 → pyopenvba-5.2.0}/src/pyopenvba/access/_index.py

@@ -58,7 +58,7 @@ from pyopenvba.access._pages import (
     PAGE_SIZE,
     PageStore,
 )
-from pyopenvba.access._rows import decode_datetime
+from pyopenvba.access._rows import decode_datetime, scaled_decimal, scaled_int
 from pyopenvba.access._tdef import (
     TYPE_BIGINT,
     TYPE_BINARY,
@@ -463,7 +463,10 @@ def _encode_value(column: ColumnDef, value: object) -> bytes:
     if code == TYPE_NUMERIC:
         if not isinstance(value, (int, Decimal)):
             raise AccessError(f"column {column.name!r}: {value!r} is not a Decimal")
-        scaled = int(Decimal(value).scaleb(column.scale))
+        # Through ``scaled_int``, so the key rounds a fractional value the
+        # way the row encoder does and carries a 29-digit one without the
+        # default context rounding it (GitHub issue #20).
+        scaled = scaled_int(Decimal(value), column.scale)
         magnitude = abs(scaled).to_bytes(16, "big")
         return b"\xff" + magnitude if scaled >= 0 else b"\x00" + _invert(magnitude)
     if code == TYPE_GUID:
@@ -510,5 +513,5 @@ def _decode_fixed(column: ColumnDef, raw: bytes) -> object:
             value = -Decimal(int.from_bytes(_invert(magnitude), "big"))
         else:
             raise AccessError(f"column {column.name!r}: Decimal key sign byte {sign:#04x}")
-        return value.scaleb(-column.scale)
+        return scaled_decimal(value, -column.scale)
     raise AccessError(f"column {column.name!r}: no fixed key codec for {column.type_name}")

{pyopenvba-5.1.2 → pyopenvba-5.2.0}/src/pyopenvba/access/_rows.py

@@ -23,7 +23,7 @@ import datetime as _dt
 import struct
 import uuid
 from dataclasses import dataclass
-from decimal import ROUND_HALF_EVEN, Decimal
+from decimal import ROUND_HALF_EVEN, Decimal, localcontext
 
 from pyopenvba.access_read import AccessError
 from pyopenvba.access._tdef import (
@@ -203,6 +203,33 @@ def encode_datetime(value: _dt.datetime) -> bytes:
     return struct.pack("<d", number)
 
 
+#: A Decimal column is a 16-byte magnitude, so a value carries up to 39
+#: digits, while Python's default arithmetic context rounds at 28.  Every
+#: Decimal conversion here and in the index key codec runs at this
+#: precision instead: scaling ``2**96 - 1`` through the default context
+#: returns it five too high, which puts a key out of step with the row it
+#: points at (GitHub issue #20).
+DECIMAL_PREC = 64
+
+
+def scaled_decimal(value: Decimal | int, scale: int) -> Decimal:
+    """``value`` shifted by ``10 ** scale``, with no context rounding."""
+    with localcontext() as ctx:
+        ctx.prec = DECIMAL_PREC
+        return Decimal(value).scaleb(scale)
+
+
+def scaled_int(value: Decimal, scale: int) -> int:
+    """``value`` shifted by ``10 ** scale`` and rounded to an integer.
+
+    Half-even, as Access rounds, and at a precision no Decimal a column
+    can hold will overflow.
+    """
+    with localcontext() as ctx:
+        ctx.prec = DECIMAL_PREC
+        return int(Decimal(value).scaleb(scale).to_integral_value())
+
+
 def decode_numeric(raw: bytes, scale: int) -> Decimal:
     if len(raw) != 17:
         raise AccessError(f"Decimal value is {len(raw)} bytes, not 17")
@@ -211,12 +238,12 @@ def decode_numeric(raw: bytes, scale: int) -> Decimal:
     magnitude = 0
     for word in words:
         magnitude = (magnitude << 32) | word
-    value = Decimal(magnitude).scaleb(-scale)
+    value = scaled_decimal(magnitude, -scale)
     return -value if negative else value
 
 
 def encode_numeric(value: Decimal, scale: int) -> bytes:
-    scaled = int((value.copy_abs() * (Decimal(10) ** scale)).to_integral_value())
+    scaled = scaled_int(value.copy_abs(), scale)
     if scaled >= 1 << 128:
         raise AccessError("Decimal value does not fit 16 bytes")
     words = [(scaled >> shift) & 0xFFFFFFFF for shift in (96, 64, 32, 0)]

{pyopenvba-5.1.2 → pyopenvba-5.2.0}/src/pyopenvba/access/_vba.py

@@ -368,6 +368,12 @@ def rename_attribute(text: str, old: str, new: str) -> str:
 
 
 # --- PROJECTwm and PROJECT --------------------------------------------------
+#: How PROJECT names the module behind a form or report: the keyword, the
+#: module's name, a slash, and a flag word Access owns.  A design's module
+#: is listed this way and never as ``Module=`` or ``Class=``.
+DOC_CLASS = "DocClass"
+#: The three keywords that open the module block.
+MODULE_KEYWORDS = ("Module=", "Class=", DOC_CLASS + "=")
 
 
 def project_wm_entry(name: str, encoding: str) -> bytes:
@@ -395,34 +401,56 @@ def rename_project_wm(payload: bytes, old: str, new: str, encoding: str) -> byte
 def add_to_project(text: str, name: str, kind: str) -> str:
     """Access lists a standard module as ``Module=`` and a class as
     ``Class=``, both in the same block, and gives each a window rectangle
-    under ``[Workspace]``."""
+    under ``[Workspace]``.
+
+    The block can be empty -- delete a project's last module and there is
+    no line to sit after -- and Access opens it right below the ``ID=``
+    line, which is where the first one goes.
+    """
     lines = text.split(CRLF)
-    last = max(i for i, line in enumerate(lines) if line.startswith(("Module=", "Class=")))
-    lines.insert(last + 1, ("Class=" if kind == "class" else "Module=") + name)
+    entry = ("Class=" if kind == "class" else "Module=") + name
+    listed = [i for i, line in enumerate(lines) if line.startswith(MODULE_KEYWORDS)]
+    if listed:
+        lines.insert(max(listed) + 1, entry)
+    else:
+        opener = next((i for i, line in enumerate(lines) if line.startswith("ID=")), -1)
+        lines.insert(opener + 1, entry)
     if any(line.strip() == "[Workspace]" for line in lines):
         lines.insert(len(lines) - 1, f"{name}=38, 38, 1786, 1030, ")
     return CRLF.join(lines)
 
 
 def remove_from_project(text: str, name: str) -> str:
+    """Every line naming a module: its ``Module=``, ``Class=`` or
+    ``DocClass=`` line, and its ``[Workspace]`` rectangle."""
     lines = [
         line
         for line in text.split(CRLF)
         if line not in (f"Module={name}", f"Class={name}")
+        and not line.startswith(f"{DOC_CLASS}={name}/")
         and not re.match(re.escape(name) + "=", line)
     ]
     return CRLF.join(lines)
 
 
 def rename_project(text: str, old: str, new: str) -> str:
-    """The ``Module=``/``Class=`` line and the ``[Workspace]`` line.  The
-    stream's lines end CR LF, so the end anchor has to allow the CR."""
+    """The ``Module=``, ``Class=`` or ``DocClass=`` line and the
+    ``[Workspace]`` line.  The stream's lines end CR LF, so the end anchor
+    has to allow the CR.
+
+    A design's module is listed only as ``DocClass=<name>/<flags>``, never
+    as ``Module=`` or ``Class=``.  Renaming without reaching it leaves a
+    DocClass naming a module the project no longer has, which Access
+    reports as a corrupt project on the first VBE reference (GitHub issue
+    #21).  The flag word after the slash is Access's, so the match stops
+    at it and it is carried through.
+    """
+    quoted = re.escape(old)
     tail = "(?=" + chr(92) + "r?$)"
     for keyword in ("Module", "Class"):
-        text = re.sub(
-            "(?m)^" + keyword + "=" + re.escape(old) + tail, keyword + "=" + new, text
-        )
-    return re.sub("(?m)^" + re.escape(old) + "=", new + "=", text)
+        text = re.sub("(?m)^" + keyword + "=" + quoted + tail, keyword + "=" + new, text)
+    text = re.sub("(?m)^" + DOC_CLASS + "=" + quoted + "(?=/)", DOC_CLASS + "=" + new, text)
+    return re.sub("(?m)^" + quoted + "=", new + "=", text)
 
 
 # --- the folder list ---------------------------------------------------------
@@ -476,22 +504,24 @@ def document_attributes(name: str, clsid: str) -> list[str]:
 def add_to_project_documents(text: str, name: str) -> str:
     """A `DocClass=` line, and a window rectangle under `[Workspace]`."""
     lines = text.split(CRLF)
-    last = max(
-        i
-        for i, line in enumerate(lines)
-        if line.startswith(("Module=", "Class=", "DocClass="))
-    )
-    lines.insert(last + 1, f"DocClass={name}{DOC_CLASS_SUFFIX}")
+    last = max(i for i, line in enumerate(lines) if line.startswith(MODULE_KEYWORDS))
+    lines.insert(last + 1, f"{DOC_CLASS}={name}{DOC_CLASS_SUFFIX}")
     if any(line.strip() == "[Workspace]" for line in lines):
         lines.insert(len(lines) - 1, f"{name}={DOC_WORKSPACE}")
     return CRLF.join(lines)
 
 
 def remove_from_project_documents(text: str, name: str) -> str:
+    """A document module's ``DocClass=`` line and its workspace rectangle.
+
+    Matched on the prefix, because the flag word after the slash and the
+    rectangle are Access's and a database it has edited need not carry the
+    ones written here.
+    """
     return CRLF.join(
         line
         for line in text.split(CRLF)
-        if line != f"DocClass={name}{DOC_CLASS_SUFFIX}" and line != f"{name}={DOC_WORKSPACE}"
+        if not line.startswith(f"{DOC_CLASS}={name}/") and not line.startswith(f"{name}=")
     )
 
 

{pyopenvba-5.1.2 → pyopenvba-5.2.0}/src/pyopenvba/access/database.py

@@ -2641,6 +2641,43 @@ class AccessDatabase:
         footer sections."""
         return AccessForm(self, self._create_design("report", name, updated=updated))
 
+    def _list_in_container(
+        self, container: int, name: str, folder: str, when: dt.datetime | float
+    ) -> None:
+        """Name an object in its container's listing and claim its folder
+        in the container's folder list, creating either stream when the
+        container has none yet.
+
+        A container that has never held an object carries neither, so a
+        module added to a project with none went unlisted, and Access
+        showed nothing under `AllModules` for a module its VBE still
+        listed (GitHub issue #21).
+        """
+        storage = self.table(STORAGE_TABLE)
+        adders: tuple[tuple[str, Callable[[bytes], bytes]], ...] = (
+            (DIR_DATA, lambda payload: add_to_dir_data(payload, name, folder)),
+            ("PropData", lambda payload: add_to_folder_list(payload, folder)),
+        )
+        for stream, add in adders:
+            found = next(
+                (
+                    (rid, row.get("Lv"))
+                    for rid, row in storage.rows_with_ids()
+                    if _as_int(row["ParentId"]) == container and str(row["Name"]) == stream
+                ),
+                None,
+            )
+            if found is None:
+                storage.insert_row(
+                    {"ParentId": container, "Name": stream, "Type": TYPE_VALUE,
+                     "Lv": add(bytes(4)), "DateCreate": when, "DateUpdate": when}
+                )
+            else:
+                rid, payload = found
+                storage.update_row(
+                    rid, {"Lv": add(payload if isinstance(payload, bytes) else bytes(4))}
+                )
+
     def _create_design(self, kind: str, name: str, *, updated: object | None) -> AccessDesign:
         """The design itself comes from a captured template -- an empty one
         as Access writes it -- with a GUID of its own patched in, since the
@@ -2686,29 +2723,7 @@ class AccessDatabase:
                 values["Lv"] = payload
             storage.insert_row(values)
 
-        adders: tuple[tuple[str, Callable[[bytes], bytes]], ...] = (
-            (DIR_DATA, lambda payload: add_to_dir_data(payload, name, folder)),
-            ("PropData", lambda payload: add_to_folder_list(payload, folder)),
-        )
-        for stream, add in adders:
-            found = next(
-                (
-                    (rid, row.get("Lv"))
-                    for rid, row in storage.rows_with_ids()
-                    if _as_int(row["ParentId"]) == container and str(row["Name"]) == stream
-                ),
-                None,
-            )
-            if found is None:
-                storage.insert_row(
-                    {"ParentId": container, "Name": stream, "Type": TYPE_VALUE,
-                     "Lv": add(bytes(4)), "DateCreate": when, "DateUpdate": when}
-                )
-            else:
-                rid, payload = found
-                storage.update_row(
-                    rid, {"Lv": add(payload if isinstance(payload, bytes) else bytes(4))}
-                )
+        self._list_in_container(container, name, folder, when)
 
         objects = self.table("MSysObjects")
         parent = next(e.id for e in self.catalog() if e.name == CATALOG_CONTAINERS[kind] and e.type == 3)
@@ -2988,6 +3003,99 @@ class AccessDatabase:
         return self.module(name)
 
 
+    def _delete_module_streams(self, module: VBAModule) -> None:
+        """Take a module out of the VBA project alone: its stream row, its
+        dir block, its PROJECTwm entry, and whichever line of PROJECT
+        names it.
+
+        The Modules container is deliberately untouched, because the code
+        behind a form or report is listed in neither container: the
+        project carries `Form_Calculator` while the Forms listing carries
+        `Calculator`.
+        """
+        storage = self.table(STORAGE_TABLE)
+        encoding = encoding_of(self._vba_dir()[1])
+        _modules, project_id, streams_id = self._vba_storage_ids()
+        for rid, row in list(storage.rows_with_ids()):
+            value = row.get("Lv")
+            row_name, parent = str(row["Name"]), _as_int(row["ParentId"])
+            if parent == streams_id and row_name == module.stream_name:
+                storage.delete_row(rid, retire_empty=False)
+                continue
+            if not isinstance(value, bytes) or not value:
+                continue
+            if row_name == "dir":
+                storage.update_row(
+                    rid, {"Lv": compress(remove_from_dir(decompress(value), module.name))}
+                )
+            elif row_name == "_VBA_PROJECT":
+                storage.update_row(rid, {"Lv": invalidate_cache(value)})
+            elif row_name == "PROJECTwm" and parent == project_id:
+                storage.update_row(rid, {"Lv": remove_from_project_wm(value, module.name, encoding)})
+            elif row_name == "PROJECT" and parent == project_id:
+                text = value.decode(encoding, errors="replace")
+                fixed = remove_from_project(text, module.name)
+                if fixed != text:
+                    storage.update_row(rid, {"Lv": encode_mbcs(fixed, encoding)})
+        self._drop_srp()
+
+    def _design_module(self, kind: str, name: str) -> VBAModule | None:
+        """The module behind a design, if Access ever opened a code window
+        for it.  A design that has none simply has no such module."""
+        wanted = self.DESIGN_MODULE_PREFIX[kind] + name
+        return next(
+            (module for module in self.modules() if module.name.lower() == wanted.lower()),
+            None,
+        )
+
+    def rename_form(self, name: str, new_name: str) -> None:
+        """Rename a form everywhere its name lives."""
+        self._rename_design("form", name, new_name)
+
+    def rename_report(self, name: str, new_name: str) -> None:
+        """Rename a report everywhere its name lives."""
+        self._rename_design("report", name, new_name)
+
+    def _rename_design(self, kind: str, name: str, new_name: str) -> None:
+        """A design's name lives in four places: its container's listing,
+        its catalog row, its navigation-pane row, and the module behind
+        it, which Access binds by name as `Form_<name>` or
+        `Report_<name>`.
+
+        A design Access has never opened a code window for has no module,
+        and then there are three.  The module is the part with the sharp
+        edge: `PROJECT` names it only as a `DocClass=` line, and leaving
+        that naming a module the project no longer has makes Access report
+        the whole project as corrupt on the first VBE reference (GitHub
+        issue #21).
+        """
+        if not new_name or len(new_name) > 64:
+            raise AccessError(f"a {kind} name is 1 to 64 characters")
+        found = self._design(kind, name)
+        if new_name.lower() != found.name.lower() and any(
+            other.name.lower() == new_name.lower() for other in self._designs(kind)
+        ):
+            raise AccessError(f"a {kind} named {new_name!r} already exists")
+
+        module = self._design_module(kind, found.name)
+        if module is not None:
+            self._rename_module_streams(module, self.DESIGN_MODULE_PREFIX[kind] + new_name)
+
+        container = self._design_container(kind)
+        storage = self.table(STORAGE_TABLE)
+        for rid, row in list(storage.rows_with_ids()):
+            value = row.get("Lv")
+            if (
+                isinstance(value, bytes)
+                and value
+                and str(row["Name"]) == DIR_DATA
+                and _as_int(row["ParentId"]) == container
+            ):
+                storage.update_row(rid, {"Lv": rename_dir_data(value, found.name, new_name)})
+        self._rename_catalog_rows(found.name, new_name, OBJECT_TYPES[kind])
+        self.forget_catalog()
+        self._drop_srp()
+
     def delete_form(self, name: str) -> None:
         """Remove a form and every structure it occupies."""
         self._delete_design("form", name)
@@ -2998,6 +3106,13 @@ class AccessDatabase:
 
     def _delete_design(self, kind: str, name: str) -> None:
         found = self._design(kind, name)
+        # The module behind it goes too, or the project is left naming a
+        # DocClass whose design is gone, which Access reads as corrupt
+        # (GitHub issue #21).  It has to go first, while the design is
+        # still there to name it.
+        module = self._design_module(kind, found.name)
+        if module is not None:
+            self._delete_module_streams(module)
         container = self._design_container(kind)
         storage = self.table(STORAGE_TABLE)
         listing_rid, listing_payload = next(
@@ -4031,12 +4146,6 @@ class AccessDatabase:
             row_name, parent = str(row["Name"]), _as_int(row["ParentId"])
             if row_name == "_VBA_PROJECT":
                 storage.update_row(rid, {"Lv": invalidate_cache(payload)})
-            elif row_name == "\x03DirData" and parent == modules_id:
-                # The four bytes an entry ends with name the object's
-                # storage folder, not a terminator.
-                storage.update_row(rid, {"Lv": add_to_dir_data(payload, name, folder)})
-            elif row_name == "PropData" and parent == modules_id:
-                storage.update_row(rid, {"Lv": add_to_folder_list(payload, folder)})
             elif row_name == "PROJECTwm" and parent == project_id:
                 storage.update_row(rid, {"Lv": add_to_project_wm(payload, name, encoding)})
             elif row_name == "PROJECT" and parent == project_id:
@@ -4051,6 +4160,9 @@ class AccessDatabase:
                         )
                     },
                 )
+        # The four bytes an entry ends with name the object's storage
+        # folder, not a terminator.
+        self._list_in_container(modules_id, name, folder, when)
         storage.update_row(
             dir_rid,
             {"Lv": compress(add_to_dir(dir_stream, dir_block(name, stream_name, cookie, kind, encoding)))},
@@ -4098,16 +4210,16 @@ class AccessDatabase:
         self._invalidate_vba_cache()
         self._drop_srp()
 
-    def rename_module(self, name: str, new_name: str) -> None:
-        """Rename a module in all eight places its name lives."""
-        if not new_name or len(new_name) > 64:
-            raise AccessError("a module name is 1 to 64 characters")
-        module = self.module(name)
-        if new_name.lower() != name.lower() and any(
-            other.name.lower() == new_name.lower() for other in self.modules()
-        ):
-            raise AccessError(f"a module named {new_name!r} already exists")
+    def _rename_module_streams(self, module: VBAModule, new_name: str) -> None:
+        """Rename a module wherever the VBA project itself names it: the
+        two dir records, the module's own `Attribute VB_Name`, PROJECT and
+        PROJECTwm.
 
+        The Modules listing is deliberately left alone here, because the
+        code behind a form or report appears in neither container listing:
+        the project carries `Form_Calculator` while the Forms listing
+        carries `Calculator`.
+        """
         storage = self.table(STORAGE_TABLE)
         dir_rid, dir_stream = self._vba_dir()
         encoding = encoding_of(dir_stream)
@@ -4120,7 +4232,7 @@ class AccessDatabase:
         stream = set_module_offset(rename_in_dir(dir_stream, module.name, new_name), new_name, 0)
         storage.update_row(dir_rid, {"Lv": compress(stream)})
 
-        modules_id, project_id, _streams = self._vba_storage_ids()
+        _modules, project_id, _streams = self._vba_storage_ids()
         for row_rid, row in list(storage.rows_with_ids()):
             value = row.get("Lv")
             if not isinstance(value, bytes) or not value:
@@ -4128,8 +4240,6 @@ class AccessDatabase:
             row_name, parent = str(row["Name"]), _as_int(row["ParentId"])
             if row_name == "_VBA_PROJECT":
                 storage.update_row(row_rid, {"Lv": invalidate_cache(value)})
-            elif row_name == "\x03DirData" and parent == modules_id:
-                storage.update_row(row_rid, {"Lv": rename_dir_data(value, module.name, new_name)})
             elif row_name == "PROJECTwm" and parent == project_id:
                 storage.update_row(
                     row_rid, {"Lv": rename_project_wm(value, module.name, new_name, encoding)}
@@ -4140,40 +4250,83 @@ class AccessDatabase:
                 if fixed != text:
                     storage.update_row(row_rid, {"Lv": encode_mbcs(fixed, encoding)})
 
+    def _rename_catalog_rows(self, old: str, new: str, object_type: int) -> None:
+        """The object's catalog row and its navigation-pane row."""
         objects = self.table("MSysObjects")
         for row_rid, row in objects.rows_with_ids():
-            if row["Type"] == OBJECT_MODULE and str(row["Name"]) == module.name:
-                objects.update_row(row_rid, {"Name": new_name})
+            if row["Type"] == object_type and str(row["Name"]) == old:
+                objects.update_row(row_rid, {"Name": new})
                 break
         nav = self.table("MSysNavPaneObjectIDs")
         for row_rid, row in nav.rows_with_ids():
-            if str(row["Name"]) == module.name:
-                nav.update_row(row_rid, {"Name": new_name})
+            if str(row["Name"]) == old:
+                nav.update_row(row_rid, {"Name": new})
                 break
+
+    def rename_module(self, name: str, new_name: str) -> None:
+        """Rename a module in all eight places its name lives."""
+        if not new_name or len(new_name) > 64:
+            raise AccessError("a module name is 1 to 64 characters")
+        module = self.module(name)
+        if new_name.lower() != name.lower() and any(
+            other.name.lower() == new_name.lower() for other in self.modules()
+        ):
+            raise AccessError(f"a module named {new_name!r} already exists")
+
+        self._rename_module_streams(module, new_name)
+        storage = self.table(STORAGE_TABLE)
+        modules_id = self._vba_storage_ids()[0]
+        for row_rid, row in list(storage.rows_with_ids()):
+            value = row.get("Lv")
+            if (
+                isinstance(value, bytes)
+                and value
+                and str(row["Name"]) == DIR_DATA
+                and _as_int(row["ParentId"]) == modules_id
+            ):
+                storage.update_row(row_rid, {"Lv": rename_dir_data(value, module.name, new_name)})
+        self._rename_catalog_rows(module.name, new_name, OBJECT_MODULE)
         self._drop_srp()
         self._catalog = None
 
     def delete_module(self, name: str) -> None:
         """Remove a module and every structure it occupies."""
         module = self.module(name)
-        index = [m.name for m in self.modules()].index(module.name)
         encoding = encoding_of(self._vba_dir()[1])
         storage = self.table(STORAGE_TABLE)
         modules_id, project_id, streams_id = self._vba_storage_ids()
 
-        # A module's storage folder is linked to it by position, not by
-        # name: deleting the second of three modules, Access dropped the
-        # second folder and left the others named as they were.
-        folders = sorted(
+        # The container's own DirData names each module's storage folder,
+        # the way `_delete_design` reads it.  This used to take the folder
+        # by position among `modules()`, which is dir-stream order and
+        # includes the module behind a form or report.  Those have no
+        # folder here at all, so the two lists were different lengths and
+        # every module after a document one sat a place high: deleting one
+        # took another's folder, or ran off the end (GitHub issue #19).
+        listing = next(
             (
-                (rid, row)
-                for rid, row in storage.rows_with_ids()
-                if _as_int(row["ParentId"]) == modules_id and _as_int(row["Type"]) == 1
+                payload
+                for _rid, row in storage.rows_with_ids()
+                if _as_int(row["ParentId"]) == modules_id
+                and str(row["Name"]) == DIR_DATA
+                and isinstance(payload := row.get("Lv"), bytes)
             ),
-            key=lambda pair: _as_int(pair[1]["Id"]),
+            None,
+        )
+        entries = dict(dir_data_entries(listing)) if listing is not None else {}
+        if module.name not in entries:
+            raise AccessError(
+                f"{module.name!r} is the code behind a form or report, which has no "
+                "storage folder of its own; delete the design instead"
+            )
+        folder_name = entries[module.name]
+        folder_rid, folder_id = next(
+            (rid, _as_int(row["Id"]))
+            for rid, row in storage.rows_with_ids()
+            if _as_int(row["ParentId"]) == modules_id
+            and _as_int(row["Type"]) == TYPE_FOLDER
+            and str(row["Name"]) == folder_name
         )
-        folder_rid, folder_row = folders[index]
-        folder_name, folder_id = str(folder_row["Name"]), _as_int(folder_row["Id"])
         doomed = [folder_rid] + [
             rid for rid, row in storage.rows_with_ids() if _as_int(row["ParentId"]) == folder_id
         ]