我有一个包含富文本的备注字段。我能够识别用户并更改框中的所有文本,而不仅仅是他们添加的文本。
我希望编写允许编辑文本的代码,更新后,编辑后的文本将显示与备注字段中原始文本不同的颜色。
我试过了:
Dim strNew As String
Dim strOld As String
If Me.txt_username_id = "grant" Then
strOld = Me.Form!txtnotesaboutproduct1.OldValue.ForeColor = vbBlack<br/>
strNew = Me.Form!txtnotesaboutproduct1.ForeColor = vbRed
End If
我也试过
Dim ctlOld As TextBox<br/>
Set ctlOld = Me.Form!txtnotesaboutproduct1
If Me.txt_username_id = "grant" Then
ctlOld = Me.Form!txtnotesaboutproduct1.OldValue.ForeColor = vbRed
End If
答案 0 :(得分:2)
通常,我使用Notes的连续子表单来执行此操作,以便我可以保存数据,日期和用户,而不仅仅是一个格式化的文本框。虽然我确实意识到这可能是你可能拥有的更多房地产,但你可以在子表单中使用条件格式。我同意,如果可能的话,你可能需要使用HTML而不是.Forecolor,它将改变整个盒子。