怎样才能做到循环呢？

13601812106_01

如何做到点“保存”后，子窗体的数据按代码、出入方式和日期填写到“要填表”表中，目前，在一位朋友的帮助下，我只做到了最上面的一条记录填写上了，可惜，做不到循环？

Henry D. Sy

同样的问题不要重复发帖。

13601812106_01

leijiqiang朋友能再帮我一次 吗，我工作中常做这样的无用功，把时间都浪费了

djt

with 子窗体.form.recordsetclone
.movefirst
do until .eof
保存
.movenext
loop
end with

13601812106_01

很感谢4楼朋友，但还是不行，可能是我的水平太差了，能在我附件中改一下吗，本人不盛感激。

djt

现在只有97版，帮不了了

13601812106_01

已转化为97版，能帮我一下吗

djt

replace函数97不能用，你再改过来
Private Sub Command13_Click()
    Dim rs As Recordset
    Dim fld  As Field
    Dim d As Field
    Set rs = CurrentDb.OpenRecordset("select * from  要填表 ")
   
    With Me.记录输入.Form.RecordsetClone
        .MoveFirst
        Do Until .EOF
            rs.FindFirst "代码 = '" & Me!记录输入!代码 & "' and " & "方式 ='" & Me!记录输入!出入方式 & "'"
            If rs.EOF() Then 这里有问题，需要改正 用 RS.NOMATCH
                rs.AddNew
                rs![代码] = Me!记录输入!代码
                rs![方式] = Me!记录输入!出入方式
            Else
                rs.Edit
            End If
            '以日期为列字段来搜索,有,则直接赋值,没有新建字段,再填入值
            Dim m As String
            Dim dt As Date
            dt = Me!记录输入!日期
            m = Year(dt) & "/" & Month(dt) & "/" & Day(dt)
           ' m = Replace(m, "-", "/")
            For Each d In rs.Fields
                If d.Name = m Then
                    rs.Fields(d.Name) = Me.记录输入!数量
                    rs.Update
                End If
            Next d
            .MoveNext
        Loop
    End With
    rs.Close
    Set rs = Nothing
End Sub

13601812106_01

非常感谢，但还是不行，只能第一笔录进去，其他记录还是加不上去

13601812106_01

还能帮我一下吗