Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

声音报警

虽虽TV　发表于：2019-09-10 09:54:21 　

各位老师好！模仿麦田老师的声音报警，http://www.accessoft.com/article-show.asp?id=5394，想做一个出入“报警器”，首先在表里保存学生信息，在窗体里读取某学生的身份证号后，对应的姓名就显示出来，如果系统里没有此人，姓名框里为空，当姓名框为空时，发出报警。请高手帮忙。附件

虽虽TV 发表于：2019-09-14 21:34:37

点击下载此附件刚刚才发现附件没连接，重新传来

Top

gemeng 发表于：2019-09-15 10:10:47

Private Sub 身份证号_AfterUpdate()

Me.姓名 = Me.身份证号.Column(1)

If IsNull(Me.姓名) Then ’加入身份证号更新后事件
DoCmd.OpenForm "播放声音"
End If

End Sub

感觉多余，身份证号是复选框，复选框没有名字当然也就没有了，除非是用扫描身份号码验证姓名

Top

虽虽TV 发表于：2019-09-16 22:12:32

gemeng　非常感谢，正是要扫码

Top

虽虽TV 发表于：2019-09-16 23:29:44

再次感谢gemeng老师再问：系统里无某人时，发出敬告，已经实现，当系统里存在某人（姓名框内出现了人名），则发出“”请通行“”的语音，如何实现？��ش˸��

Top

chinasa 发表于：2019-09-17 08:05:35

if len(forms!frmopen!姓名)>0 then

DoCmd.OpenForm "播放声音"
end if

Top

gemeng 发表于：2019-09-18 07:59:52

最简单的方法，再复制一个播放声音窗体，比如命名为“播放声音2” 把录制的WAV格式声音命名为“请通行”放到目录下，然后把播放声音2 窗体里这个声音路径代码改

Call fPlayStuff(CurrentProject.Path & "\WAV\请通行.wav", 1)

If Not IsNull(Me.姓名) Then ’加入身份证号更新后事件
DoCmd.OpenForm "播放声音2"
End If

Top

总记录：6篇页次：1/1 9 1 :

Access软件网版权所有 CopyRight 2006-2030
上海盟威软件有限公司提供支持
沪ICP备12024966号-4