[求助］修改代码，高手帮忙看看记录为何不会更新

antywjl

同下

[此贴子已经被作者于2006-5-17 16:44:22编辑过]

antywjl

Private Sub 修改_Click()
On Error GoTo Err_修改_Click

    Dim i As Integer
    Dim STemp As String
    Dim Rs As ADODB.Recordset
    Set Rs = New ADODB.Recordset
      STemp = "Select * from 企业"
      Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
      If IsNull(Me![网点编号]) = True Then
      MsgBox "请输入'网点编号',它不可以为空!", vbOKOnly, "输入'网点编号'"
      Me![网点编号].SetFocus
      Exit Sub
      ElseIf IsNull(Me![客户经理编号]) = True Then
      MsgBox "请输入'客户经理编号',它不可以为空!", vbOKOnly, "输入'客户经理编号'"
      Me![客户经理编号].SetFocus
      Exit Sub
      ElseIf IsNull(Me![名称]) = True Then
      MsgBox "请输入'名称',它不可以为空!", vbOKOnly, "输入'名称'"
      Me![名称].SetFocus
      Exit Sub
      ElseIf IsNull(Me![客户号]) = True Then
      MsgBox "请输入'客户号',它不可以为空!", vbOKOnly, "输入'客户号'"
      Me![客户号].SetFocus
      Exit Sub
      ElseIf IsNull(Me![法人代码]) = True Then
      MsgBox "请输入'法人代码',它不可以为空!", vbOKOnly, "输入'法人代码'"
      Me![法人代码].SetFocus
      Exit Sub
      ElseIf IsNull(Me![帐号]) = True Then
      MsgBox "请输入'帐号',它不可以为空!", vbOKOnly, "输入'帐号'"
      Me![帐号].SetFocus
      Exit Sub
       ElseIf IsNull(Me![优惠系数]) = True Then
      MsgBox "请输入'帐号',它不可以为空!", vbOKOnly, "输入'优惠系数'"
      Me![优惠系数].SetFocus
      Exit Sub
      Else
      If Rs.RecordCount < 1 Then
        Exit Sub
        End If
        Rs.MoveFirst
        For i = 1 To Rs.RecordCount
         If Rs("帐号") = Me![企业资料 子窗体]![帐号] Then
             Rs("网点编号") = Me![企业资料 子窗体]![网点编号]
             Rs("客户经理编号") = Me![企业资料 子窗体]![客户经理编号]
             Rs("名称") = Me![企业资料 子窗体]![名称]
             Rs("客户号") = Me![企业资料 子窗体]![客户号]
             Rs("法人代码") = Me![企业资料 子窗体]![法人代码]
             Rs("优惠系数") = Me![企业资料 子窗体]![优惠系数]
             Rs.Update
             Me![企业资料 子窗体].Requery
             MsgBox "档案已经修改完成!", vbOKOnly, "修改完成"
             Exit Sub
            
            Else
            Rs.MoveNext
            End If
            Next i
            End If
            Set Rs = Nothing
Exit_修改_Click:
            Set Rs = Nothing
            Exit Sub
Err_修改_Click:
            MsgBox Err.Description
            Resume Exit_修改_Click
            
End Sub
修改后为何不会把新的记录保存？？

eyewitnes

空格在哪?怎么没有看到空格?

antywjl

需要什么空格呢

eyewitnes

STemp = STemp & " VAlUES ('" & Me![名称] & "','" & Me![客户号] & "','" & Me![法人代码] & "','" & Me![帐号] & "')"

antywjl

那个问题解决了，谢谢！

Err_保存_Click:

    MsgBox Err.Description
    Resume Exit_保存_Click

这个代码怎么会出现“标签未定义”

LucasLynn

以下是引用antywjl在2006-5-17 15:00:00的发言：


那个问题解决了，谢谢！

Err_保存_Click:

    MsgBox Err.Description
    Resume Exit_保存_Click

这个代码怎么会出现“标签未定义”

名称不一致，粗心大意。

antywjl

“保存”按纽没有出现标签不一致啊，是里面的代码不一致吗？

antywjl

为什么我修改后记录不会更新，能帮我看看修改的代码哪出错了吗？

LucasLynn

以下是引用antywjl在2006-5-17 16:41:00的发言：


为什么我修改后记录不会更新，能帮我看看修改的代码哪出错了吗？

把你的库传上来，我们不可能自己来建数据环境帮你测试。