如何在行中添加輸入直到存在新的輸入？

Question

如何更改12和13「拱」和14到36「envd將」填補填補？隨着超過4000個主題的發展，10000個行隨機變化。我怎麼能告訴女士在看到一套新的字母之前先寫一些字母，然後寫下來，直到看到一個新的字母爲止？

Answer 1

如果您有一個自動編號字段，它可以做得更簡單。現在我假設你沒有AutoNumber字段，並且一次只讀一條記錄。

您必須將tblname更改爲實際的表名上線8

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 

末次