Office中国论坛/Access中国论坛

标题: 作个可以替代电话手工拨号程序的Access数据库 [打印本页]

作者: j13583 时间: 2006-2-18 01:21
标题: 作个可以替代电话手工拨号程序的Access数据库
本帖最后由 j13583 于 2014-9-27 16:14 编辑
使用环境:

当你是一个跟单员，当你是一个文员，面对一大堆客户、供应商的名片，要找到一个客户的电话，之后又要拨公司一长串电话密码再拨长途...

其他功能：点击直接发邮件、打开网站...... 当然你将它安装到U盘，你就拥有一个无敌的通讯录.

系统要求：

1.硬件

(1)有拨号功能的modem（基本上有的啦)

(2)电话线，已开通的（呵，基本的啦）

2.软件

(1)操作系统 Microsoft windows 98/2000/XP/2003

(2)应用程序： Microsoft Office 2000/XP/2003

3.配置

你必须配置好你的拨号，例如当地区号，拨号使用的设备（Modem）等

以上仅为简化的版本，有兴趣的可MSN交流：kehuj@msn.com

[此贴子已经被作者于2006-4-13 12:21:04编辑过]

故地重游，常自觉自己伴随着access-cn网站的成长,也见证了网站的一些迁移，自己发展，却贡献不多，从office97到当今的office2010，tmtony站长付出了很多心血！回看当年自己做的这个小玩意，很不值一提，没想到收到网友这么多褒贬，算是关注和关照吧。今天把当时的小玩意源码全丢出来，见证当时我的不成才吧。

[此贴子已经被作者于2014-7-25 14:55:00编辑过]

再回首，得更多谦卑，再低思，获更多睿智。

版主，想取消[主题售价]，设置为0，却好象不能生效。

[此贴子已经被作者于2014-9-27 16:21:04编辑过]

售价已成功取消。

作者: dhwx 时间: 2006-2-24 06:56
能不能上个MDB的？

学习学习

作者: 5988143 时间: 2006-2-24 06:57
什么好料,看看先

作者: wwffei 时间: 2006-3-1 05:01
谁能破了他的密码??????[em01][em01][em01][em01][em06][em06][em06]

作者: pooon 时间: 2006-3-14 21:44
界面颜色不顺

作者: 219jenny 时间: 2006-3-26 09:43
看看～

作者: Ⅶ 时间: 2006-4-9 05:30
支持一下...

作者: fan0217 时间: 2006-4-23 19:32
下面是个自动拨号的函数:

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

作者: 888xiangyang 时间: 2006-5-5 05:32
access 本身就有这一功能！！至今我还用的好好的！！！

作者: jollyhua 时间: 2006-5-25 20:55
有创意!

作者: jollyhua 时间: 2006-5-25 20:55
不错不错

作者: c5520229 时间: 2006-7-24 07:36
强啊

作者: yxc197910 时间: 2006-8-10 19:33
还有密码？

作者: huangqinyong 时间: 2006-8-16 00:22
thanks

作者: ffgg333 时间: 2006-12-22 20:34
支持一下...有创意!

作者: longsw 时间: 2007-8-17 16:22
可以正常使用吗

作者: poly 时间: 2007-9-6 20:38
看看~~~~~~~~~~~

作者: yori2007 时间: 2008-3-4 13:02

作者: 真主 时间: 2008-3-7 19:24
买了还要回复

作者: gszsu 时间: 2008-5-6 11:47
标题: 回复 1# 的帖子
研究中.....

作者: hunrybecky 时间: 2008-5-6 15:05
不错。。。。。。。。。。。支持

作者: zhuhaizb 时间: 2008-5-22 18:22
[:50]

作者: qqaabbcc 时间: 2008-6-5 10:39
看看

作者: zhaohuaw 时间: 2008-6-20 11:45
高手无所不在！

作者: zhaohuaw 时间: 2008-6-20 11:53
没有钱，下载不了！！

作者: zhaohuaw 时间: 2008-6-20 11:56
给钱了这么下载不了啊！

