希望用查询实现！！！

liuyinhe

希望把表1里的6位号码分别替换到CDEFGH字段里

tmtony

UPDATE 表1 SET 表1.C = Mid("号码",1,1), 表1.D = Mid("号码",2,1), 表1.E = Mid("号码",3,1), 表1.F = Mid("号码",4,1), 表1.G = Mid("号码",5,1), 表1.G = Mid("号码",6,1);

zyz218

多此一举一下，呵呵
Dim STemp As String
STemp="UPDATE 表1 SET 表1.C = Mid("号码",1,1), 表1.D = Mid("号码",2,1), 表1.E = Mid("号码",3,1), 表1.F = Mid("号码",4,1), 表1.G = Mid("号码",5,1), 表1.G = Mid("号码",6,1)"
DoCmd.RunSQL STemp

liuyinhe

谢谢楼上的两位，我试着写进去了，不行。希望你们把语句写进例子里。。谢谢了！！等着急用。

zyz218

在按钮单击事件中执行吧

tmtony

zyz218

Private Sub Command1_Click()
Dim STemp As String
    STemp = "UPDATE 表1 SET C = Mid(号码,1,1), D = Mid(号码,2,1), E = Mid(号码,3,1), F = Mid(号码,4,1), G = Mid(号码,5,1), H = Mid(号码,6,1)"
    DoCmd.RunSQL STemp
End Sub

zyz218

呵呵，站长用查询，直接在事件中用语可以少个查询。

liuyinhe

忙晕了，发错了例子，希望两位老大在帮我看看。。。

达到表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