Use Access2007 to solve the problem of date capitalization for check printing

As the Treasurer knows, the date of the transfer check is to be capitalized. If you use handwriting, of course, you can directly fill in the upper case, but if the design of special software to play, each check in a fixed position to fill in the capitalization will be cumbersome and unnecessary. Here only to Access2007 design as an example, to this aspect of enthusiasts to provide a way of thinking.

First, design a Access2007 table, add the transfer cheque may need fields, such as the payer name, payer account number, payee name, payment amount, the date of the ticket and so on. The "Out of date" setting is set to the date type, and the default value can be set to "date ()" (that is, today's date). After the table is designed, name save standby.

Second, the new module, and enter the following content--

Public Function udate (mdate as Date, myMD as Integer) as String

' Usage udate (#1/2/2005#, i)

' I=1 00 Wu

' I=2 0

' I=3 0

' i=0 00 Wu, 0 days a month

Dim i As Integer, ID as Integer

Dim Strdt (2) As String, STRs as String

Dim STRD (0 to 9) as String * 1

STRD (0) = "0"

STRD (1) = "One"

STRD (2) = "II"

STRD (3) = "three"

STRD (4) = "Restaurant"

STRD (5) = "WU"

STRD (6) = "Land"

STRD (7) = "Qi"

STRD (8) = "ba"

STRD (9) = "Nine"

For i = mYMD + (mYMD <> 0) To mYMD + (mYMD <> 0) - (mYMD = 0) * 2
If i = 0 Then
iD = Year(mDATE)
strDT(i) = strD(iD \ 1000) & strD((iD \ 100) Mod 10) & strD((iD \ 10) Mod 10) & strD(iD Mod 10)
Else
If i = 1 Then iD = Month(mDATE) Else iD = Day(mDATE)
If iD > 9 Then strS = "拾" Else strS = ""
strDT(i) = strD(iD \ 10) & strS & strD(iD Mod 10)
If iD > 9 And iD Mod 10 = 0 Then strDT(i) = "零" & Left$(strDT(i), 2)
End If
Next
Select Case mYMD
Case 0
Udate = strDT(0) & "年" & strDT(1) & "月" & strDT(2) & "日"
Case Else
Udate = strDT(mYMD - 1)
End Select
End Function

Third, the first step to build a new query based on the table, add the necessary fields. Another write expression in a blank field: "Uppercase: Udate ([Ticket date],0)". Save this query.

In the original table to enter the check information to be printed, "out of the ticket date" field must be entered the correct date.

When you run the query, you will see an uppercase Date field. With this result, both the design form and the design report can be freely referenced.