访问表单保存功能

Question

所以我有一个客户的要求，我想知道是否有这样的东西可用。

本质上有一种形式叫做秩序。

当加载此表单时，用户将输入与此订单有关的所有必要信息，并将其提交数据库，以便跟踪和过去的到期状态、付款、与订单相关的支票编号等。

他提到，他遇到了一些情况，他们将同一产品的几批货物承包给同一客户，并可能需要在第一批订单中输入的信息复制到10个不同的订单中。

是否有什么方法可以保存和复制他们输入的内容到表单中，以便当他们想再次输入时可以重新加载？

当然，在再次提交之前，日期信息需要是可编辑的。

但是我如何实现这个功能呢？VB是否能够“监听”表单内容并将其复制回相应的字段/值中？

我不太熟悉VB，所以在这个舞台上的任何帮助都是非常感谢的。

附件是他用来输入记录的表格的图片。我认为我的方法是在add New Order按钮的旁边添加几个按钮。

也许第一个可以获取记录数据，第二个可以将值映射回。

​

Answer 1

最后，我理解了你想要什么，，是，，有一种方法可以把它拿出来。

在您的评论中，您说要撤回最后创建的记录，您甚至还发布了可以用于撤回该记录的查询。因此，让我们使用这个查询来提取您的值，并将它们放在您的表单中。

假设您有一个命令按钮cmd_fill_default。在它的onClick事件中，您应该编写如下内容：

sub cmd_fill_default_onClick()
    dim db as DAO.Database, rs as DAO.RecordSet
    dim strSQL as String

    Set db = currentdb() ' Connect to your current database
    ' Retrieve the last record
    strSQL = "select top 1 a.* from your_table as a order by [CP_Ref] desc"
    set rs = db.openRecordset(strSQL, dbOpenDynaset, dbReadOnly)
    ' Move to the first (and only) row in the record set
    rs.moveFirst

    ' Now, you must fill each control (text box, combo box, check box, etcetera)
    ' with the retrieved values.
    ' I don't know how your controls are called, but it would be something 
    ' like this:
    txt_something.value = rs![something]
    txt_another_thing.value = rs![another_thing]
    ' and so on

    ' Once you're done, remember to close everything
    rs.close
    db.close
end sub

现在，您的控件将充满数据，并且它们将是可编辑的。

希望这能有所帮助