运行时总是出错“必须在执行GoToControl操作、GoToControl方法或SetFocus方法之前保

luoou

我是一个银行小职员，我想做一个我们支行的保管箱管理系统，想实现的一个功能就是查询到有“退箱”标记的记录就提示“该合同已终止”，否则显示出这个合同的资料来，不过这段代码老是报错，我真是太菜了，请哪位大侠点拔一下我啊！

情比金坚

把代码的顺序重排一下：Private Sub 文本6_AfterUpdate()

If DLookup("[状态]", "租约合同", "[合同ID]=" & "[文本6]") = "退箱" Then

MsgBox "该合同已终止，请重新选择！", , "警告"

Me.文本6 = ""

Else

合同ID.SetFocus

DoCmd.FindRecord 文本6.Value

End If

End Sub