子窗体记录三级联动怎么做

http://www.accessoft.com/article-show.asp?id=10193

刷新代码：

Private Sub Command7_Click()
On Error GoTo Err_Command7_Click

DoCmd.OpenForm "增加材料信息"
 
Exit_Command7_Click:
    Exit Sub

Err_Command7_Click:
    MsgBox Err.Description
    Resume Exit_Command7_Click
   
End Sub