Office中国论坛/Access中国论坛

标题: [源码]代码冻结列及取消冻结列 [打印本页]

作者: 盗梦 时间: 2014-7-23 10:19
标题: [源码]代码冻结列及取消冻结列
------------代码冻结列及取消冻结列-----------------------
Private Sub cmdFreeze_Click()

  On Error GoTo ErrCmdFreeze

  Me.subTestForm.SetFocus
  If Me.cmdFreeze.Caption = "Freeze Column" Then
DoCmd.RunCommand acCmdFreezeColumn
Me.cmdFreeze.Caption = "Unfreeze Column"
  Else
DoCmd.RunCommand acCmdUnfreezeAllColumns
Me.cmdFreeze.Caption = "Freeze Column"
  End If
  Exit Sub

ErrCmdFreeze:

  Select Case Err
Case 2046
   'Command not available
   MsgBox "This command is not available at this time"
   Exit Sub
Case Else
   MsgBox Err.Number & vbCrLf & Err.Description
   Exit Sub
  End Select

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)