设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 535|回复: 8
打印 上一主题 下一主题

[其它] 求助ing

[复制链接]
跳转到指定楼层
1#
发表于 2006-4-9 19:04:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我在做将me.item_no赋值给recordset (rs("item_no"))的时候怎么会有这样的提示

运行时错误 3201

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

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

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

for i=1 to rs.recordsetcount

…………
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-4-9 19:07:00 | 只看该作者
完整代码或上传例子
3#
发表于 2006-4-9 19:35:00 | 只看该作者
结果都是真,就是记录集中无记录
4#
发表于 2006-4-9 20:32:00 | 只看该作者
上传你的示例.

如果都是真,应该是记录集中没有记录.不过还是需要例子来验证.
5#
 楼主| 发表于 2006-4-9 22:06:00 | 只看该作者
可能太大了,传不上

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

不过我现在是想把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
6#
 楼主| 发表于 2006-4-9 22:37:00 | 只看该作者
还有一个问题:

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

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



7#
 楼主| 发表于 2006-4-9 23:39:00 | 只看该作者
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

8#
发表于 2006-4-10 00:36:00 | 只看该作者
把例子简化后传上来。没有叫你传完整的例子。
9#
 楼主| 发表于 2006-4-10 18:36:00 | 只看该作者
文件太大啊,我也不知道怎么上传

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

第二个问题比较棘手

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
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-15 14:32 , Processed in 0.117245 second(s), 32 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表