我正在创建一个通过Access表格填充的客户投诉数据库。每个条目均由一个顺序的自动编号字段编号,以创建一个“投诉编号”。发布投诉后,我想使用MkDir创建一个文件夹,其中可以包含与投诉有关的任何文档或图像。我希望文件夹名称为投诉编号名称。我能找到的最佳解决方案是DMax + 1自动编号(投诉编号)字段。
我设法获得了函数(从宏开始运行)来创建文件夹。但是,我无法弄清楚DMax或命名部分。
Public Function makenewfolder()
'create complaint number
Me.[Complaint Number] = DMax([Complaint Number], [tbl_Complaint_Problem_Log]) + 1
MsgBox "Complaint Number Generated"
'need code to create folder
If Dir("F:\Customer Complaints\" & Me.[Complaint Number], vbDirectory) = "" Then
MkDir ("F:\Customer Complaints\" & Me.[Complaint Number])
Else
'do nothing for directory already exists
End If
End Function
调整代码时,我收到了许多错误代码,但是我目前仍停留在
2465-Microsoft Access找不到表达式中引用的字段“ | 1”。
答案 0 :(得分:0)
DMax
需要字符串作为参数。
所以你需要类似的东西
Me.[Complaint Number] = DMax("[Complaint Number]", "tbl_Complaint_Problem_Log") + 1