在新输入存在之前，如何向行添加输入？

Question

如何更改12和13以填充'ARCH'和14至36以填写'ENVD'？这继续有超过4000个主题，10000行随机变化。我怎么能告诉ms访问者在看到一组新的字母之前写一些字母，然后写出那些直到它看到一个新的字母？

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

End Sub