建立图书信息管理系统 遇到问题 您不能将数值指定给这个对象

小清新

就是 借书信息添加 的窗体代码总是有问题 这个窗体应该输入  图书证编号 姓名 图书编号 书名 借出时间  应还时间  这几个文本
因为窗体对应的表是 借阅归还表 有图书证编号 图书编号 借出时间 应还时间 还书时间 这几个属性 编码后总是跳出 您不能将这个数值指定给这个对象 的提示 。。。。。要疯了 现附码如下 希望大神教教我这个新手{: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学习交流

请上传附件！！

小清新

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

小清新

access学习交流

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

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