Office中国论坛/Access中国论坛
标题:
紧急求助
[打印本页]
作者:
yjs1433
时间:
2007-5-31 02:50
标题:
紧急求助
我用ACCESS与WORD作了一个邮件合并,生成业务合同,有三个问题请教!!!
1.为什么将文件传到其它人电脑后,每次打开WORD都要重新进行数据源连接.
2.如何将ACCESS中的金额小写转换为合同中的大写.
3.可否在ACCESS中设置按钮直按运行指定的WORD文件.
请各位高手不吝赐教!!!!
作者:
一点通
时间:
2007-5-31 07:21
请将标题修改, 写出简要内容
作者:
eyewitnes
时间:
2007-5-31 16:01
2、小写转大写
Public Function URmb(ByVal Money As Currency) As String
'一个简单的小写金额转中文的函数
'作者: 海狸先生
Dim i As Integer, strMoney As String
strMoney = StrReverse(Format(Money, "#.##") * 100)
If Len(strMoney) > 14 Then MsgBox "超出范围!": Exit Function
For i = 1 To Len(strMoney)
URmb = Mid$("零壹贰叁肆伍陆柒捌玖", Mid$(strMoney, i, 1) + 1, 1) & Mid$("分角元拾佰仟万拾佰仟亿拾佰仟", i, 1) & URmb
Next
End Function
3、按钮向导中有对应的选项
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3