保存修改时会提示“数据已被更改…………”

bbsliu

文档如附件。
当基数修改第二次时会提示“数据已被更改…………”。如图。

请问这个问题如何解决？？谢谢。

bbsliu

Henry D. Sy 发表于 2012-3-18 13:12
将代码改成这样也许更简单些！

多谢版主，学习了。

Henry D. Sy

bbsliu 发表于 2012-3-18 13:01
因为是做给别人用的，当别人看到提示，以为是出现什么状况了。
1.我想知道为什么第一次修改的时候没有提示 ...

主窗体没有必要绑定数据源！这是多余的。也是提示出现的原因！

bbsliu

问题解决。
多谢。

Henry D. Sy

将代码改成这样也许更简单些！

1. Private Sub csave_Click()
   
2.     Dim rsjs As New ADODB.Recordset
   
3.     rsjs.Open "基数", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
4.     If IsNull(Me.基数) Then
   
5.         MsgBox "基数为空，请输入。", vbOKOnly, "Tips"
   
6.         Me.基数.SetFocus
   
7.         Exit Sub
   
8.     End If
   
9.     If rsjs.RecordCount <= 0 Then
   
10.         rsjs.AddNew
    
11.     End If
    
12.     rsjs("基数") = Me.基数
    
13.     rsjs.Update
    
14.     Set rsjs = Nothing
    
15.     Me.基数 = Null
    
16.     Me.基数查询子窗体.Requery
    
17. End Sub

复制代码

Henry D. Sy

bbsliu

因为是做给别人用的，当别人看到提示，以为是出现什么状况了。
1.我想知道为什么第一次修改的时候没有提示，而第二次修改就有提示？
2.如何做，不会出现这种让人奇怪的提示？因为用的人会排斥啊。

多谢啊。

Henry D. Sy

你要达到什么目的？