Question

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

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

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

基本上，我想要复制的例子是这样的：公司名称_产品名称_0712131

这些连接字段的输出应存储在名为CF＃的Feedback表中的另一个字段中。

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

Answer 1

有许多不同的方法可以添加记录（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 & "')

访问Visual Basic代码以连接多个字段（文本和数字一起）

1 个答案: