ms access findfirst转到新记录而不是显示指定的记录

时间:2016-06-06 22:13:12

标签: ms-access access-vba

此代码工作正常,然后突然开始显示“新”而不是指定的记录。我想不出任何我会做的事情会让它突然停止按预期工作。任何帮助将不胜感激。

Private Sub cboHotel_AfterUpdate()

Dim rs As Object
Dim strCriteria As String

Set rs = Me.Recordset.Clone

strCriteria = "[EventName] = '" & Me.cboEvent & "' And [Hotel] = '" & Me.cboHotel & "'"

rs.FindFirst strCriteria

If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Forms!Submissions!TabCtl1.Visible = True

Forms!Submissions!EventName.SetFocus

End Sub

1 个答案:

答案 0 :(得分:1)

表单>属性>数据>数据输入需要设置为否