استفسار حول اضافة ملاحظات داخل الاكواد

[ازهر عبد العزيز]

 السلام عليكم ..... كيف استطيع اضافة ملاحظات داخل الكود دون التاثير على الكود للرجوع لها عند الحاجة فانا لااستطيع قراءة الكود كما يفعل  الاساتذة لهذا احتاج ان اكتب ملاحظات حتى اعرف ماذا يفعل هذا الكود وايضا هل بالامكان تلون اجزاء من الكود 

[أبوبسمله]

وعليكم السلام اخى @ازهر عبد العزيز

بهذه العلامه قبل الكتابه '

وتكتب بحرف الطاء وانت عاتجاه الكتابه الانجليزى

Private Sub N1_BeforeUpdate(Cancel As Integer)
'هذا السطر لا ينفذ هو للتعليق

If IsNull(DLookup("name", "at", "[serial number]='" & Me.B & "'")) Then
    MsgBox "هذا النص غير موجود بالجدول"
    Me.Undo
ElseIf DCount("*", "ld", "idlh=" & Me.idlh & "and B='" & Me.N1 & "'") > 0 Then
   Dim stry As String
   stry = Me.N1
   Me.Undo
   
   Dim rs As Object
   Set rs = Me.Recordset.Clone
     rs.FindFirst "[B] = '" & stry & "'"
     If Not rs.EOF Then Me.Bookmark = rs.Bookmark
     DoCmd.GoToRecord , , acNewRec
End If

End Sub

بالتوفيق