Office中国论坛/Access中国论坛

标题: 建立图书信息管理系统遇到问题您不能将数值指定给这个对象 [打印本页]

作者: 小清新 时间: 2013-8-15 23:21
标题: 建立图书信息管理系统遇到问题您不能将数值指定给这个对象
就是借书信息添加的窗体代码总是有问题这个窗体应该输入图书证编号姓名图书编号书名借出时间应还时间这几个文本
因为窗体对应的表是借阅归还表有图书证编号图书编号借出时间应还时间还书时间这几个属性编码后总是跳出您不能将这个数值指定给这个对象的提示。。。。。要疯了现附码如下希望大神教教我这个新手{:soso_e105:}

Private Sub Command12_Click()
On Error GoTo Err_cmdadd_click
Dim rs As New ADODB.Recordset
Dim str As String
If IsNull(Me.图书证编号) Then
MsgBox ("请输入图书证编号！")
ElseIf IsNull(Me.图书编号) Then
MsgBox ("请输入图书编号！")
ElseIf IsNull(Me.借出时间) Then
MsgBox ("请输入借出时间！")
ElseIf IsNull(Me.应还时间) Then
MsgBox ("请输入应还时间！")
Else
str = "select library_ID,name,book_ID,out_time,should_in_time from 借阅归还表"
Set rs = GETRS(str)
With rs
.AddNew
!library_ID = Trim(Me.图书证编号)
!name = Trim(Me.姓名)
!book_ID = Trim(Me.图书编号)
!out_time = Trim(Me.借出时间)
!should_in_time = Trim(Me.应还时间)
.Update
End With
rs.Close
MsgBox ("借书成功！记得按时归还！")
With Me
.图书证编号 = ""
.姓名 = ""
.图书编号 = ""
.书名 = ""
.借出时间 = ""
.应还时间 = ""
End With
End If
Exit Sub
Err_cmdadd_click:
MsgBox Err.Description

End Sub

作者: access学习交流 时间: 2013-8-16 09:59
请上传附件！！

作者: 小清新 时间: 2013-8-16 13:41
我把With Me
.图书证编号 = ""
.姓名 = ""
.图书编号 = ""
.书名 = ""
.借出时间 = ""
.应还时间 = ""
End With 都删掉问题就解决了如果我在此基础上还想将图书信息表中对应的是否在架这一项修改为 “否” 那应该加什么代码呢？

作者: 小清新 时间: 2013-8-16 13:43
[attach]52337[/attach]

作者: access学习交流 时间: 2013-8-17 10:05

小清新发表于 2013-8-16 13:41
我把With Me
.图书证编号 = ""
.姓名 = ""

一样的啊，update 图书信息表 set 是否在架="否" 就可以了！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)