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

j13583

使用环境:

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

其他功能：点击直接发邮件、打开网站...... 当然你将它安装到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

能不能上个MDB的？

学习学习

5988143

什么好料,看看先

wwffei

谁能破了他的密码??????[em01][em01][em01][em01][em06][em06][em06]

pooon

界面颜色不顺

219jenny

看看～

Ⅶ

支持一下...

fan0217

下面是个自动拨号的函数:

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

access 本身就有这一功能！！至今我还用的好好的！！！

jollyhua

有创意!