金额转换成中文大写

Private Sub Command转换_Click()

If Me.金额数字 <> "" Then

    If IsNumeric(Me.金额数字) = True Then

        Me.金额大写 = rmb(Me.金额数字)

    Else

    MsgBox "请输入数字"

    Exit Sub

    End If

End If

End Sub

Public Function rmb(s As Currency) As String    '人民币转大写

Dim s1, s2, l, x

    s1 = LTrim(CStr(Abs(s)))

    l = Len(s1)

    Select Case l - InStrRev(s1, ".")

    '双引号内是小数点

       Case l

         s2 = s1 + ".00"

       Case 1

         s2 = s1 + "0"

       Case 2

         s2 = s1

    End Select

    l = Len(s2)

    Dim dx, c1, c2

    dx = ""

    c1 = "零壹贰叁肆伍陆柒捌玖"

    c2 = "分角 元拾佰仟万拾佰仟亿拾佰"

    '角和元之间留一个空格

     Do While l >= 1

     x = Mid(s2, Len(s2) - l + 1, 1)

     

    

    If x <> "." Then

    dx = dx + Mid(c1, Val(x) + 1, 1) + Trim(Mid(c2, (l - 1) + 1, 1))

    End If

     l = l - 1

     Loop

     rmb = dx + "整"

End Function

进入窗体设计视图

Private Sub Command打开_Click()

If Me.窗体列表 <> "" Then

DoCmd.Minimize

DoCmd.OpenForm Me.窗体列表, acDesign

End If

End Sub

Private Sub Command设计视图_Click()

DoCmd.OpenForm "演示窗体", acDesign

End Sub

链接外部数据库只能查看数据

Private Sub Form_Load()

Dim df_conn As New ADODB.Connection

'------------------------------------------------------------------

With df_conn

    .Provider = "microsoft.ace.oledb.12.0;Jet OLEDB:Database Password='abc123'"

    .ConnectionString = CurrentProject.Path & "\报价表.accdb"

    .Open

End With

'------------------------------------------------------------------

Dim dflink_rs As New ADODB.Recordset

dflink_rs.CursorLocation = adUseClient

Dim dflink_sql As String

dflink_sql = "SELECT * FROM 商品报价表"

dflink_rs.Open dflink_sql, df_conn, adOpenDynamic, adLockOptimistic

Set Me.Recordset = dflink_rs

dflink_rs.Close

Set dflink_rs = Nothing

df_conn.Close

Set df_conn = Nothing

Exit Sub

数据获取失败:

MsgBox Err.Description

End Sub