作个可以替代电话手工拨号程序的Access数据库

陈冲 · 发表于 2009-6-7 17:50:36

抢了钱又没下起，真倒霉

jsan999 · 发表于 2009-6-14 14:51:52

mmmmmmmmmmmm

zdm2003 · 发表于 2009-10-6 14:04:08

学习一下！谢谢提供！

82077802 · 发表于 2009-10-6 14:23:23

学习~需要理由吗？！

82077802 · 发表于 2009-10-6 14:30:11

mde的！大家不要下了

123654fs · 发表于 2009-10-9 20:44:41

顶个先

yongli99 · 发表于 2009-10-9 21:24:48

.....................

yongli99 · 发表于 2009-10-9 21:25:55

破了他的密码

...........

yongli99 · 发表于 2009-10-9 21:31:05

这么简单的代码,还要扣2次金钱

...............
Function CallPhone(stDialStr As String) As Boolean
'调用: Call CallPhone("01012345678")
On Error GoTo Err_CallPhone

Const ERR_OBJNOTEXIST = 2467
Const ERR_OBJNOTSET = 91
Const ERR_CANTMOVE = 2483

Application.Run "utility.wlib_AutoDial", stDialStr

CallPhone = True

Exit_CallPhone:
Exit Function

Err_CallPhone:
If (Err = ERR_OBJNOTEXIST) Or (Err = ERR_OBJNOTSET) Or (Err = ERR_CANTMOVE) Then
CallPhone = False
Resume Next
End If
MsgBox Err.Description
Resume Exit_CallPhone

End Function

唐玉娥 · 发表于 2009-10-29 00:07:43

8# fan0217

看不懂，什么叫自动拨号？

帐号		自动登录	找回密码
密码			注册

主题相关群

地区相关群[您还没设置居住地]

作个可以替代电话手工拨号程序的Access数据库

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)

群介绍
主题无相 (随机显示版	同地区群块其他地区)