记录集不可更新?会的请诣点一下!!

zyz218

请注意<上年在库:出荷:生产>那个窗体,一刷新数据时就说:记录集不可更新,在下又遇到麻烦了,望得到帮助!!!!

zyz218

Private Sub Command5_Click()

On Error GoTo Err_Fresh_Click

Dim j As Integer

j = Me.RecordsetClone.RecordCount

Me.Recordset.MoveFirst    For i = 1 To j

        Me.上年在库_1月 = Me.上年计画_1月 - Me.上年出荷_1月 + Me.昨年12月

        Me.上年在库_2月 = Me.上年计画_2月 - Me.上年出荷_2月 + Me.上年在库_1月

        Me.上年在库_3月 = Me.上年计画_3月 - Me.上年出荷_3月 + Me.上年在库_2月

        Me.上年在库_4月 = Me.上年计画_4月 - Me.上年出荷_4月 + Me.上年在库_3月

        Me.上年在库_5月 = Me.上年计画_5月 - Me.上年出荷_5月 + Me.上年在库_4月

        Me.上年在库_6月 = Me.上年计画_6月 - Me.上年出荷_6月 + Me.上年在库_5月

        Me.上年在库_7月 = Me.上年计画_7月 - Me.上年出荷_7月 + Me.上年在库_6月

        Me.上年在库_8月 = Me.上年计画_8月 - Me.上年出荷_8月 + Me.上年在库_7月

        Me.上年在库_9月 = Me.上年计画_9月 - Me.上年出荷_9月 + Me.上年在库_8月

        Me.上年在库_10月 = Me.上年计画_10月 - Me.上年出荷_10月 + Me.上年在库_9月

        Me.上年在库_11月 = Me.上年计画_11月 - Me.上年出荷_11月 + Me.上年在库_10月

        Me.上年在库_12月 = Me.上年计画_12月 - Me.上年出荷_12月 + Me.上年在库_11月

        Me.Recordset.MoveNext

    Next i

    Exit_Fresh_Click:

    Exit SubErr_Fresh_Click:

    MsgBox Err.Description

    Resume Exit_Fresh_Click

   

End Sub

以上代码不知错在那里????

nbzwjyh

我也求

zyz218

WUAZA 海狸先生 在下等你们来帮忙了,,不过我也在努力地找原因,,,但是.....难难难难

zyz218

问题未解,便这是在下能找出毛病并更新后的版本,现打包上来,能帮助的请指点一下,一起进步,暂时和我一样找不到原因请顶一下,,多谢了!!!

zyz218

代码没问题,关键是不知为什么不能从窗体中输入数据????数据未锁定啊!!!!!!!!!!!!!!!!!!!!11

zyz218

为什么不能从窗体录入数据呢?????在下实在想不通了!!!!

zyz218

一个窗体只能对一个表的数据进行录入吗?不能同时对应多个表???

wuaza

你的窗体的记录源是一个复杂的具有很多一对多关系的查询，所以你无法对基于该查询的基础表进行更新。查询或查询字段解决方案基于具有多对一对多关系的三个或更多表的查询。当窗体的“记录集类型”属性设置为“动态集（不一致的更新）”时，虽然不能直接更新查询中的数据，但可以更新基于该查询的窗体或中的数据。

zyz218

谢谢李大侠了,使在下没钻死胡洞,,呵呵,我想想别的方法