请问如何同时在表中查询窗体上的两项数据是否同时存在于表中，如存在则覆盖之前数据，如不存在则写入数据

孙鹏　发表于：2018-12-28 23:12:37 　

access 建立了人员信息表、人员业绩表，人员信息表中包含姓名、员工的编号，在人员业绩表中包含日期列、员工的编号列、A产品销售量列、B产品销售量列，现建立登记窗体进行业绩登记，想请问我想实现编号为001的员工，在录入2018年12月29日A产品销售业绩及B产品销售业绩后提交保存到表中后发现录入错误，再次录入，点击提交后，在人员业绩表中自动搜索编号为001的员工2018年12月29日销售业绩是否已经登记如存在记录则覆盖之前录入的数据，如不存在进行数据写入，请问代码怎么写，实在是不会做了。

Top

伊西军发表于：2018-12-29 14:15:46

Dcount可以统计满足条件的数据然后根据Dcount的结果决定是执行新增的代码还是执行编辑的代码

http://www.accessoft.com/article-show.asp?id=16572

Top

孙鹏发表于：2018-12-29 22:40:33

请问下我现在查询到数据的存在了但是编辑代码执行不过去啊，麻烦版主帮忙看下不胜感激。

Dim a As Integer

a = DCount("*", "房金条线", "员工编号 = '" & Me.员工编号 & "'and 日期=#" & Me.日期 & "#")

If a > 0 Then

Dim rst As DAO.Recordset
    Dim strSQL1 As String
    Dim strID As String
    Dim strid1 As String
    strID = Me.员工编号
    strid1 = Me.日期
    strSQL1 = "select * from 业绩表 where 员工编号='" & strID & "'and 日期='" & strid1 & "'"
    Set rst = CurrentDb.OpenRecordset(strSQL1, dbOpenDynaset)
    rst.MoveFirst
    rst.Edit
    rst!日期 = Me.日期
    rst!产品A = Me.Text2
    rst!产品B = Me.Text4
    rst!产品C = Me.Text6
    rst!产品D = Me.Text8
     rst!产品E = Me.Text10
    rst.Update
    rst.Close
    Set rst = Nothing
    Forms(frm_业绩表).Requery
    '修改数据后，关闭窗体
    DoCmd.Close acForm, "frm_业绩表"