此代码工作正常,然后突然开始显示“新”而不是指定的记录。我想不出任何我会做的事情会让它突然停止按预期工作。任何帮助将不胜感激。
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
答案 0 :(得分:1)
表单>属性>数据>数据输入需要设置为否