读office access 自带的例子程序，写出流程图

问题描述：

读下列程序，写出详细的 “功能，入口参数，返回值，流程描述”，谢谢
摘自office access 自带的例子，罗斯文中的供应商代码。

Option Compare Database
Option Explicit

Sub 增加产品_Click()

On Error GoTo Err_AddProducts_Click

Dim strDocName As String

strDocName = "产品"

DoCmd.OpenForm strDocName, , , , acAdd, , Me!供应商ID

DoCmd.Close acForm, "产品列表"

Forms![产品]!产品名称.SetFocus

Exit_AddProducts_Click:
Exit Sub

Err_AddProducts_Click:
MsgBox Err.Description
Resume Exit_AddProducts_Click

End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

Select Case Me!国家
Case IsNull(Me![国家])
Exit Sub
Case "法国", "意大利", "西班牙"
If Len(Me![邮政编码]) <> 5 Then
MsgBox "邮政编码必须为5个字符", 0, "邮政编码错误"
Cancel = True
Me![邮政编码].SetFocus
End If

End Select

End Sub

Private Sub Form_Close()

If IsLoaded("产品列表") Then DoCmd.Close acForm, "产品列表"
If IsLoaded("产品") Then DoCmd.Close acForm, "产品"

End Sub

Private Sub Form_Current()
On Error GoTo Err_Form_Current

Dim strDocName As String
Dim strLinkCriteria As String

strDocName = "产品列表"
strLinkCriteria = "[供应商ID] = Forms![供应商]![供应商ID]"

If IsNull(Me![公司名称]) Then
Exit Sub
ElseIf IsLoaded("产品列表") Then
DoCmd.OpenForm strDocName, , , strLinkCriteria
End If

Exit_Form_Current:
Exit Sub

Err_Form_Current:
MsgBox Err.Description
Resume Exit_Form_Current

End Sub

Private Sub 回顾产品_Click()

On Error GoTo Err_ReviewProducts_Click

Dim strMsg As String, strTitle As String
Dim intStyle As Integer
Dim strDocName As String, strLinkCriteria As String

If IsNull(Me![公司名称]) Then
strMsg = "移到您想看的产品的供应商记录，然后再按""回顾产品""按钮。"
intStyle = vbOKOnly
strTitle = "选择供应商"
MsgBox strMsg, intStyle, strTitle
Me![公司名称].SetFocus
Else

strDocName = "产品列表"
strLinkCriteria = "[供应商ID] = Forms![供应商]![供应商ID]"
DoCmd.OpenForm strDocName, , , strLinkCriteria
DoCmd.MoveSize (1440 * 0.78), (1440 * 1.8)
End If

Exit_ReviewProducts_Click:
Exit Sub

Err_ReviewProducts_Click:
MsgBox Err.Description
Resume Exit_ReviewProducts_Click

End Sub

问题解答：

插入组织结构图，在插入----图片----组织结构图里面