Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/ms-access/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access 如何使用选项框对报表执行字体更改_Ms Access_Vba_Ms Access 2010 - Fatal编程技术网

Ms access 如何使用选项框对报表执行字体更改

Ms access 如何使用选项框对报表执行字体更改,ms-access,vba,ms-access-2010,Ms Access,Vba,Ms Access 2010,我在尝试使用选项框更改一系列控件上的字体时遇到问题。基本上,我在表单中嵌入了一个报告(名为Q_tblProject52Week)。我在表单中嵌入了一个选项框(称为“cornice33”),旨在更改报表中嵌入的两个控件(testo107和testo108)的字体 目前,我正在尝试以下方法,但没有成功: If Cornice33 = 1 Then testo107.FontName = "calibri" testo108.FontName = "times" ElseIf Co

我在尝试使用选项框更改一系列控件上的字体时遇到问题。基本上,我在表单中嵌入了一个报告(名为Q_tblProject52Week)。我在表单中嵌入了一个选项框(称为“cornice33”),旨在更改报表中嵌入的两个控件(testo107和testo108)的字体

目前,我正在尝试以下方法,但没有成功:

If Cornice33 = 1 Then

    testo107.FontName = "calibri"
    testo108.FontName = "times"

ElseIf Cornice33 = 2 Then

    testo107.FontName = "times"
    testo108.FontName = "calibri"

End If

我收到一条丢失的对象消息(它无法识别控件testo107和testo108)。同样需要注意的是,报表嵌入在文件夹控件中。

您需要告诉access您引用了报表上的控件,该控件是表单的子控件

If Cornice33 = 1 Then

    Me.Q_tblProject52Week.testo107.FontName = "calibri"
    Me.Q_tblProject52Week.testo108.FontName = "times"

ElseIf Cornice33 = 2 Then

    Me.Q_tblProject52Week.testo107.FontName = "times"
    Me.Q_tblProject52Week.testo108.FontName = "calibri"

End If

希望这有帮助。非常感谢!请注意,您的回答是正确的,但是我不得不用“.”来更改“.”!“。请您解释一下原因好吗???(可能与报表被进一步嵌入表单中的文件夹对象有关。)Me.Q_tblProjectPlan52Week!Testo107.FontName=“DNR娱乐符号”