用access编代码
答案:2 悬赏:80 手机版
解决时间 2021-01-13 04:18
- 提问者网友：火车头
- 2021-01-12 12:31
用access编代码
最佳答案
- 五星知识达人网友：往事埋风中
- 2021-01-12 12:59
双击确认按钮写代码：
docmd.runsql "insert into 图书借阅时间数据库 values('"&学号&"','"&编号&"',now)"
docmd.runsql "update 图书信息数据库 set 借阅情况=1 where 编号="&编号
msgbox "借书成功"
docmd.runsql "insert into 图书借阅时间数据库 values('"&学号&"','"&编号&"',now)"
docmd.runsql "update 图书信息数据库 set 借阅情况=1 where 编号="&编号
msgbox "借书成功"
全部回答
- 1楼网友：鱼忧
- 2021-01-12 13:07
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
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
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