错在那里？望高手帮忙

wuyuanhui

    ' 单击〔列表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

各位版主或能者指点一下吧！先谢谢了！！

hi-wzj

不须这么复杂，用宏或命令：FindRecord 就能解决。