如何使用打印按钮更新访问数据库表上的当前行？

Question

我有一个登录表单和一个数据输入表单。当用户登录时，表单将在下一个表单上传递其UserID。

用户填写完数据输入表后，他/她需要打印表单，表单将自动刷新。所有数据都将保存在FormTable中，以便作为输入数据的UserID保存。

我的问题是每次打印/保存所有数据都被保存，除了UserID的值为0。但是在第二次打印/保存之后，上一行的UserID将使用UserID更新，在下一次打印/保存之后也是如此。我需要实时更新UserID字段而不是后面一行。

这是我的代码。你能帮我解决一下吗？谢谢！

If Not IsNull(collect) Then
      'sql = "INSERT INTO cedula_tbl (Collector) VALUES ('" & collect & "')"
      sql = "UPDATE cedula_tbl SET collector=('" & collect & "') WHERE cedula_no=DMax('cedula_no', 'cedula_tbl')"

      db.Execute (sql)
 End If