Question

我正在尝试在表单的一个框中更改文本的字体和字体大小

With Me.[Notes:]
.SetFocus
.FontName = "Verdana"
.FontSize = 8
.ForeColor = vbBlack
End With

我已经看过这里了

Access VBA programmatically setting font/size not working

似乎有这个工作，但我还有几个问题。

它会更改右侧框中的文字，但会更改我的每个记录，而不仅仅是我正在编辑的文本。
它仅适用于直接在文本框中输入类型的文本。不在已粘贴到表单中的文本上。（这就是首先按钮的原因）

如果重要，我正在使用MS Access 2016

提前致谢，

丹尼尔

Answer 1

如果它不是一个连续的形式，听起来你需要添加一个IF语句来指定应该在哪些条件下进行。然后将其放在表单的当前事件上。

Private Sub Form_Current()    
if condition met then 
    With Me.[Notes:]
    .SetFocus
    .FontName = "Verdana"
    .FontSize = 8
    .ForeColor = vbBlack
    End With
    end if 
end sub

对于第二个问题，您可以在字段的afterupdate事件上设置代码（或创建一个过程并调用它）

Private Sub notes_AfterUpdate()
if condition met then 
    With Me.[Notes:]
    .SetFocus
    .FontName = "Verdana"
    .FontSize = 8
    .ForeColor = vbBlack
    End With
    end if 
End Sub

Access-VBA更改表单中文本的字体和大小

1 个答案: