设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1908|回复: 5
打印 上一主题 下一主题

[帮助] 我这样理解对吗?部分代码求指导

[复制链接]
跳转到指定楼层
1#
发表于 2016-1-11 11:50:22 | 显示全部楼层 回帖奖励 |倒序浏览 |阅读模式
     各位前辈好:今天学习一个实例,但部分代码着实看不懂,实在迷糊,求指导,谢谢啦!
     另外想咨询下,论坛上有没有示例学习ACCESS的,就是通过对一个个开发系统的讲解(对系统的每步作详细说明、代码详解、系统搭建的思路等,详细点的,而不是只给过程、代码,而没有解析和思路),感觉这样学习起来应该比较快。收费的也行,只要有资源。

Private Sub cmdSave_Click()
Dim rst As Object
Dim strSQL As String
Dim currentID As String
Dim strFrm As String '前面四句是定义变量类型
If IsNull(Me.txtygxm) Then
    MsgBox "员工姓名不允许空缺,请录入相关数据!", vbCritical, "提示" ‘文本框不能为空
    Me.txtygxm.SetFocus ‘光标焦点在文本框内
    Exit Sub
End If
currentID = Form_frmYg_sg_List.Form.ygID  ‘currentID变量的值来源于LIst窗体中的ygID
strSQL = "select * from tblCodeyg where ygID='" & currentID & "'"   ‘通过查询tblCodeyg数据源表,返回ygID等于currentID的数值,strSQL可以看作在内存中的数据,问题来了,为什么不直接:strSQL=select ygid from tblCodeyg
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)      ‘打开strSQL这个数据
rst.MoveFirst   ‘默认光标置于数据第一行
rst.Edit  ‘需要编辑的数据,即光标处于行
rst!ygxm = Me.txtygxm    ‘ygxm调整为txtygxm
rst.Update  ‘数据刷新,但为什么是刷新的rst,而不是数据的窗体
rst.Close
Set rst = Nothing
DoEvents 这是干嘛的?求指导
strFrm = Form_frmYg_sg_Main!frmChild.SourceObject
Form_frmYg_sg_Main!frmChild.SourceObject = strFrm
MsgBox "您提交的数据更新已完成!", vbInformation, "消息"
DoCmd.Close acForm, "frmYg_sg_Edit"   ‘这句不是很清楚,求指导
End Sub

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2016-1-11 13:53:49 | 显示全部楼层
先下车选4 发表于 2016-1-11 13:13
如果说的不客气 请见谅 但无恶意
看你问的 你连基本的东西都不是很了解啊,
为什么不直接:strSQL=select ...

感谢,确实很不多了解,特别是VBA很多控件东西
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-5-7 21:41 , Processed in 0.107910 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表