紧急求助

yjs1433

我用ACCESS与WORD作了一个邮件合并,生成业务合同,有三个问题请教!!!

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

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

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

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

一点通

请将标题修改, 写出简要内容

eyewitnes

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、按钮向导中有对应的选项