Office中国论坛/Access中国论坛

标题: 紧急求助 [打印本页]

作者: yjs1433 时间: 2007-5-31 02:50
标题: 紧急求助
我用ACCESS与WORD作了一个邮件合并,生成业务合同,有三个问题请教!!!

1.为什么将文件传到其它人电脑后,每次打开WORD都要重新进行数据源连接.

2.如何将ACCESS中的金额小写转换为合同中的大写.

３．可否在ＡＣＣＥＳＳ中设置按钮直按运行指定的ＷＯＲＤ文件．

请各位高手不吝赐教！！！！

作者: 一点通 时间: 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/)