可以用下面的代码来冻结列

Private Function FreezeColumn(rctr as Control)

    rctr SetFocus
    DoCmd.RunCommand (acCmdFreezeColumn)
    'rctr为你需要冻结的数据表列的控件名称

End Function

(责任编辑：admin)

• ·Access自制自定义菜单
• ·VBA自定义菜单和菜单栏(六)
• ·VBA自定义菜单和菜单栏(五)
• ·VBA自定义菜单和菜单栏(四)
• ·VBA自定义菜单和菜单栏(三)
• ·VBA自定义菜单和菜单栏(二)
• ·VBA自定义菜单和菜单栏(一)
• ·Access编程-操作（宏）[18]
• ·Access编程-操作（宏）[17]
• ·宏的概念以及工作方式
• ·Access编程-操作（宏）[16]
• ·Access编程-操作（宏）[12]
• ·Access编程-操作（宏）[15]
• ·Access编程-操作（宏）[14]
• ·Access编程-操作（宏）[13]
• ·Access编程-操作（宏）[11]