我想根据表单中选择的值在文本框中生成一个字符串。还需要在选择的一些表单选项之前和之后插入预定义的文本。预定义文本在下方以粗体显示。希望通过单击按钮生成文本并放置在按钮下方的文本框中进行处理。已经有重置按钮工作的代码。请参阅下面的示例表格。
ex text:处理[entity.value]和[action.value]然后[status.value]使用协议[agreement.value]和有效日期[eff_date.value]........等等。
如果您所需要的只是根据这些值构建一个刺,那么您要寻找的是......
FinalTxt = "Process " & me.entity.value & _
" and " & me.action.value & _
" then " & me.status.value & _
" use agreement " & me.agreement.value & _
" with eff date " & me.eff_date.value
me.FinalTxtBox.value = FinalTxt
如果您需要保存字符串以在另一个表单上使用它,我会考虑为该字符串创建一个公共变量并更新它。
- 更新
为了防止字符串显示在文本框中,您需要添加一些逻辑。
FinalTxt = ""
If me.entity.value <> "" and me.action.value <> "" _
and me.status.value <> "" and me.agreement.value <> "" _
and me.eff_date.value <> "" Then
FinalTxt = "Process " & me.entity.value & _
" and " & me.action.value & _
" then " & me.status.value & _
" use agreement " & me.agreement.value & _
" with eff date " & me.eff_date.value
End If
me.FinalTxtBox.value = FinalTxt
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句