求解释下这段代码的意思

Private Sub Command210_Click()
If IsNull(Me.ID1) = False Then
If IsNull(Me.[面板]![面板号]) = False And IsNull(Me.[底楦]![跟高]) = False And IsNull(Me.[材料]![面料编号]) = False And IsNull(Me.[颜色]![颜色组合编号]) = False And IsNull(Me.[底幅]![底幅编号]) = False Then
If Me.ID <> "" And Me.ID <> 0 Then
Me.[面板]![面板关联] = Me.ID
Me.[材料]![材料关联] = Me.ID
Me.[底楦]![底楦关联] = Me.ID
Me.[颜色]![颜色关联] = Me.ID
Else
End If
Me.鞋详情.Requery
Me.Recalc
Me.[color_way_ID] = Me.[面板]![面板号] & Me.[底楦]![跟高] & "-" & Me.[材料]![面料编号] & "-" & Me.[颜色]![颜色组合编号]
Me.[商品ID] = Me.[面板]![面板号] & Me.[底楦]![跟高] & "-" & Me.[材料]![面料编号]
Else
If Me.ID <> "" And Me.ID <> 0 Then
Me.[面板]![面板关联] = Me.ID
Me.[材料]![材料关联] = Me.ID
Me.[底楦]![底楦关联] = Me.ID
Me.[颜色]![颜色关联] = Me.ID
Else
End If
Me.鞋详情.Requery
Me.Recalc
MsgBox ("面板号、跟高、面料编号、颜色组合编码必须填写规范完整!")
Me.[面板]![面板号].SetFocus
End If
Else
MsgBox ("请先点击'点击新输入'按钮，输入后才能保存!")
End If
End Sub