求助ing

wonderfeng

我在做将me.item_no赋值给recordset (rs("item_no"))的时候怎么会有这样的提示

运行时错误 3201

eof 或 bof 有一个是真，或当前记录已被删除，所需要的操作要求一个当前记录

我用rs.eof=true 和 rs.bof=true 结果显示都为真

我要怎么来解决，我是用for循环来实现的

for i=1 to rs.recordsetcount

…………

andymark

完整代码或上传例子

tz-chf

结果都是真，就是记录集中无记录

fan0217

上传你的示例.

如果都是真，应该是记录集中没有记录.不过还是需要例子来验证.

wonderfeng

可能太大了，传不上

对，记录集中的确没有记录

不过我现在是想把text 里的文本放到记录集中去

Private Sub Command41_Click()

Dim stemp As String
Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
stemp = "select * from guidance"

   rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    If IsNull(Me.Text29) = True Then
       MsgBox "没有加入工艺指导", vbOKOnly, "警告"
       Me.item_no.SetFocus
    Else
       If rs.BOF = True Then
       MsgBox "bof"
       Else
       rs("item_no") = Me.item_no
       rs("item_desc") = Me.item_desc_1
       rs("supervise") = Me.Text29
    rs.Update
    MsgBox "添加完成", vbOKOnly, "添加完成"
       End If
    End If
   
   
End Sub

wonderfeng

还有一个问题：

我想把表中超级链接的字段赋值给文本框，怎么弄

这样好像是不对：me.dnc=rs("dnc")

wonderfeng

Private Sub Command16_Click()
On Error GoTo err_Command16
Dim stemp As String
Dim rs As ADODB.Recordset
Dim i As Integer


Set rs = New ADODB.Recordset
stemp = "select * from DNC"

rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

  If IsNull(Me.DNC) = True Or IsNull(Me.oper_no) = True Then
     MsgBox "没有添加DNC", vbOKOnly, "警告"
     Me![DNC].SetFocus
  Else
     rs.MoveFirst
     For i = 1 To rs.RecordCount
         If Me.item_no = rs("item_no") And Me.rtg_no = rs("rtg_no") And Me.oper_no = rs("oper_no") Then
         MsgBox "不能重复加入", vbOKOnly, "警告"
         Me.oper_no.SetFocus
        
        Else
     rs.AddNew
     rs("item_no") = Me.item_no
     rs("item_desc_1") = Me.item_desc
     rs("rtg_no") = Me.rtg_no
     rs("oper_no") = Me.oper_no
     rs("dnc") = Me.DNC
     rs("memo") = Me.memo
     rs.Update
     MsgBox "添加完成!", vbOKOnly, "添加完成"
    End If
   rs.MoveNext
   Next i
  End If
exit_Command16_click:
  Exit Sub
err_Command16:
  MsgBox Err.Description
  Resume exit_Command16_click
  
  
End Sub

fan0217

把例子简化后传上来。没有叫你传完整的例子。

wonderfeng

文件太大啊，我也不知道怎么上传

第一个问题手风琴帮我解决了，太谢谢了

第二个问题比较棘手

Private Sub oper_no_lostfocus()
Dim rs As ADODB.Recordset
Dim stemp As String

Set rs = New ADODB.Recordset
stemp = "select * from DNC where item_no='" & Me![item_no] & "'and rtg_no='" & Me![rtg_no] & "' "

rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Find "[OPER_no]=" & Me![oper_no]

报错这里  Me![DNC] = rs("DNC")   

           DNC是链接字段提:你为该字段输入的值无效（是不是链接字段赋值和别的不一样啊）

End Sub