將代碼存儲在列中並使用它

我有一列有數據，如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中工作。 –

將代碼存儲在列中並使用它

回答

相關問題