请教：如何在窗体中输入一个新记录时，能否自动检查出是否存在相同纪录，并调出该纪

lyia

我做了一段代码，可老出报错“运行时错误3070，MicroSoft Jet数据库引擎不能将"txtTh"识别为一个有效的字段名或表达式。
程序如下：
Private Sub txtTh_AfterUpdate()
    Dim rst As DAO.Recordset
    Dim TH As String
    Set rst = Me.RecordsetClone
    TH = me!txtTh
    rst.Findfirst "txtTh=" & TH
        If rst.NoMatch Then
            MsgBox "Record not found"
        Else
            Me.Bookmark = rst.Bookmark
        End If
    rst.Close
End Sub

sunguochang

有相同的例子，SOSO

qshaoxian

txtTH是文本框的名称，不是窗体记录源中某一字段，把txtTH改为它绑定的字段就可以了[em06]

lyia

绑定的字段名为“图号”，一开始我是这么做的，也是报3070错，不知道是不是字段名不能为中文？二楼的朋友相同的例子在哪?给个链接。谢谢。

lyia

Private Sub txtTh_AfterUpdate()
    Dim rst As DAO.Recordset
    Dim TH As String
    Set rst = Me.RecordsetClone
    TH = txtTh
    rst.Findfirst "图号='" & TH & "'"
        If rst.NoMatch Then
            '继续新记录
        Else
             DoCmd.RunCommand acCmdUndo
             Me.Bookmark = rst.Bookmark
        End If
    rst.Close
End Sub

代码如上，但有一点不明白"图号='" & TH & "'"中的两个'起什么作用？
[em12][em12][em13]

大熊

为什么不用DLOOKUP呢？

wangxin1978

大熊说得对，dlookup+oldvalue就可以了。

lyia

还是不太明白，请用dlookup+oldvalue改编我上面所做的实例好吗？

jiangyi

如果有同样记录的话，用findfirst

大熊

总之就是选用更简单，快捷的方法！