Microsoft Access 掲示板

Microsoft Access 掲示板

変数で色の指定をしたい / 4

4
hiroton 2023/10/13 (金) 17:46:43 7e920@f966d

適当にできるだろうと思ってやったら痛い目を見ました
それこそデータベース化したらいいじゃないかということではありますが一応

Dim STR as String
STR = Dlookup("ForeColor","***","商品コード = '" & Me.商品コード & "'")
With CreateObject("MSScriptControl.ScriptControl")
  .Language = "VBScript"
  Me.商品名.ForeColor = .Ｅｖａｌ(STR)
End With

※この掲示板ではＥｖａｌを半角で記述できないので、上記コードでは全角で記述しています

単にＥｖａｌ(str)で実行できればよかったのですがACCESS（2013）では許されないようです
無理やりどうにかする方法を見つけましたが完全に非推奨な方法です
動作原理からしても、やはりカラーコード対応テーブルで対応すべきとなります

通報 ...