北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
我设计了两个表,一个是欠药表,一个是还药表,尚欠药品数量用联合查询得到的,做了两个窗体,一个是frm_欠药表,一个是frm_还药,单击frm_欠药表窗体任一单元格,弹出frm_还药窗体,填上还药数量,点击确认还药,但药品加入不到还药表中去.查了多次,没有发现什么问题.只有请老师们给我解答,非常感谢!
Private Sub 确认还药_Click()
On Error Resume Next
Dim q
q = DCount("*", "还药查询2", "姓名ID<='" & selectstr & "'")
Forms!frm_欠药表.姓名ID = selectstr
Dim curdb As Database
Set curdb = CurrentDb
curdb.Execute "insert into 还药表 (姓名ID,患者姓名,所欠药品,还药数量,经手人) Values('" & 姓名ID.Value & "','" & 患者姓名.Value & "','" & 所欠药品.Value & "','" & 还药数量.Value & "','" & 经手人.Value & "')"
MsgBox "还药成功!", vbInformation, "还药成功"
DoCmd.Close
Forms!frm_欠药表.姓名ID.SetFocus
Forms!frm_欠药表.Requery
DoCmd.GoToRecord acDataForm, "frm_欠药表", acGoTo, q