在弹出窗体中增加列表的问题!!!!

我在VBA中作了下面的代码，在执行时出现了一个对话框说“类型错误”，但是还是能够执行，不知道是什么原因。代码如下：
Private Sub 部门_DblClick(Cancel As Integer)
On Error GoTo err_部门_dblclick
Dim bumen As String
    If IsNull(Me![部门]) Then
    Me![部门].Text = ""
     Else
     bumen = Me![部门]
     Me![部门] = Null
     End If
 DoCmd.OpenForm "部门表", , , , , acDialog, "GoToNew"
 Me![部门].Requery
 If bumen <> 0 Then Me![部门] = bumen
exit_部门_dblclick:
 Exit Sub
err_部门_dblclick:
 ' MsgBox Err.Description         最后，我只能把这个注释掉，才会没有出现那个对话框。
 ' Resume exit_部门_dblclick
End Sub

这是另一段不在列表中的代码
Private Sub 部门_NotInList(NewData As String, Response As Integer)
MsgBox "双击字段到增加列表的窗体"
Response = acDataErrContinue
End Sub

求解