作者: lkh 时间: 2008-7-4 12:30
[:50] [:50] [:50]

作者: andy479 时间: 2008-7-11 11:44
ddddddddddddddddddddddddddddddddd

作者: wancj 时间: 2008-7-14 18:22
开眼界，希望高手提供免费的午餐!

作者: wf0794 时间: 2008-7-29 11:19
顶赌东道

作者: wf0794 时间: 2008-7-29 11:20
顶不错

作者: rcj811 时间: 2008-9-18 16:05
滿以意思的!學習中!

作者: yanwei82123300 时间: 2008-10-14 12:29

[:42]

作者: darwenli 时间: 2008-10-18 15:03
learn it first

作者: xingzhihao 时间: 2008-10-18 15:15
learn it first

作者: apple_a1 时间: 2008-11-17 14:30
钱付了

作者: wingerliu 时间: 2008-11-23 16:13
已付钱了

作者: wingerliu 时间: 2008-11-23 16:16
不知为何没有下载成功

作者: hyxwd 时间: 2009-2-1 14:00
看看！！！！！！！！！

作者: liuxinquan 时间: 2009-3-9 12:25
能不能上个MDB的？

学习学习

作者: liuxinquan 时间: 2009-3-9 12:26
什么好料,看看先

作者: chen810 时间: 2009-3-22 22:50

作者: 20021212 时间: 2009-3-23 16:00
51615156516

作者: narcissus82 时间: 2009-5-21 16:50
现在公司需要这个

作者: nongfu 时间: 2009-5-24 16:39
了解一下

作者: nongfu 时间: 2009-5-24 16:43
下了试试看
但是最好能分享一下里面的源代码

作者: ztxdy4 时间: 2009-5-25 09:31
作个可以替代电话手工拨号程序的Access数据库

作者: ztxdy4 时间: 2009-5-25 09:32
作个可以替代电话手工拨号程序的Access数据库

作者: ztxdy4 时间: 2009-5-25 09:33
本帖隐藏的内容需要回复才可以浏览

作者: 陈冲 时间: 2009-6-7 17:48
很好

作者: 陈冲 时间: 2009-6-7 17:50
抢了钱又没下起，真倒霉

作者: jsan999 时间: 2009-6-14 14:51
mmmmmmmmmmmm

作者: zdm2003 时间: 2009-10-6 14:04
学习一下！谢谢提供！

作者: 82077802 时间: 2009-10-6 14:23
学习~需要理由吗？！

作者: 82077802 时间: 2009-10-6 14:30
mde的！大家不要下了

作者: 123654fs 时间: 2009-10-9 20:44
顶个先

作者: yongli99 时间: 2009-10-9 21:24

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

作者: yongli99 时间: 2009-10-9 21:25
破了他的密码

...........

作者: yongli99 时间: 2009-10-9 21:31
这么简单的代码,还要扣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
8# fan0217

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

作者: 13601812106_01 时间: 2009-11-1 00:20
什么好料,看看先

作者: cyj759 时间: 2009-11-15 09:34
非常好

作者: cyj759 时间: 2009-11-15 09:35
好的

作者: like5188 时间: 2009-11-23 10:44
dddddddd

作者: boss654321 时间: 2009-12-30 16:47
你也太不厚道了噻，说了2金币，却花了我4金币。

作者: c101 时间: 2009-12-30 22:44
謝謝分享

作者: youchytan 时间: 2010-2-27 17:26
有创意!

作者: gaofei186 时间: 2010-8-11 19:55
看看一下

作者: pw4321 时间: 2011-4-21 09:46
怎么下载不了啊

作者: owea 时间: 2011-5-10 20:19
学习了

作者: jingan 时间: 2011-7-28 15:51
学习，学习

作者: 小何 时间: 2011-9-29 08:31
可以看源码吗

作者: 孤独剑卫 时间: 2011-12-12 21:45
有创意!

作者: zznjsc 时间: 2014-6-5 09:18
研究中.....

作者: zpy2 时间: 2014-7-5 06:33
谢谢了！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)