ms-access - 如何在存在新输入之前向行添加输入？

Question

如何将 12 和 13 更改为“ARCH”，将 14 更改为 36 以填充“ENVD”？超过 4000 个主题和 10000 行随机变化。我怎样才能告诉 ms access 写一些字母，直到它看到一组新字母，然后写那些直到它看到一组新字母？

Answer 1

如果您有自动编号字段，则可以更简单地完成。现在我假设您没有自动编号字段，并且一次读取一条记录。

您必须在第 8 行将 tblname 更改为您的实际表名

Sub test()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim val As String

Set cn = CurrentProject.Connection
rs.CursorLocation = adUseClient

sql = "SELECT * FROM tblname"
rs.Open sql, cn, adOpenDynamic, adLockOptimistic

With rs
    If Not .EOF Then
        val = !field3
        .MoveNext
        Do
            If !field3 = "" Then
                !field3 = val
                .Update
            Else
                val = !field3
            End If

            .MoveNext
        Loop Until .EOF

    End If

End With

结束子