Access交流网
  • 设为首页|收藏本站|繁体中文|手机版
  •     
  • Access培训-Access开发平台-Access行业开发

  • 首页
  • 资讯
  • 技巧
  • 源码
  • 行业
  • 资源
  • 产品
  • 活动
  • 培训
  • 招聘
  • 论坛
  • 商城
  • 关于

源码

ACCESS数据库
数据表
查询
界面/窗体/控件
报表打印
模块/函数/VBA/API/系统

网络通信游戏

API/COM/系统相关

加密解密安全

文件处理

经典算法

内置函数/模块

宏/菜单/工具栏/功能区
图表/图形/图像/多媒体
DAO/链接表/ADO/ADP
ActiveX/第三方控件/插件
OFFICE集成/导入导出/交互
SqlServer/其它数据库
Access完整系统

Access完整系统源码

Access软件作品(无源码)

杂项/其它
Excel源码

热门下载

  • 灵活多变且可自定义的主选单
  • 通用界面及权限控制
  • Access切分窗体的源码..
  • Access设置单击隐藏侧..
  • access隐藏显示窗体中..
  • 根据不同的编号打开相应数据

最新下载

  • Access登录窗体的做法..
  • 多条件筛选记录(模糊搜索)
  • 【Access小品】数据表..
  • 【Access小品】后台管..
  • 新增记录时复制过往指定记录..
  • access数据表视图和窗..

联系方式

Access交流网

电  话:0760-88315075
热  线:0760-88315075

邮  编:528463
咨询QQ:1918333016
营销QQ:4008553990

Email:1918333016@qq.com

网  址:www.access-cn.com

当前位置:首页 > 源码 > 界面/窗体/控件
界面/窗体/控件

【Access小品】数据表子窗体列宽锁定

  • 更新时间2016-08-10 17:19:33
  • 文件下载 点击下载
  • 文件类型rar
  • 文件版本Access2003
  • 简要说明锁定数据表子窗体列宽

详细描述

      一个锁定数据表子窗体列宽的问题。记得曾经有过一个版友提出过另外一个连续子窗体列宽调整的问题,这个问题好像一直没有很好的解决。看来这两类窗体在列宽的可调整与不可调整方面各有利弊,因此也就有版友希望能得到取长补短的办法。

        今日针对kris3000同志的问题做一实例,解决数据表子窗体列宽锁定问题。关于连续子窗体列宽调整,我想也是可以解决的,只是代码要写的复杂一些。


20100709131451.gif


部分代码:

Option Compare Database

Option Explicit

Dim ctlN() As String

Dim ctlW() As Single


Function ctlVal(frm As Form)

    Dim ctl As Control

    Dim ctls As Controls

    Dim i As Long

    Set ctls = frm.Controls

    i = 0

    For Each ctl In ctls

        If ctl.ControlType <> acLabel Then

            ReDim Preserve ctlN(i)

            ReDim Preserve ctlW(i)

            ctlN(i) = ctl.Name

            ctlW(i) = ctl.ColumnWidth

            i = i + 1

        End If

    Next ctl

End Function


Function ctllock(frm As Form, B As Boolean)

    Dim ctl As Control

    Dim ctls As Controls

    Dim i As Long

    If B = False Then Exit Function

    Set ctls = frm.Controls

    For i = 0 To UBound(ctlN, 1)

        ctls(ctlN(i)).ColumnWidth = ctlW(i)

    Next

End Function




标签:  子窗体,列宽,连续窗体,固定列宽,锁定
发布人:zstmtony  
分享到:
点击次数:  更新时间:2016-08-10 17:19:33  【打印此页】  【关闭】
上一条:没有了  下一条:转置小技巧——浅谈GetRows的使用

相关下载

  • • 【Access小品】后台管理二三事
  • • 新增记录时复制过往指定记录的示例
  • • access数据表视图和窗体视图的互相切换
  • • Access仿word查找功能--查找文本框中的字符
  • • access复选框多选并显示
  • • access连续窗体不同行显示不同颜色
  • • 【Access小品】希腊神话 -- 滚动窗体记录示例

热门下载

  • [2013-11-28] Access零代码实现漂亮的切换面板access数据库
  • [2005-08-16] 主控窗体示例----通用界面access数据库
  • [2005-08-17] 非常清爽的控制面板access数据库
  • [2002-02-27] Access限制一个绑定到备注型字段的文本框的总行数和总字数access数据库
  • [2014-01-13] access窗体样式的显示技巧access数据库
  • [2015-11-17] 【源码】Access锁定当前页不让翻页和禁止编辑数据access数据库

热门产品

  1. Access加密狗系统4.05新版发布

    Access加密狗系统4.05新版发布

  2. 通用票据打印软件

    通用票据打印软件

  3. Access通用开发平台

    Access通用开发平台

公司动态|在线留言|在线反馈|联系我们|友情链接|会员中心|站内搜索|网站地图

中山市天鸣科技发展有限公司 版权所有 1999-2018 粤ICP备10043721号

广东省中山市西苑广场富贵阁20楼A座

电话:0760-88315075 手机:13928102596 QQ:1918333016

Access应用 Access培训 Access开发 Access平台

access|数据库|access下载|access教程|access视频|access软件

Powered by MetInfo 5.3.12 ©2008-2021  www.metinfo.cn