SQL 将查询到的记录对应字段的值填入窗体对应位置时出错了

danhanqing

在网上查来查去，还是没弄明白错在哪里……特上来请教！

数据库练习.rar (607.99 KB, 下载次数: 7)

2017-10-13 21:38 上传

点击文件名下载附件

意图：当单据编号存在时（同单号的最多不超过5条，就是常见的收据那种，一单会有多项内容，但单据号是一样的），将同单号的对应字段内容回填到窗体对应位置。
出错：对象打开时，不允许操作！

Private Sub 出货开单_单据编号_Change()
If Len(Me.Controls(页面名称 & "_" & "单据编号")) <> 7 Then Exit Sub
    Call LinkDB(Conn) '连接access数据库模块
    sql = "select 日期,单据编号,业务类别,单位名称,商品名称,品牌规格,核心参数,单位 from 财务结算总表 where val(单据编号)='" & Me.Controls(页面名称 & "_" & "单据编号").Text & "'"
    Rs.Open sql, Conn, 1, 3
    Do While Not Rs.EOF
            Me.Controls(页面名称 & "_" & "单位名称") = Rs.Fields("单位名称")     ‘ 这种格式表达如果改为：msgbox Rs.Fields("单位名称")时，又是正常的！
            Me.Controls(页面名称 & "_" & "单据日期") = Rs.Fields("单据日期")
        For i = 1 To Rs.RecordCount
            Me.Controls("业务类别" & i) = Rs.Fields("业务类别")
            Me.Controls(页面名称 & "_" & "商品名称" & i) = Rs.Fields("商品名称")
            Me.Controls(页面名称 & "_" & "品牌规格" & i) = Rs.Fields("品牌规格")
            Me.Controls(页面名称 & "_" & "核心参数" & i) = Rs.Fields("核心参数")
            Me.Controls(页面名称 & "_" & "备注" & i) = Rs.Fields("备注")
            Me.Controls(页面名称 & "_" & "数量" & i) = Rs.Fields("数量")
            Me.Controls(页面名称 & "_" & "单位" & i) = Rs.Fields("单位")
            Me.Controls(页面名称 & "_" & "单价" & i) = Rs.Fields("单价")
            Me.Controls(页面名称 & "_" & "金额" & i) = Rs.Fields("金额")
        Rs.MoveNext
        Next
    Loop
    Conn.Close
    Set Rs = Nothing
End Sub

huang1314wei

你光贴个图，发点代码上来是没有用的，你需要把文件发上来，因为只有运行你的代码，我们才能分析出来原因在哪里

xyxcc177

sql = "select 日期,单据编号,业务类别,单位名称,商品名称,品牌规格,核心参数,单位 from 财务结算总表 where  单据编号)= " & Me.Controls(页面名称 & "_" & "单据编号").Text  '单据编号是数值型，不加引号
    Rs.Open sql, Conn, 1, 3
   
            Me.Controls(页面名称 & "_" & "单位名称") = Rs.Fields("单位名称")     ‘ 这种格式表达如果改为：msgbox Rs.Fields("单位名称")时，又是正常的！
            Me.Controls(页面名称 & "_" & "单据日期") = Rs.Fields("单据日期")
        For i = 1 To Rs.RecordCount
            Me.Controls("业务类别" & i) = Rs.Fields("业务类别")
            Me.Controls(页面名称 & "_" & "商品名称" & i) = Rs.Fields("商品名称")
            Me.Controls(页面名称 & "_" & "品牌规格" & i) = Rs.Fields("品牌规格")
            Me.Controls(页面名称 & "_" & "核心参数" & i) = Rs.Fields("核心参数")
            Me.Controls(页面名称 & "_" & "备注" & i) = Rs.Fields("备注")
            Me.Controls(页面名称 & "_" & "数量" & i) = Rs.Fields("数量")
            Me.Controls(页面名称 & "_" & "单位" & i) = Rs.Fields("单位")
            Me.Controls(页面名称 & "_" & "单价" & i) = Rs.Fields("单价")
            Me.Controls(页面名称 & "_" & "金额" & i) = Rs.Fields("金额")
        Rs.MoveNext
        Next
   

danhanqing

huang1314wei 发表于 2017-10-13 21:05
你光贴个图，发点代码上来是没有用的，你需要把文件发上来，因为只有运行你的代码，我们才能分析出来原因在 ...

已上传附件，请老师指教！谢谢！

danhanqing

xyxcc177 发表于 2017-10-13 21:32
sql = "select 日期,单据编号,业务类别,单位名称,商品名称,品牌规格,核心参数,单位 from 财务结算总表 whe ...

    sql = "select 日期,单据编号,业务类别,单位名称,商品名称,品牌规格,核心参数,单位 from 财务结算总表 where  单据编号= " & Me.Controls(页面名称 & "_" & "单据编号").Text  '单据编号是数值型，不加引号
    Rs.Open sql, Conn, 1, 3
   
            Me.Controls(页面名称 & "_" & "单位名称") = Rs.Fields("单位名称")
            Me.Controls(页面名称 & "_" & "单据日期") = Rs.Fields("单据日期")
还是不正确，到这下面这一行时出现另一种错误：无法设置value 属性，类型不匹配
    Me.Controls(页面名称 & "_" & "单位名称") = Rs.Fields("单位名称")

xyxcc177

Me.Controls(页面名称 & "_" & "单位名称").value = Rs.Fields("单位名称").value

danhanqing

xyxcc177 发表于 2017-10-13 21:50
Me.Controls(页面名称 & "_" & "单位名称").value = Rs.Fields("单位名称").value

还是老问题：对象打开时，不允许操作！
请老师再帮忙分析一下，谢谢！

danhanqing

xyxcc177 发表于 2017-10-13 21:50
Me.Controls(页面名称 & "_" & "单位名称").value = Rs.Fields("单位名称").value

代码运行出错前，Me.Controls(页面名称 & "_" & "单位名称") = Rs.Fields("单位名称")执行是正常的，单位名称也正确地写入了。

xyxcc177

主要是你的conn中全局变量，一旦打开，你下次再打开时就会提示，解决的办法是不要这样操作，看似省事，实际占用内在，还会在使用时造成混乱，建议conn变量为私有变量，每个过程操作时打开，即使程序中断，变量也不会在内存中了。

danhanqing

danhanqing 发表于 2017-10-13 21:58
代码运行出错前，Me.Controls(页面名称 & "_" & "单位名称") = Rs.Fields("单位名称")执行是正常的，单位 ...

找到原因了，但我不知道怎么改代码！
如果写入单位名称时，我设计为自动读出该单位对应的联系人及电话，这时会自动执行call 子程序的数据库连接，而上级程序这时的状态是已经打开了数据库连接，所以就会出现“对象已经打开，不允许操作”的错误！