ممكن تتفضل داخل وتشرح لي هذا الكود

السلام عليكم

عندي استفسار وابي شرح هذا الكود يعني ابي افهم قاعده الكود

الاول :

SELECT tblcourses.*, tblemboly.name, tblCoursesType.course FROM tblemboly INNER JOIN (tblCoursesType INNER JOIN tblcourses ON tblCoursesType.id_Course=tblcourses.id_Course) ON tblemboly.id=tblcourses.id;

والثاني

Dim txtlastdate
Dim txtlastname
If IsNull(DLookup("[txtname]", "ÌÏæá1")) Then Exit Sub
txtlastdate = DLast("[txtdate2]", "ÌÏæá1", "[txtname]=[forms]![ÌÏæá1]![txtname]")
txtlastname = DLast("[txtname2]", "ÌÏæá1", "[txtname]=[forms]![ÌÏæá1]![txtname]")
If Me.txtdate1 <= txtlastdate Then
MsgBox "ÇáãæÙÝ : " & txtname & " ãÓÌá ÍÇáíÇð Ýí ÏæÑÉ:  " _
& txtlastname & _
" æÇáÊí ÓæÝ ÊäÊåí Ýí ÊÇÑíÎ : " & Format(txtlastdate, "dd mmmm,yyyy") & _
vbCrLf & " áÇ íãßä ÊÓÌíáå ÎáÇá ÃÓÊãÑÇÑå Ýí ÇáÏæÑÉ ÇáÓÇÈÞÉ ", 0, "ÊßÑÇÑ"
Application.SetOption "Confirm Record Changes", False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Else
End If

والف شكر مقدما