访问表单保存功能

Question

所以我收到了客户的请求，我想知道是否有类似的东西可用。

本质上有一种叫做订单的形式。

加载此表单后，用户将输入与此订单相关的所有必要信息，并将其提交给数据库以进行跟踪和逾期状态、付款、与订单相关的支票号码等。

他提到他遇到过几种情况，在这些情况下，他们签订了向同一客户多次发货的相同产品的合同，并且可能需要为 10 个不同的订单复制在第一个订单中输入的信息。

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

当然，在他们再次提交之前，日期信息需要进行编辑。

但是我该如何实现该功能呢？ VB 是否能够 "listening" 表格内容并相应地将其复制粘贴回相同的 fields/values？

我对 VB 不是很熟悉，所以在此领域的任何帮助将不胜感激。

附上他用来输入记录的表格图片。我认为我的方法是在“添加新订单”按钮下方的侧面添加几个按钮。

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

Answer 1

所以我终于明白了你想要什么，并且是，有一种方法可以实现。

在你的评论中你说你想检索最后创建的记录，你甚至 post 你可以用来检索它的查询。因此，让我们使用该查询来提取您的值并将它们放入您的表单中。

假设您有一个命令按钮 [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

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

希望对您有所帮助

访问表单保存功能

Access Form Saving Capabilities

forms

ms-access

vba