Question

熟悉Access编程的请进来

Private Sub 大写金额_BeforeUpdate(Cancel As Integer)Function dxzh(xx)
Dim xx1
xx1 = Format(xx, "###0.00")
If Len(xx1) = 4 Then dxzh = dxm(Mid(xx1, 1, 1)) & "元" & dxm(Mid(xx1, 3, 1)) & "角" & dxm(Mid(xx1, 4, 1)) & "分"If Len(xx1) = 5 Then dxzh = dxm(Mid(xx1, 1, 1)) & "拾" & dxm(Mid(xx1, 2, 1)) & "元" & dxm(Mid(xx1, 4, 1)) & "角" & dxm(Mid(xx1, 5, 1)) & "分"
If Len(xx1) = 6 Then dxzh = dxm(Mid(xx1, 1, 1)) & "佰" & dxm(Mid(xx1, 2, 1)) & "拾" & dxm(Mid(xx1, 3, 1)) & "元" & dxm(Mid(xx1, 5, 1)) & "角" & dxm(Mid(xx1, 6, 1)) & "分"
If Len(xx1) = 7 Then dxzh = dxm(Mid(xx1, 1, 1)) & "仟" & dxm(Mid(xx1, 2, 1)) & "佰" & dxm(Mid(xx1, 3, 1)) & "拾" & dxm(Mid(xx1, 4, 1)) & "元" & dxm(Mid(xx1, 6, 1)) & "角" & dxm(Mid(xx1, 7, 1)) & "分"
If Len(xx1) = 8 Then dxzh = dxm(Mid(xx1, 1, 1)) & "万" & dxm(Mid(xx1, 2, 1)) & "仟" & dxm(Mid(xx1, 3, 1)) & "佰" & dxm(Mid(xx1, 4, 1)) & "拾" & dxm(Mid(xx1, 5, 1)) & "元" & dxm(Mid(xx1, 7, 1)) & "角" & dxm(Mid(xx1, 8, 1)) & "分"
If Len(xx1) = 9 Then dxzh = dxm(Mid(xx1, 1, 1)) & "拾" & dxm(Mid(xx1, 2, 1)) & "万" & dxm(Mid(xx1, 3, 1)) & "仟" & dxm(Mid(xx1, 4, 1)) & "佰" & dxm(Mid(xx1, 5, 1)) & "拾" & dxm(Mid(xx1, 6, 1)) & "元" & dxm(Mid(xx1, 8, 1)) & "角" & dxm(Mid(xx1, 9, 1)) & "分"
If Len(xx1) = 10 Then dxzh = dxm(Mid(xx1, 1, 1)) & "佰" & dxm(Mid(xx1, 2, 1)) & "拾" & dxm(Mid(xx1, 3, 1)) & "万" & dxm(Mid(xx1, 4, 1)) & "仟" & dxm(Mid(xx1, 5, 1)) & "佰" & dxm(Mid(xx1, 6, 1)) & "拾" & dxm(Mid(xx1, 7, 1)) & "元" & dxm(Mid(xx1, 9, 1)) & "角" & dxm(Mid(xx1, 10, 1)) & "分"
End Function
Function dxm(xxm)
Select Case xxmCase 1
dxm = "壹"
Case 2
dxm = "贰"
Case 3
dxm = "叁"
Case 4
dxm = "肆"
Case 5
dxm = "伍"
Case 6
dxm = "陆"
Case 7
dxm = "柒"
Case 8
dxm = "捌"
Case 9
dxm = "玖"
Case 0
dxm = "零"
End Select
End Function
End Function

我要实现的功能是在付款金额中输入数字，大写金额自动显示，上面是我在网上搜的编程，粘贴进去后，在小写中输入数字没有反应，在大写中输入数字弹出第二张图片的提示，说是编译错误，请问我要怎么修改这个编程才可以实现，付款金额的名称是lablel28，大写金额的名称是label134，修改正确可追加分数，谢谢了





Answer 1

你的代码明显有误！看来你对代码还不熟悉呀。。
Sub 与 End Sub ；Function 与 End Function 是配对出现的。。
一、首先，把你代码中最上面的那行【即：Private Sub 大写金额_BeforeUpdate(Cancel As Integer)】和最下面的那行【即：End Function】去掉。
二、然后，你选中窗体中【大写金额:】后面显示【未绑定】的那个文本框控件，记下控件名称（假设控件名称为Text2）。
三、接着，你再选窗体中【付款金额:】后面显示【未绑定】的那个文本框控件（假设控件名称为Text0）
1、点击右侧属性窗口上方的【事件】选项卡，
2、再点选【更新后】后面的空格，再点Ⅴ按钮选【事件过程】，再点后面的…按钮。
四、最后，在弹出的空白事件过程中写入下面这段代码。也就是把代码复制到光标闪烁处（即 Private Sub Text0_AfterUpdate() 和 End Sub 中间）即可：
注意：必须用上面我提到的 Text0、Text2 两个文本框控件的实际名称替换下面的 Text0、Text2 后才能使代码生效！切记！！

If Text0 = "" Then
Text2 = ""
Else
Text2 = dxzh(Text0)
End If

Answer 2

路过，高手！