编程开发子分类Access2007支票打印日期大写问题的解决方法
作者：佚名
字体：[ ] 来源：互联网 时间：03-22 13:21:23
财务人员都知道，转账支票的出票日期是需要大写的。如果用手写，当然可以直接填写成大写，但如果设计专用软件进行套打，每张支票都在固定位置填写大写会很麻烦，也没有必要。这里仅以access2007设计为例，给这方面的爱好者提供一个思路
　　财务人员都知道，转账支票的出票日期是需要大写的。如果用手写，当然可以直接填写成大写，但如果设计专用软件进行套打，每张支票都在固定位置填写大写会很麻烦，也没有必要。这里仅以access2007设计为例，给这方面的爱好者提供一个思路。
　　一、先设计一个Access2007表，加入转账支票可能需要的字段，比如付款人名称、付款人账号、收款人名称、付款金额、出票日期等等。其中的&出票日期&设成&日期&类型，默认值可以设成&date()&(即当天日期)。表设计好后命名保存备用。
　　二、新建模块，并输入以下内容
　　Public Function Udate(mDATE As Date, mYMD As Integer) As String
　　'用法　Udate(#1/2/2005#, i)
　　'i=1　 贰零零伍
　　'i=2 零壹
　　'i=3 零贰
　　'i=0 贰零零伍年零壹月零贰日
　　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) = &零&
　　strD(1) = &壹&
　　strD(2) = &贰&
　　strD(3) = &叁&
　　strD(4) = &肆&
　　strD(5) = &伍&
　　strD(6) = &陆&
　　strD(7) = &柒&
　　strD(8) = &捌&
　　strD(9) = &玖&
　　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)
　　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
　　Select Case mYMD
　　Case 0
　　Udate = strDT(0) & &年& & strDT(1) & &月& & strDT(2) & &日&
　　Case Else
　　Udate = strDT(mYMD - 1)
　　End Select
　　End Function
　　三、以第一步建的表为基础新建一个查询，加入必要的字段。另在一个空白字段写表达式：&大写: Udate([出票日期],0)&。保存这个查询。
　　四、在原表中录入将要打印的支票信息，&出票日期&字段必须录入正确的日期。
　　五、运行查询，就会看到有一个大写的日期字段。有了这个结果，无论设计窗体，还是设计报表，都可以自由引用了。
大家感兴趣的内容
12345678910
最近更新的内容ACCESS表中，字段设置默认值为本年度的1月1日，答案是DateSerial(Year(Now()),1,1)，对不对？_百度作业帮
ACCESS表中，字段设置默认值为本年度的1月1日，答案是DateSerial(Year(Now()),1,1)，对不对？
ACCESS表中，字段设置默认值为本年度的1月1日，答案是DateSerial(Year(Now()),1,1)，对不对？
正确。Now 函数返回计算机系统内设置的日期和时间；Year函数取和返回表示年份的整数；DateSerial(year, month, day)函数返回以包含指定的年、月、日的Date数据。另外，还可写成DateSerial(Year(Now),1,1)DateSerial(Year(Date),1,1)
扫描下载二维码网友问题： 表中数据有几万条，编号字段数据不规则，问怎么样才能提取年月的数据？ 如：有的显示的是CVTMT，有的则是CVIM,就是英文字母不是统一位数日期数字也不统一,但是只需要取数字的前六位即可，前六位就是年月，如下图，请问怎么实现？ 解决方法：（用自定义函数方式）
'使用方法:GetNumberPart([字段名称])
Function GetNumberPart(Expression As Variant) As Variant
Dim lngI As Long
GetNumberPart = Null
For lngI = 1 To Len(Nz(Expression))
If IsNumeric(Mid(Expression, lngI, 1)) Then
GetNumberPart = Mid(Expression, lngI, 6)
Next End Function
打开示例里面的查询可以看到效果!　
　文章为作者独立观点，不代表微头条立场
的最新文章
休闲一刻：学员问题:同开两台客户端。DoCmd.RunSQL strSql 用这个执行了一个表的查询后，再执行这个表的2016年终奖个人所得税计算器一个人正吸着雪茄，吐着烟圈。他女朋友生气了发飙道，“你没看见包装盒上的警告么？吸烟有害健康！” 那人回答道：“我是程序员。我们不关心警告，只关心错误。”做这个模块的初衷，是因为开发时为了方便，用了Access数据库，但最后完成的时候需要使用 SQ本人是一名IT的业余爱好者，我学习这个软件的想法来源于我们食堂系统中厨师长们天天要做的食品成本一般自动编号功能，是先取得表中的已有最大号，然后在此基础上加1，如果每次生成编号都要从表中去取得最大编还在整天为怎样才能更像一个IT精英而争吵的吐沫横飞的人们，我只能说你们图样图森破啊，看了下面的话，你应该自惭我是一名产品设计师，期间做过企业管理工作，由于工作性质的原因，经常喜欢去收集技术资料等等。去年经九月初我在新西兰举行的Kiwi PyCon会议上做了一个主题为“程序员的有效学习”的主题报告。主要讲到了两个在一个编辑窗体中，我们要知道当前输入焦点在哪里，就得去找输入光标，但是那个光标就只是一个很小的竖线，看摘　要:最简单好用的输入框焦点变色实现方法正　文: 在一个编辑窗体中，我们要知道当前输入焦点在哪里，就得去找在软件开发的领域中，这个有害的编程习惯基本上都是由不良的编码习惯造成的，只有能改变这些不良习惯，你的工作起来摘　要:
我是一名工厂的管理人员，以前在珠三角大型企业做管理，数据的收集和整理比较简单，相对能满足工作需摘　要:自定义选项卡标签页显示位置(导航标签位于左侧的纵向选项卡)的示例正　文:
传统意义上的Ac '====================================================摘　要:最简单好用的输入框焦点变色实现方法正　文:
在一个编辑窗体中，我们要知道当前输入焦点在哪里，就得去摘　要:这里提供了一个通用的数据字典功能，来管理维护这样的下拉列表数据，具体情况请大家看示例。正　文:
全新一代Office（Office 2016）现已正式上市！随Office365立即获得！即Office36odbc链接表不支持Access倒三角筛选器功能,“允许筛选”设为“是”的情况下文本筛选器为某企业定制开发的一套人事管理系统，含人事档案\合同\考评\奖惩等，值得有需要的企业或者个人借鉴参考学习，可本月初的时候，微软宣布最新版本的微软Office系列产品Office 2016将于9月22日大规模上市，拥有【access源码示例】按乘号提取数字\带有分割符号数据的提取示例\按分割符号提取数据\用Split函数、V阿拉伯数字转中文的函数（如：10转十，200转二百，5转五，等）写了个函数供参考学习:摘　要:如何完美实现TreeView控件的节点双击事件捕获.正　文:
TreeView控件本身并没有直近日，ITWorld整理全球最杰出的14位程序员，一起来看下让我们膜拜的这些大神都有哪些？（排名不分先后）1摘　要:数据录入编辑是基于数据库的系统中最常用到的功能，本示例中就其中用到的2项技术或技术进行演示。正　文:我有一个计划，就是等哪天老板坐在我旁边的时候，偷偷打开这个网站的视频，点击全屏，假装是自己在写代码……网友问题： 表中数据有几万条，编号字段数据不规则，问怎么样才能提取年月的数据？ 如：有的显示的是CVTMT2学员问题:同开两台客户端。DoCmd.RunSQL strSql 用这个执行了一个表的查询后，再执行这个表的每个人都会追求完美，在基本上满足了业务需求之后，大多数人都会想让数据变得更安全。数据的安全分为服务端和客微软已经给Win10 Insider预览体验计划成员发送了试用Office 2016预览版的邀请邮件，并希望数据的上移与下移，可以让编号重新按顺序编号，见示例：根据网友要求：怎样用代码来更新表中一个字段 默认值项?方法如下:'字段默认值更改为文本 奥巴马current摘　要:本源码示例提供了如何通过巧妙利用子窗体，结合简单的VBA代码编程，在一个窗体上实现多个计时器事件的功摘　要:　　数据输入界面往往占终端用户的大部分使用时间，也是计算机系统中最易出错的部分之一。其总目标：简化用所有应用在发布新版本时都会同时发布更新日志，目的是为了方便用户能够更直观的了解新版本特性，但是一些不靠谱的程首先，欢迎来到程序员的世界。在这个世界上，不是有很多人想创造软件并解决问题。你是一名hacker，属于那些愿动态连续产生序号能不能掌握控件的使用，是业余向准专业进步的关键。虽然我本人不太喜欢用控件，因为基于不同的操作“程序猿”越来越年轻了，80后和90后已成为中国开发者群体的中坚力量。在昨日召开的IBM Bluemix云计摘　要:
无意中用文本编辑器打开MDE时发现会有一些定义在模块中的常量会显示出来，比如IP地址，后台用户网友问题:在对应的数据表窗体，学习过网站上的上一条，下一条这样的操作示例，但不知道怎么做选择第几条记录就跳转 快速开发平台 2.1.2 版发布功能改进登录界面的用户名记忆列表增加删除功能。优化调整AccessoftAccess软件网主办，旨在为Access爱好者提供相关的资讯与服务热门文章最新文章AccessoftAccess软件网主办，旨在为Access爱好者提供相关的资讯与服务 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
access与SqlServer_之时间与日期及其它SQL语句比较
下载积分：30
内容提示：access与SqlServer_之时间与日期及其它SQL语句比较
文档格式：PDF|
浏览次数：143|
上传日期： 00:11:42|
文档星级：
该用户还上传了这些文档
access与SqlServer_之时间与日期及其它SQL语句比较
官方公共微信