希望用查询实现！！！

liuyinhe

回复 zyz218 的帖子

谢谢老大。。你的例子没有实现我楼上表2的样子。具体的看我发上来的图片要求。

zyz218

Private Sub Command0_Click()
Dim i As Integer
Dim STemp As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
STemp = "Select * From 表1"
rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 1 To rs.RecordCount
        DoCmd.SetWarnings False
        STemp = "update 表1 set A=left(A,2)&mid(号码,1,6)&right(A,13)"
        DoCmd.RunSQL STemp
    Next i
End Sub

liuyinhe

回复 zyz218 的帖子

很好，很好，谢谢老大