1

我的任务是创建一个 Microsoft Access 数据库来存储客户反馈并在记录负面反馈时生成可打印的报告。

在用户可以记录反馈详细信息的反馈表单上，我正在尝试开发代码来连接从反馈表（表单的记录源设置为）中获取的字段。我的目标是开发一个唯一编号，该编号由反馈表中的以下字段组成：

  • 公司名称（这实际上是反馈表中的一个查找字段，它在公司表中查找公司名称，因此是表单上的一个组合框 - 显示为表单上的下拉菜单）
  • 产品名称
  • 周数的 2 位数字
  • 2 位数的月份
  • 年份的 2 位数字（这三个日期项是从反馈表中称为反馈日期的字段中提取的）。
  • 一个从 1 开始递增的序列号，因此如果同一公司在同一产品上记录另一条反馈，则该编号将更改为 2，依此类推。

基本上，我要复制的示例如下所示： Company Name_Product Name_0712131

这些连接字段的输出将存储在反馈表中名为 CF# 的另一个字段中。

我应该编写什么样的代码，以便将我想要连接的信息保存到数据库中？

4

1 回答 1

0

添加记录有许多不同的方法（CurrentDB.Execute({SQL code})、ADO 命令、DAO 命令、DoCmd.OpenQuery），但我怀疑您想知道如何创建要添加的表达式：

Dim strCustomerRef As String

'Add the Company Name (assumes the name is in the second column)
strCustomerRef = Me.cboYourComboBox.Column(1)

'Add the Product Name (assumes you have a text box bound to the product)
strCustomerRef = strCustomerRef & "_" & Me.txtTheProductNameTextBox

'Add the date info (assumes you have a text box bound to the date)
strCustomerRef = strCustomerRef & "_" & Format(Me.txtFeedbackDate, "wwmmyy")

'Add the sequence number
strCustomerRef = strCustomerRef & "_" & DCount("CustomerRef", "CF#", "[CustomerRef] Like '" & strCustomerRef & "*'") + 1

'Code to append record here
CurrentDB.Execute "INSERT INTO [CF#] ([CustomerRef], [MoreData]) VALUES ('" & strCustomerRef & "', '" & Me.txtMoreData & "')
于 2013-03-02T17:04:47.063 回答