[5分]主窗体可以自由引到指定子窗体的值

Private Sub 年_AfterUpdate()
    Dim ssql As String
    On Error Resume Next
    CurrentDb.Execute "delete * from sheet2"
    ssql = "insert into sheet2(年,币种,一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月) "
    ssql = ssql & "select 年,币种,一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月 from sheet3 where 年='" & Me.年 & "'"
    CurrentDb.Execute ssql
    Form_主窗体.子窗体0.Requery
End Sub