Question

Access中窗体设计中遇到了，VBA代码如下

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim strsql As String
strsql = "select * from 借还书表"
rs.Open strsql, CurrentProject.AccessConnection, adOpenKeyset, adLockOptimistic
If readerid.Value <> "" And bookid.Value <> "" Then
rs.AddNew '添加一条新纪录
rs("读者号") = readerid.Value '将文本框中输入的内容赋值给借还书表的对应字段
rs("书号") = bookid.Value
rs("借书日期") = Date
rs("借书期限") = days.Value
rs("是否还书") = False
rs.Update '将新添加的记录保存到借还书表中
Else
MsgBox "读者号和书号不能为空！"
End If
rs.Close

If的那一行，为什么第一个readerid后面的Value没有显示，而后面bookid后面的Valuea显示方法和数据成员未找到。

Answer 1

如果你的readerid 和 bookid 两个文本框。代码这样或衫修改一下

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim strsql As String
strsql = "select * from 借还书表"
rs.Open strsql, CurrentProject.AccessConnection, adOpenKeyset, adLockOptimistic
If readerid <> "" And bookid <> "" Then
rs.AddNew '添加一条新纪录
rs("读者号") = readerid '将文衫空腔本框中输入的内容赋值给借还书表的对应字段
rs("书号") = bookid
rs("借书日期") = Date
rs("借亏滚书期限") = days.Value
rs("是否还书") = False
rs.Update '将新添加的记录保存到借还书表中
Else
MsgBox "读者号和书号不能为空！"
End If
rs.Close

追问

先谢谢你，
按照你的做法，在借书期限的那一行的Value还是显示的方法和数据成员未找到

还有这个Value是我手打的，如果是打了点后，在它默认的那个框框里找不到Value这个选项，是不是需要添加什么新的引用？

追答

ACCESS上文本框是没有 VALUE属性
你可用text属性
如

days.text

text是文本框的默认属性
只写对象名就是引用该属性
就是说
days.text
和
days效果是一样的