ms-access - 新しい入力が存在するまで行に入力を追加するにはどうすればよいですか?

Question

12 と 13 を変更して「ARCH」を入力し、14 から 36 を変更して「ENVD」を入力するにはどうすればよいですか? これは 4000 を超える被験者で続き、10000 行がランダムに変化します。新しいセットの文字が表示されるまでいくつかの文字を書き込み、新しいセットが表示されるまでそれらを書き込むように ms アクセスに指示するにはどうすればよいですか?

Answer 1

自動番号フィールドがある場合は、より簡単に実行できます。今のところ、AutoNumberフィールドがなく、一度に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

サブ終了