注册 登录
Office中国论坛/Access中国论坛 返回首页

todaynew的个人空间 http://www.office-cn.net/?144436 [收藏] [复制] [分享] [RSS]

日志

分享 告T丝诸朋友书
2010-7-15 17:02
  本来想在五一节整理一下【Access小品】,便在日志中开了两个题目,一个叫做《【Access小品】2009年作品集》,一个叫做《【Access小品】2010年作品集》。可是一偷懒便也就把这件事情摆下了,最后连自己也忘记还有这两个题目没有写。   Officc改版的时候,看见自己这两个日志的题目挂在首页,便也就进去看了看。发 ...
个人分类: 闲话|3028 次阅读|5 个评论 热度 11
分享 【Access小品】2010年作品集
2010-5-1 07:31
2010年7月15日整理。 【Access小品】数据表子窗体列宽锁定   Access开发者版友kris3000同志提出了一个锁定数据表子窗体列宽的问题。 记得曾经有过一个版友提出过另外一个连续子窗体列宽调整的问题,这个问题好 像一直没有很好的解决。看来这两类窗体在列宽的可调整与不可调整 ... 版块:Access常规交流, 作者: ...
个人分类: 习作|23173 次阅读|17 个评论 热度 31
分享 【Access小品】2009年作品集
2010-5-1 07:30
2010年7月15日整理。 【Access小品】列表框内定位多行选择及取值实例 版块:Access常规交流, 作者: todaynew , 查看: 500, 回复: 26, 发布时间: 2009-12-22 地址: http://www.access-cn.com/forum.php?mod=viewthreadtid=79144highlight=%A1%BEAccess%D0%A1%C6%B7%A1%BF%C1%D0%B1%ED%BF%F2%C4%DA ...
个人分类: 习作|9427 次阅读|5 个评论 热度 20
分享 多种存货计价方式集成
2009-4-23 13:19
多种存货计价方式集成
Private Sub 计算_Click() If IsNull(Me.物资ID.Value) Then Exit Sub Select Case Me.选项 Case 1 '先进先出法 先后法 Case 2 '后进先出法 先后法 Case ...
个人分类: 习作|3339 次阅读|5 个评论 热度 3
分享 古人妙语
2009-4-11 19:34
古人妙语
能读无字之书,方可得惊人妙句;能会难通之解,方可参最上禅机。 镜与水之影所受者也,日与灯之影所施者也。月之有影则在天者为受,而在地者为施也。 月下听禅,旨趣益远;月下说剑,肝胆益真;月下论诗,风致益幽;月下对美人,情意益笃。 ...
个人分类: 闲话|2985 次阅读|0 个评论 热度 1
分享 仿真时钟
2009-3-30 18:27
仿真时钟
Option Compare Database Private Const R As Single = 1000 Private Const PI As Single = 3.14159265357 Private x0 As Single, y0 As Single Private myline(1 To 6) As Line Private x(1 To 12) As Single, y(1 To 12) As Single Private W As Single, H As Single Dim H秒 As Single, W秒 As Single ...
个人分类: 习作|3611 次阅读|2 个评论 热度 1
分享 带24节气和农历节的日历
2009-3-28 18:23
带24节气和农历节的日历
一、函数 Function WDateToEDate(ByVal curTime As Date) As String Dim MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12), TermName(1 To 24), Fday(1 To 10, 1 To 10) Dim curYear, curMonth, curDay, curWeekday &n ...
个人分类: 习作|3098 次阅读|0 个评论 热度 1
分享 简单实用的计算器
2009-3-26 19:39
简单实用的计算器
主窗体: Private Sub 折让_DblClick(Cancel As Integer) '请在OpenArgs参数中,用,号分割主窗体、子窗体控件、控件名称 Dim Ctlname As String Ctlname = Screen.ActiveControl.Name DoCmd.OpenForm "myCalc", , , , , , Me.Form.Name "," ...
个人分类: 习作|1484 次阅读|1 个评论
分享 返回文件名数组函数
2009-3-23 20:29
ACMAIN_CHM 提供 Public Function getFilesInFolder(sFullFileNamePattern As String) As String() Dim a() As String Dim i As Integer Dim sFileName As String i = 0 sFileName = Dir(sFullFileNamePattern) ...
个人分类: 函数|1213 次阅读|0 个评论
分享 黄帝内经 上古天真論篇
2009-3-22 20:14
上古天真論篇 昔在黃帝,生而神靈,弱而能言,幼而徇齊,長而敦敏,成而登天。乃問於天師曰:余聞上古之人,春秋皆度百歲,而動作不衰;今時之人,年半百而動作皆衰者,時世異耶,人將失之耶。岐伯對曰:上古之人,其知道者,法於陰陽,和於術數,食飲有節,起居有常,不妄作勞,故能形與神俱,而盡 ...
个人分类: 闲话|1224 次阅读|0 个评论
123下一页

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 23:12 , Processed in 0.072637 second(s), 13 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部