如何使用Access和VBA刷新表格（问题）？

Question

我想单击“ Agrandir”按钮，文本将其大小更改为（size = size + 1）

我使用以下代码：

Sub OnActionButton(control As IRibbonControl)
    Select Case control.ID
        Case "btn_Agrandir"
            Form_frm_Article_lst.DatasheetFontHeight = Form_frm_Article_lst.DatasheetFontHeight + 1
            Form_frm_Article_lst.Refresh
            Form_frm_Article_lst.Requery
    End Select
End Sub

我看不到尺寸变化，您必须关闭表格并打开才能看到变化。

如果我使用以下代码，它将正常工作（Code_Article是代码列的名称）

Private Sub Code_Article_Click()
    Me.DatasheetFontHeight = Me.DatasheetFontHeight + 1
End Sub

但是我想从功能区中使用它。

我想要的结果