用access编代码

用access编代码

双击确认按钮写代码：
docmd.runsql "insert into 图书借阅时间数据库 values('"&学号&"','"&编号&"',now)"
docmd.runsql "update 图书信息数据库 set 借阅情况=1 where 编号="&编号
msgbox "借书成功"

1）窗体已确定数据源为“图书借阅时间数据库”
2）图书编号可以改成组合框，其数据来源为“图书信息数据库”中的图书编号查询结果
3）设三个框的名称分别为T1,T2,T3
4) T3=data（）
5)
Private Sub Command1_Click()

me.学号=T1
me.图书编号=T2
me.借书日期=T3

DoCmd.GoToRecord , , acNewRec

Dim db As Database
Dim rss As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("图书信息数据库")
rs.movefirst
do while not rs.eof
if rs.field("图书编号")=T2 then
rs. field("借阅情况")=1
exit do
end if
rs.movenext
loop
if not rs.eof then
msgbox("借书成功")
rs.update
end if
rs.close
db.close
End Sub