将代码存储在列中并使用它

我有一列有数据，如year(date)或date-365。将代码存储在列中并使用它

如何将此文本用作代码而不是文本？意思是，我希望能够做到像

me.ProjectName="ddddd " & MyColumnWithCode

，并得到ddddd 2017或ddddd 10/21/2016

我做了谷歌在各个方面我能想到的，并没有得到任何东西。

来源

2017-10-21 lalachka

这听起来像一个非常糟糕的计划。为什么不将代码存储在表单模块中，并且使用'SELECT CASE'来执行相应的代码。将代码存储在数据库中通常是一个糟糕的主意，即使在使用证书签名数据库后，也会将用户打开以进行黑客攻击。 –

你能解释一下你的意思吗？我不认为我关心黑客，这可能是3人使用的一家大公司的内部分贝。无论谁会攻击我们，都会有更多吸引人的目标。但我很好奇这是如何以正确的方式完成的。所以，我有一个下拉菜单，它填充ProjectName中的一些更经常使用的选项。所以，假设有一个我知道的项目经常运行，所以我为它添加了一个条目。我知道它应该有month_year附录。我可以在哪里放置这些信息？ – lalachka

大声笑黑客从数以万计的其他人挑选这个分贝是一个挑战。我想我不知道这会为他打开什么门。如果他发现这个数据库，这意味着他已经黑了一切。我想我很好奇这将如何帮助黑客攻击以及正确的方式 – lalachka

您可以使用：

Me.ProjectName="ddddd " & Eval(MyColumnWithCode)

，但不与你现在的代码。它必须阅读：

Year(Date()) 
Date()-365

来源

2017-10-21 11:39:24 Gustav

我有这个版本最初大声笑，只是没有Eval。然后认为我在VBA中，它的日期不是Date（）lol。谢谢！！现在我很好奇为什么这是一个坏主意 – lalachka

简单地写

dddd = sheets("Sheet1").range("a1").value 
me.ProjectName= str(ddddd) & MyColumnWithCode 'Str is used in case its a number

来源

2017-10-21 09:44:59

这是用于ms访问的，但最好有excel版本供参考。一旦我测试了它，我会加注它。谢谢！ – lalachka

嘿，不知道我可以得到这个工作。 – lalachka

对不起，我对ms访问不太确定，所以我不知道为什么它不起作用。但它应该在VBA中工作。 –

将代码存储在列中并使用它

回答

相关问题