access开发教程第4章第5节
时 间:2008-11-13 09:12:55
作 者: Access软件网编著 ID:11 城市:上海 QQ:3002789054
摘 要:4.5 修改窗体的制作
正 文:
如新增窗体的制作一样,先新建一个新的空白窗体,之后添加文本框控件并重新命名该控件(文本框的标签显示更改为:员工姓名,文本框的名称属性——如新增窗体所示,更改为:ygxm),之后显示窗体页眉页脚,并调整大小,同时保存当前的窗体设计,将窗体按之前提到命名规则,命名为: frmyg_child_Edit ,与新增窗体操作步骤一样的部分,在这里不再重复讲述,调整好的窗体如下图所示:
标题:无默认值,输入以下字符:员工姓名修改;
滚动条:默认值为两者都有,修改为:两者均无;
记录选定器:默认为是,修改为:否;
导航按钮:默认为是,修改为:否;
分隔线:默认是为,修改为:否;
自动调整:默认为是,修改为:否;
自动居中:默认是否,修改为:是;
边框样式:默认为可调边框,修改为:对话框边框;
最大化最小化按钮:默认为两者都有,修改为:无;
关闭按钮:默认为是,修改为:否。
之后再单击数据选项卡,执行下列属性修改:
允许添加:默认为是,修改为:否。
之后再选择其他选项卡,分别执行以下属性修改:
弹出方式:默认为否,修改为:是;
模式:默认为否,修改为:是。
修改完毕之后,关闭窗体属性对话框保存修改。
进行到这里,我们切换到数据库窗口,单击模块选项卡,再单击新建按钮,如下图所示:
'文本型变量
Public selectstr As String
之后单击工具栏上的保存按钮,输入任何的模块名称,比如我们这里输入 variable ,之后确认保存,关闭代码窗口,再在设计视图打开 frmyg_child ,之后单击员工序号文本框,在激活的右键快捷菜单中选择属性,如下图所示:
On Error GoTo Err_ygId_GotFocus:
selectstr = Me.ygId
Forms!usysfrmMain!labFind.Tag = 1
Forms!usysfrmMain!btnEdit.Tag = 999
Exit_ygId_GotFocus:
Exit Sub
Err_ygId_GotFocus:
Resume Exit_ygId_GotFocus
以上字符,蓝色给个性化字符,如果您看不懂以上的代码,则将其中的蓝色字符替换为你的场景中适当的字符即可。输入完毕之后如下图所示:
Me.RecordSource = "Select * FROM tblCodeyg Where ygId = '" & selectstr & "'"
同样,蓝色字符为个性化字符,如果你看不懂,在您的环境中适当替换即可。
确认输入无误之后,关闭该代码窗口,之后再关闭窗体属性以保存修改。进行到这里,我们该进行一个必要的操作,给该设计窗体的文本框控件添加数据源。打开员工姓名的文本框属性,选择数据选项卡,控件来源对话框中输入:ygxm。请注意,这里的控件来源,一定要填表的实际字段名称匹配。如下图所示:
Private Sub ToolbarFrm_ButtonClick(ByVal Button As Object)
If IsNull(Me.ygxm) Then
MsgBox "请输入员工姓名!", vbCritical, "提示:"
Me.ygxm.SetFocus
Exit Sub
End If
Me.Refresh
DoCmd.Echo False
Forms!usysfrmMain!frmChild.SourceObject = "frmyg_child"
DoCmd.Echo True
'触发子窗体计时器事件
Forms!usysfrmMain!frmChild.Form.TimerInterval = 300
DoCmd.Close acForm, "frmyg_child_Edit"
End Sub
同理,蓝色字符为个性化字符。完成之后如下图所示:
将李三修改为李四,之后单击关闭按钮,则如下图所示:
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
- 什么是Access?
- Access有什么用处?
- Access开发的软件作品哪里有介绍?
- 我们到底该学习什么编程语言工具最合适?
- Access容易学吗?
- 如何学习Access才能早日学会?
- 三论Access学习方法
- Access学习方法总结
- 我适合于自学还是参加Access培训班?
- 我想参加Access培训,哪里有Access培训?
- 从哪里可以下载Access?
技术分类:
- Access表
- Access查询
- Access窗体/数据页
- Access宏
- Access模块/函数/VBA
- Access报表
- ADP及SQL SERVER
- Access开发平台
- Access视频教程
- Access2007
- Access2010/2013/2016
相关资源:
- Access专家课堂
- Access学习护航计划
- Access新手教程
- Access书籍
- Access QQ群
- 微信交流账号:Accessoft7
- Access新浪微博, 腾讯微博
- Access开发平台下载
- Access淘宝
- Access同城交友
- Access开发心得
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access源码示例】按输入...(05.30)
- Access一打开就显示查询结...(05.27)
- 【Access定时打开窗体】A...(05.21)
- 【Access更新查询】更新查...(05.15)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
学习心得
- 《项目管理公司行政管理系统》Acces...
- 工程项目合同管理系统;基于Access...
- 用Access开发《劳资信息管理系统》
- 《阀门计划信息集成平台》利用Acces...
- 《TMS平台开发 汽车零部件供应商市场...
- 《地产集团结算系统》使用强悍的Acce...
- 《仓库管理系统》access数据库进销...
- 《物业租赁合同管理系统》用Access...
- 用Access低代码平台开发《染整配方...
- 《医保报销管理系统》为了使我的工作更加...
最新文章
- SQL代码如何连接上下行【书常见问...(06.02)
- Access窗体查询制作步骤第四课...(05.31)
- 【Access源码示例】按输入的数...(05.30)
- Access运行追加查询时的常见错...(05.30)
- Access利用列表框多选进行批量...(05.27)
- Access一打开就显示查询结果;...(05.27)
- 【Access选择查询】用Acce...(05.24)
- 【Access Format取值示...(05.22)
- 【Access定时打开窗体】Acc...(05.21)
- 【Access更新查询】通过更新查...(05.20)
专栏作家
- 上海 2124 麥田
- 上海 1285 张志
- 江阴 576 杜小杰
- 上海 509 宏鹏
- 江阴 477 will.miao
- 武汉 448 煮江品茶
- 南京 423 杨雪
- 江阴 396 金宇
- 江阴 391 钱玉炜
- 上海 344 小周
- 上海 255 易勋
- 成都 215 红尘如烟
- 广州 200 欧志华
- 上海 185 十段
- 上海 163 周芳
- 南京 146 Natsume Takashi
- 闵行 142 Victor Duane
- 襄阳 129 Big Young
- 岳阳 124 朱亦文
- 南昌 111 江羽