关于update不能更新字段值的问题

 各位老师 请问一个问题 我的窗体ZXJY上用一个函数来获取顺序号，窗体每打开一次，顺序号+1，我现在想根据窗体中的信访人姓名这个文本框做判断，如果为空，这个序号为空记录，我要下次还能用这个序号，生成序号的变量是DateID(1) 保存序号到表 tblID的流水号字段 代码如下 现在运行的时候提示输入参数值 且提示 “流水号”字段不能更新 请问哪错了？恳请指教

Private Sub GoBack_Click()

If IsNull(Me.信访人姓名) Then
Dim strSQL As String
Dim Numtmp As Long
Numtmp = DateID(1) - 1
strSQL = "Update tblID SET 流水号 = Numtmp Where ID = 1"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
End If

DoCmd.Close
DoCmd.Close acForm, "ZXJY", acSaveYes
DoCmd.OpenForm "Type"

End Sub