Vba 粗体字符串中的详细信息

我有一个生成文本的函数：表单上的Voornaam platentuub。 现在我想改变布局：Voornaam mist是粗体的，PlattenTuub必须是斜体的。 我怎样才能改变这一点（见下文）

---

我假设您希望在文本框中显示结果。将其.TextFormat属性设置为“富文本”。然后将vba代码更改为：

strBuild = strBuild & " <b>" & ![Voornaam] & "</b>"
If ![PlattenTuub] = 1 Then
    strBuild = strBuild & " <i>" & ![PlattenTuub] & "</i>"
End If
strBuild = strBuild & " -"

strBuild=strBuild&“”&！[Voornaam]&“
如果！[Platentuub]=1那么
strBuild=strBuild&“”&！[Platentuub]&“”
如果结束
strBuild=strBuild&“-”

我假设您希望在文本框中显示结果。将其.TextFormat属性设置为“富文本”。然后将vba代码更改为：

strBuild = strBuild & " <b>" & ![Voornaam] & "</b>"
If ![PlattenTuub] = 1 Then
    strBuild = strBuild & " <i>" & ![PlattenTuub] & "</i>"
End If
strBuild = strBuild & " -"

strBuild=strBuild&“”&！[Voornaam]&“
如果！[Platentuub]=1那么
strBuild=strBuild&“”&！[Platentuub]&“”
如果结束
strBuild=strBuild&“-”

将未绑定的富文本文本框添加到报表中，然后将其控制源设置为：

=''&[Voornaam]&''&IIf（[PlattenTuub]=1'，'-'&[PlattenTuub]&''）

您可以在表单上执行相同的操作

或者，您可以将新的计算字段VenP添加到报告或表单的RecordSource中。替换

 SELECT * FROM ...

与

选择“&[Voornaam]&”&IIf（[PlattenTuub]=1，，“-”
&[Platentuub]&“”）作为VenP，*来自。。。

然后，您可以简单地使用VenP作为文本框的控制源。

---

对于连续窗体上的计算文本框，这是我首选的方法，因为值是在窗体加载时计算的，因此它们不会在连续窗体滚动时闪烁。

将未绑定的富文本文本框添加到报表中，然后将其控制源设置为：

=''&[Voornaam]&''&IIf（[PlattenTuub]=1'，'-'&[PlattenTuub]&''）

您可以在表单上执行相同的操作

或者，您可以将新的计算字段VenP添加到报告或表单的RecordSource中。替换

 SELECT * FROM ...

与

选择“&[Voornaam]&”&IIf（[PlattenTuub]=1，，“-”
&[Platentuub]&“”）作为VenP，*来自。。。

然后，您可以简单地使用VenP作为文本框的控制源。

---

这是我对连续表单上的计算文本框的首选方法，因为值是在加载表单时计算的，因此它们不会在连续表单滚动时闪烁。

文本框位于报表上。如何以及在何处将属性更改为富文本（在该表单上？）。乍一看，我看不出有任何可能。现在我找到了该属性，但当我试图在富文本中更改该属性时，我得到了一个错误：该设置对此属性无效。由于为字段或表属性输入的值，Access遇到无效条件。检查表中是否存在超出范围或表不支持的任何更改。检查您可能对表所做的任何更改，如果可能，请恢复到数据库或表的以前副本，以确定设置中的差异。文本框位于报告上。如何以及在何处将属性更改为富文本（在该表单上？）。乍一看，我看不出有任何可能。现在我找到了该属性，但当我试图在富文本中更改该属性时，我得到了一个错误：该设置对此属性无效。由于为字段或表属性输入的值，Access遇到无效条件。检查表中是否存在超出范围或表不支持的任何更改。检查您可能对表所做的任何更改，如果可能，请恢复到数据库或表的以前副本，以确定设置中的差异。