Office中国论坛/Access中国论坛

标题: 错在那里？望高手帮忙 [打印本页]

作者: wuyuanhui 时间: 2004-7-28 21:40
标题: 错在那里？望高手帮忙
' 单击〔列表31〕在当前窗体的记录集中查找与该控件匹配的记录。

'我意思是想告诉用户你录入的信息已经存在

' 错在那里？望高手帮忙

'Me.[列表31].Value 是文本

Dim rs1 As DAO.Recordset

Dim strF As String

Set rs1 = Me.RecordsetClone

strF = Me.[列表31].Value

Do Until rs1.EOF

If rs1("[MXFCID]") = strF Then

MsgBox "有记录"

Exit Do

Else

MsgBox "无记录"

End If

rs1.MoveNext

Loop

作者: wuyuanhui 时间: 2004-7-28 22:20
各位版主或能者指点一下吧！先谢谢了！！

作者: hi-wzj 时间: 2004-7-29 00:36
不须这么复杂，用宏或命令：FindRecord 就能解决。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)