Question

这里的第一个问题让我轻松一点！

我是Visual Basic的新手（但不是编程），我在为本地组织工作的项目上遇到了麻烦。

我有一个按钮，它运行一个包含单个"SELECT ... INTO ... "语句的查询。此语句还会查找字段RecievedBoxToday等于"Yes"的每条记录。这是正常工作的代码：

SELECT * INTO RENAME_THIS_TABLE
FROM [DATABASE ZERO]
WHERE (([DATABASE ZERO].RecievedBoxToday)=Yes);

现在问题是这个问题（除了Received拼写错误这一事实）：这个代码将每个月运行一次，但每次按钮时表格（RENAME_THIS_TABLE）都会被覆盖点击。我希望每个月都有永久数据，因此我的解决方案是将RENAME_THIS_TABLE表重命名为MONTHNAME_YEAR，其中MONTHNAME是月份的名称（1月或12月）和{{1是当前年份（2015年）。我认为我可以使用YEAR函数执行此操作，该函数运行正常，但我希望能够将此月份名称存储到字符串中以与年份（也是字符串）连接。之后，此字符串将替换MonthName()。

我的代码似乎不起作用：

RENAME_THIS_TABLE

在此之后，我不知道在采用这个新的字符串变量并插入SQL代码时将去哪里，它将替换dim Month As String dim Year As String MonthName(Month(Date()), False) As Month Year(Date()) As Year dim NewName As String = Month + "_" + Year。

我该如何使这项工作？我可以做这个吗？如果重要，我将使用VBA与Microsoft Access 2013.非常感谢任何帮助！

Answer 1

请勿使用/frontend/Classes/ /frontend/Views/ /frontend/example.com/public_html /backend/Classes/和Month作为变量名称。这些是VBA中的保留（函数）名称。此外，作为快捷方式，您只需使用Year函数格式化日期字符串：

Format()

如果您的SQL语句存储在单独的字符串中，您只需将新表名称连接到字符串中即可：

Dim strNewName As String
strNewName = Format(Date, "mmmm_yyyy")    ' => "August_2015"

将MonthName（）函数存储在字符串变量

1 个答案: