标题: 请教：如何在窗体中输入一个新记录时，能否自动检查出是否存在相同纪录，并调出该纪 [打印本页] 作者: lyia 时间: 2002-12-23 04:25 标题: 请教：如何在窗体中输入一个新记录时，能否自动检查出是否存在相同纪录，并调出该纪 我做了一段代码，可老出报错“运行时错误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 时间: 2002-12-23 04:57
有相同的例子，SOSO作者: qshaoxian 时间: 2002-12-23 22:34
txtTH是文本框的名称，不是窗体记录源中某一字段，把txtTH改为它绑定的字段就可以了[em06]作者: lyia 时间: 2002-12-24 03:51
绑定的字段名为“图号”，一开始我是这么做的，也是报3070错，不知道是不是字段名不能为中文？二楼的朋友相同的例子在哪?给个链接。谢谢。作者: lyia 时间: 2002-12-24 05:28 标题: 谢谢楼上的两位朋友，搞定了，特别感谢“中国ACCESS XP FAQ网”的斑竹 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