求助：代码看不懂

1122wen

各位老师：以下是我看例子时碰到的一些代码，但看不懂，已经筋疲力尽，恳请给予指导。最好可以详细解说下，本人很菜鸟，谢谢啦。

MaxID = DMax("[ygID]", "tblCodeyg")  '取得编码最大值，但编号是Y头的，不是数据也能提取最大值？
currentID = "Y" & Format(Val(Right$(MaxID, 2) + 1), "00") '编号最大值+1
strSQL = "select * from tblCodeyg"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset) ‘个人理解：打开srtSQL数据库
rst.AddNew'个人理解：数据库新增一条，但怎么知道新增是放在原数据后面的单元格
rst!ygid = currentID
rst!ygxm = Me.txtygxm
rst.Update'是为刷新显示出数据吗？
rst.Close
Set rst = Nothing
Me.txtygxm = Null
DoEvents
strFrm = Form_frmYg_sg_Main!frmChild.SourceObject’表示看不懂？为什么和下面一条倒过来
Form_frmYg_sg_Main!frmChild.SourceObject = strFrm’表示看不懂？为什么一正一反
MsgBox "您录入的数据保存已成功！", vbInformation, "消息"

1122wen

roych 发表于 2016-1-8 17:30
MaxID = DMax("[ygID]", "tblCodeyg")  '取得编码最大值，但编号是Y头的，不是数据也能提取最大值？
'--- ...

感谢版主的细心解答，请问版主论坛有无类似的专门对某个程序（系统）的详细讲解课程？即针对各个系统从设计到成的每一步过程及细致讲解，谢谢啦~