|
各位前辈好:今天学习一个实例,但部分代码着实看不懂,实在迷糊,求指导,谢谢啦!
另外想咨询下,论坛上有没有示例学习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
|