GoToRecord不能移动，急求高手相助！！

一半一半　发表于：2009-07-18 17:42:36 　

发票代码表四个字段：fpdm,fpID,xsrq,bs    均为字符型数据
fpdm字段中有多条记录，如：0844001，0844051，0844101，0844151，0844201，0844251.。。。。
窗体文本框“起始码” =“0844151”
Me![本数]=3
写如下程序后在运行到红字处提示错，拜托高手给指点一下，先谢谢了！
   Set Rs = New ADODB.Recordset
   StrTemp = "Select * From 发票代码"
   Rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   Rs.MoveFirst
'在“发票代码”表查找是否存在与待保存的发票代码记录相同
   DoCmd.GoToRecord acActiveDataObject, , acFirst
   DoCmd.FindRecord Rs("fpdm") = Me("起始码"), , True, , True
   For i = 1 To Val(Me![本数])
          Rs("xsrq") = Me![销售日期]
          Rs("bs") = "0"
          DoCmd.GoToRecord , , acNext
   Next
   Rs.Update
   Rs.Close

Top

点燃一支烟发表于：2009-07-18 18:08:16

Dim Rec As New ADODB.Recordset
Rec.Open "发票代码", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Rec.MoveFirst
    For k = 1 To Rec.RecordCount
        If Rec!fpdm = Me.起始码 Then

’这里写你需要的操作代码


                Else
            Rec.MoveNext
        End If
    Next k
    With Rec
    .Update
    .Close
    End With

Top

点燃一支烟发表于：2009-07-18 18:10:51

With Rec
    .Update
    .Close
    End With
这段要调整下

Top

一半一半发表于：2009-07-18 18:37:04

运行了一下，没有出现提示，但好像循环多了些，看看了表，只更新了第一条记录，下面两条未更新：

加红字出现你不能移动到制定纪录，去掉红字只能更新第一次记录。

Dim Rec As New ADODB.Recordset
Rec.Open "发票代码", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Rec.MoveFirst
For k = 1 To Rec.RecordCount
If Rec!fpdm = Me.起始码 Then

'这里写你需要的操作代码
            For i = 1 To Val(Me![本数])
                Rec("xsrq") = Me![销售日期]
                Rec("bs") = "0"
                DoCmd.GoToRecord , , acNext
            Next
         Else
            Rec.MoveNext
       End If
    Next k
    With Rec
    .Update
    .Close
    End With

不好意思，请再帮检查一下问题。

Top

点燃一支烟发表于：2009-07-18 19:19:36

光看代码头晕，你最好上传附件，随附件说明你到底要作成一个什么样的效果，可能我的理解有出入，呵呵

Top

一半一半发表于：2009-07-18 20:10:35

问题在：窗体----发票销售记录-----保存按钮

附件：