我创建了一个表单,其中1个客户可以在数据库中多次存储我还创建了一个'查找下一个'按钮工作正常但当我在表单中进行更改并单击更新按钮时,数据会在客户端更新,该客户首先在数据库中找到,而不是我想要更新的客户。下面是更新按钮的代码。
Private Sub Command106_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim pn As Long
Set db = CurrentDb()
Set rs = db.OpenRecordset("Application", dbOpenDynaset)
pn = Me.Text85.Value
rs.FindFirst "[Cus_Number] = " & pn
rs.Edit
rs.Fields("Dec_level1").Value = Me.Dec_level1
rs.Fields("Dec_level2").Value = Me.Dec_level2
rs.Fields("Dec_level3").Value = Me.Dec_level3
rs.Fields("Date1").Value = Me.Date1
rs.Fields("Date2").Value = Me.Date2
rs.Fields("Date3").Value = Me.Date3
rs.Fields("Com_level1").Value = Me.Com_level1
rs.Fields("Com_level2").Value = Me.Com_level2
rs.Fields("Com_level3").Value = Me.Com_level3
rs.Update
Me.App_level1 = Null
Me.Dec_level1 = Null
Me.Com_level1 = Null
Me.App_level2 = Null
Me.Dec_level2 = Null
Me.Com_level2 = Null
Me.App_level3 = Null
Me.Dec_level3 = Null
Me.Com_level3 = Null
Me.Date1 = Null
Me.Date2 = Null
Me.Date3 = Null
Me.Text85 = Null
End Sub
答案 0 :(得分:0)
FindFirst
方法始终从可用记录中找到第一个匹配记录,即使数据库中存在重复记录也是如此。
您正在使用Cus_Number
字段进行搜索,这是唯一/主要字段还是可以有重复记录?
如果有重复记录,则尝试使用数据库中唯一/主要记录进行搜索。