新手請(qǐng)教下一個(gè)錄入窗體代碼的解釋

longdoupj

好：
    小弟剛接觸，對(duì)會(huì)做錄入窗體，看到紅塵如煙的一個(gè)半綁定錄入窗體，不明白代碼的意思，請(qǐng)求大家?guī)兔�加下注釋，代碼如下（已上傳附件）：
Option Compare Database
Option Explicit
Private Sub cmdAdd_Click()
On Error Resume Next
    Dim ctl As Control
   
    For Each ctl In Me.Controls
        ctl.Value = Null
    Next
    Me.Recordset.AddNew
   
End Sub
Private Sub cmdSave_Click()
On Error GoTo Err_cmdSave_Click
    Dim i As Integer
    Dim rs As New ADODB.Recordset
   
    If Nz(Me.txtForShort, "") = "" Or _
        Nz(Me.txtPinYin, "") = "" _
    Then
        MsgBox "必填項(xiàng)不能為空，數(shù)據(jù)不能保存", vbCritical
        Exit Sub
    Else
        Me![FForShort] = Me.txtForShort
        Me![FPinYin] = Me.txtPinYin
        Me![FClientName] = Me.txtClientName
        Me![FLinkman] = Me.txtLinkman
        Me![FMobileNumber] = Me.txtMobileNumber
        Me![FTelNumber] = Me.txtTelNumber
        Me![FFaxNumber] = Me.txtFaxNumber
        Me![FAddress] = Me.txtAddress
        Me![FPostalcode] = Me.txtPostalcode
        Me![FClientType] = Me.txtClientType
        Me![FRemark] = Me.txtRemark
        
        DoCmd.RunCommand acCmdSaveRecord
    End If
Exit_cmdSave_Click:
    Exit Sub
Err_cmdSave_Click:
    If Err.Number = 3022 Then
        MsgBox "必填項(xiàng)均不允許重復(fù)操作被撤消", vbCritical
        Me.Undo
        Call Form_Current
    Else
        MsgBox Err.Number & Chr(13) & Err.Description
    End If
    Resume Exit_cmdSave_Click
   
End Sub
Private Sub cmdUndo_Click()
    Call Form_Current
End Sub
Private Sub Form_Current()
On Error Resume Next
    Dim ctl As Control
   
    If Me.NewRecord Then
        Call cmdAdd_Click
    Else
        For Each ctl In Me.Controls
            ctl.Value = Me.Recordset("F" & Mid(ctl.Name, 4))
        Next
    End If
   
End Sub
Private Sub Form_Load()
End Sub

t小寶

看書學(xué)習(xí)！