求教:修改窗体数据，子表也相应变化

点击下载此附件

求教窗体数据与子表数据对应，窗体中的尺码字段值为S,M,L,XL，2XL，子表会自动输入，比如第1条S，第2条M，第3条L.....

即使修改了窗体尺码，子表也相应变化同步，

现在修改了窗体尺码，子表是新添加数据，

求老师修改代码。谢谢。

Private Sub 尺码_AfterUpdate()  

  
Me.Form.Requery

Dim Rs1 As New ADODB.Recordset, Rs2 As New ADODB.Recordset, myStr1 As String, myStr2 As String, Ar As Variant, i As Integer, j As Integer, k As Integer
    myStr1 = "Select * From 表1 where 合同='" & Me.合同 & "'"
    Rs1.Open myStr1, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    myStr2 = "Select * From 表3 where 合同='" & Me.合同 & "'"
    Rs2.Open myStr2, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
        Do Until Rs1.EOF
            Ar = Split(Rs1!尺码, ",")
            For i = 0 To UBound(Ar)
            If Ar(i) <> "" Then
                Rs2.AddNew
                Rs2!尺码 = Ar(i)
                Rs2!合同 = Rs1!合同
                Rs2!颜色 = Rs1!颜色
                
                Rs2.Update
            End If
            Next
        Rs1.MoveNext
        Loop
    Set Rs1 = Nothing
    Set Rs2 = Nothing
    
    Me.Child17.Form.Requery


End Sub