<?xml version="1.0" encoding="gbk"?>
<rss version="2.0">
  <channel>
    <title>todaynew@Office中国/Access中国</title>
    <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436</link>
    <description>Office中国论坛/Access中国论坛</description>
    <copyright>Copyright(C) Office中国论坛/Access中国论坛</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Tue, 13 Oct 2026 06:26:14 +0000</lastBuildDate>
    <image>
      <url>http://www.office-cn.net/static/image/common/logo_88_31.gif</url>
      <title>Office中国论坛/Access中国论坛</title>
      <link>http://www.office-cn.net/</link>
    </image>
    <item>
      <title>告T丝诸朋友书</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14817</link>
      <description><![CDATA[　　本来想在五一节整理一下【Access小品】，便在日志中开了两个题目，一个叫做《【Access小品】2009年作品集》，一个叫做《【Access小品】2010年作品集》。可是一偷懒便也就把这件事情摆下了，最后连自己也忘记还有这两个题目没有写。     　　Officc改版的时候，看见自己这两个日志的题目挂在首页，便也就进去看了看。发 ...]]></description>
      <author>todaynew</author>
      <pubDate>Thu, 15 Jul 2010 09:02:15 +0000</pubDate>
    </item>
    <item>
      <title>【Access小品】2010年作品集</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14813</link>
      <description><![CDATA[2010年7月15日整理。     【Access小品】数据表子窗体列宽锁定  　　Access开发者版友kris3000同志提出了一个锁定数据表子窗体列宽的问题。    记得曾经有过一个版友提出过另外一个连续子窗体列宽调整的问题，这个问题好    像一直没有很好的解决。看来这两类窗体在列宽的可调整与不可调整 ... 版块:Access常规交流, 作者: ...]]></description>
      <author>todaynew</author>
      <pubDate>Fri, 30 Apr 2010 23:31:56 +0000</pubDate>
    </item>
    <item>
      <title>【Access小品】2009年作品集</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14812</link>
      <description><![CDATA[2010年7月15日整理。    &amp;nbsp;     【Access小品】列表框内定位多行选择及取值实例 版块:Access常规交流, 作者: todaynew , 查看: 500, 回复: 26, 发布时间:     2009-12-22  地址： http://www.access-cn.com/forum.php?mod=viewthread&amp;amp;tid=79144&amp;amp;highlight=%A1%BEAccess%D0%A1%C6%B7%A1%BF%C1%D0%B1%ED%BF%F2%C4%DA ...]]></description>
      <author>todaynew</author>
      <pubDate>Fri, 30 Apr 2010 23:30:17 +0000</pubDate>
    </item>
    <item>
      <title>多种存货计价方式集成</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14695</link>
      <description><![CDATA[Private Sub 计算_Click() If IsNull(Me.物资ID.Value) Then Exit Sub Select Case Me.选项 &amp;nbsp; &amp;nbsp; Case 1&amp;nbsp; &amp;nbsp; '先进先出法 &amp;nbsp; &amp;nbsp;&amp;nbsp; &amp;nbsp;&amp;nbsp;&amp;nbsp;先后法 &amp;nbsp; &amp;nbsp; Case 2&amp;nbsp; &amp;nbsp; '后进先出法 &amp;nbsp; &amp;nbsp;&amp;nbsp; &amp;nbsp;&amp;nbsp;&amp;nbsp;先后法 &amp;nbsp; &amp;nbsp; Case ...&lt;br /&gt;&lt;img src=&quot;http://www.office-cn.net/vvb/attachments/month_0904/09042313153a2c8926c80be5aa.gif&quot;&gt;]]></description>
      <author>todaynew</author>
      <pubDate>Thu, 23 Apr 2009 05:19:29 +0000</pubDate>
    </item>
    <item>
      <title>古人妙语</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14692</link>
      <description><![CDATA[&amp;nbsp;&amp;nbsp; 能读无字之书，方可得惊人妙句；能会难通之解，方可参最上禅机。    &amp;nbsp;    &amp;nbsp;&amp;nbsp; 镜与水之影所受者也，日与灯之影所施者也。月之有影则在天者为受，而在地者为施也。    &amp;nbsp;    &amp;nbsp;&amp;nbsp; 月下听禅，旨趣益远；月下说剑，肝胆益真；月下论诗，风致益幽；月下对美人，情意益笃。    &amp;nbsp;   ...&lt;br /&gt;&lt;img src=&quot;http://res.xai.cn/bphoto/b_2007-11-10/b_200711101108457843.jpg&quot;&gt;]]></description>
      <author>todaynew</author>
      <pubDate>Sat, 11 Apr 2009 11:34:57 +0000</pubDate>
    </item>
    <item>
      <title>仿真时钟</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14686</link>
      <description><![CDATA[&amp;nbsp;     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  ...&lt;br /&gt;&lt;img src=&quot;http://www.office-cn.net/vvb/attachments/month_0903/09033019459383e710d3fac536.jpg&quot;&gt;]]></description>
      <author>todaynew</author>
      <pubDate>Mon, 30 Mar 2009 10:27:52 +0000</pubDate>
    </item>
    <item>
      <title>带24节气和农历节的日历</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14685</link>
      <description><![CDATA[一、函数      Function WDateToEDate(ByVal curTime As Date) As String &amp;nbsp;&amp;nbsp;&amp;nbsp; 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) &amp;nbsp;&amp;nbsp;&amp;nbsp; Dim curYear, curMonth, curDay, curWeekday &amp;nbsp;&amp;n ...&lt;br /&gt;&lt;img src=&quot;http://www.office-cn.net/vvb/attachments/month_0903/0903281812e4f7bee3d4f7c4a8.gif&quot;&gt;]]></description>
      <author>todaynew</author>
      <pubDate>Sat, 28 Mar 2009 10:23:02 +0000</pubDate>
    </item>
    <item>
      <title>简单实用的计算器</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14684</link>
      <description><![CDATA[&amp;nbsp;    主窗体： Private Sub 折让_DblClick(Cancel As Integer) &amp;nbsp; &amp;nbsp; '请在OpenArgs参数中，用,号分割主窗体、子窗体控件、控件名称 &amp;nbsp; &amp;nbsp; Dim Ctlname As String &amp;nbsp; &amp;nbsp; Ctlname = Screen.ActiveControl.Name &amp;nbsp; &amp;nbsp; DoCmd.OpenForm &quot;myCalc&quot;, , , , , , Me.Form.Name &amp;amp; &quot;,&quot;  ...&lt;br /&gt;&lt;img src=&quot;http://www.office-cn.net/vvb/attachments/month_0903/09032619358fea331c6c6b5dff.gif&quot;&gt;]]></description>
      <author>todaynew</author>
      <pubDate>Thu, 26 Mar 2009 11:39:00 +0000</pubDate>
    </item>
    <item>
      <title>返回文件名数组函数</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14682</link>
      <description><![CDATA[ACMAIN_CHM 提供    Public Function getFilesInFolder(sFullFileNamePattern As String) As String() &amp;nbsp;&amp;nbsp;&amp;nbsp; Dim a() As String &amp;nbsp;&amp;nbsp;&amp;nbsp; Dim i As Integer &amp;nbsp;&amp;nbsp;&amp;nbsp; Dim sFileName As String &amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;i = 0 &amp;nbsp;&amp;nbsp;&amp;nbsp; sFileName = Dir(sFullFileNamePattern)  ...]]></description>
      <author>todaynew</author>
      <pubDate>Mon, 23 Mar 2009 12:29:08 +0000</pubDate>
    </item>
    <item>
      <title>黄帝内经 上古天真論篇</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14680</link>
      <description><![CDATA[上古天真論篇      &amp;nbsp;      昔在黃帝，生而神靈，弱而能言，幼而徇齊，長而敦敏，成而登天。乃問於天師曰：余聞上古之人，春秋皆度百歲，而動作不衰；今時之人，年半百而動作皆衰者，時世異耶，人將失之耶。岐伯對曰：上古之人，其知道者，法於陰陽，和於術數，食飲有節，起居有常，不妄作勞，故能形與神俱，而盡 ...]]></description>
      <author>todaynew</author>
      <pubDate>Sun, 22 Mar 2009 12:14:32 +0000</pubDate>
    </item>
    <item>
      <title>闲话小抄</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14679</link>
      <description><![CDATA[&amp;nbsp;&amp;nbsp; 酒可以当茶，茶不可以当酒；    &amp;nbsp;&amp;nbsp; 诗可以当文，文不可以当诗；    &amp;nbsp;&amp;nbsp; 曲可以当词，词不可以当曲；    &amp;nbsp;&amp;nbsp; 月可以当灯，灯不可以当月；    &amp;nbsp;&amp;nbsp; 笔可以当口，口不可以当笔；    &amp;nbsp;&amp;nbsp; 婢可以当奴，奴不可以当婢。    &amp;nbsp;    &amp;nbsp;&amp;nbsp; 文人讲武事，大 ...]]></description>
      <author>todaynew</author>
      <pubDate>Sun, 22 Mar 2009 10:38:07 +0000</pubDate>
    </item>
    <item>
      <title>导出Excel主从表示例</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14678</link>
      <description><![CDATA[公共模块      Public Function GetFolder() As String '文件及文件夹路径函数 &amp;nbsp;&amp;nbsp;&amp;nbsp; Dim dlgOpen As FileDialog &amp;nbsp;&amp;nbsp;&amp;nbsp; Dim i As Long, j As Long &amp;nbsp;&amp;nbsp;&amp;nbsp; Set dlgOpen = Application.FileDialog(msoFileDialogOpen) &amp;nbsp;&amp;nbsp;&amp;nbsp; With dlgOpen &amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp ...&lt;br /&gt;&lt;img src=&quot;http://www.office-cn.net/vvb/attachments/month_0903/090322141422d53052c544c53c.gif&quot;&gt;]]></description>
      <author>todaynew</author>
      <pubDate>Sun, 22 Mar 2009 06:22:05 +0000</pubDate>
    </item>
    <item>
      <title>Excel之间数据传递</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14676</link>
      <description><![CDATA[Function GetFolder() As String '文件及文件夹路径函数 &amp;nbsp;&amp;nbsp;&amp;nbsp; Dim dlgOpen As FileDialog &amp;nbsp;&amp;nbsp;&amp;nbsp; Dim i As Long, j As Long &amp;nbsp;&amp;nbsp;&amp;nbsp; Set dlgOpen = Application.FileDialog(msoFileDialogOpen) &amp;nbsp;&amp;nbsp;&amp;nbsp; With dlgOpen &amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; .AllowM ...]]></description>
      <author>todaynew</author>
      <pubDate>Thu, 19 Mar 2009 04:54:05 +0000</pubDate>
    </item>
    <item>
      <title>导出Excel函数</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14672</link>
      <description><![CDATA['   导出   Excel   函数       'Qname--   查询名称       'Pfrmane--   父窗体名称       'Ctlname--   子窗体控件名称       'n--n=1   按子窗体，   n=2   按子窗体数据源查询       Public Function myoutE(Qname As String, Pfrmname As String, Ctlname As String, n As Long)        Dim myform As Form      ...]]></description>
      <author>todaynew</author>
      <pubDate>Mon, 09 Mar 2009 05:42:37 +0000</pubDate>
    </item>
    <item>
      <title>用VB创建和修改查询</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14670</link>
      <description><![CDATA[&amp;nbsp;    Option Compare Database Dim Qdef As QueryDef Dim strsql As String Dim strname As String    Private Sub Form_Error(DataErr As Integer, Response As Integer) 　　Me.子窗体.Form.RecordSource = &quot;成绩查询&quot; End Sub    &amp;nbsp;    Private Sub Form_Open(Cancel As Integer) 　　Me.子窗体.Form.Rec ...&lt;br /&gt;&lt;img src=&quot;http://www.office-cn.net/vvb/attachments/month_0903/090307181971372d7a99216edd.gif&quot;&gt;]]></description>
      <author>todaynew</author>
      <pubDate>Sat, 07 Mar 2009 10:27:05 +0000</pubDate>
    </item>
    <item>
      <title>用VB创建和修改表</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14657</link>
      <description><![CDATA[&amp;nbsp;        一、主窗体代码         &amp;nbsp;     Option Compare Database      Dim strsql As String      Dim strname As String       &amp;nbsp;     Private Sub Form_Load()      Me.  字段子窗体  .Form.AllowAdditions = False      Me.  字段子窗体  .Form.AllowEdits = False      Me.  字段子窗体  .Form.Al ...&lt;br /&gt;&lt;img src=&quot;http://www.office-cn.net/vvb/attachments/month_0903/09030415050f89740f027f98a6.gif&quot;&gt;]]></description>
      <author>todaynew</author>
      <pubDate>Wed, 04 Mar 2009 08:57:36 +0000</pubDate>
    </item>
    <item>
      <title>人民币大写函数</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14646</link>
      <description><![CDATA[Function RMB(x As Double) As String Dim i1 As Long, i2 As Long, j As Long, m As Long, strm(15) As String Dim strB1 As String, strB2 As String RMB = str(Round(x, 4)) j = InStr(1, RMB, &quot;.&quot;, 1) If j = 0 Then &amp;nbsp;&amp;nbsp;&amp;nbsp; strB1 = Trim(RMB) &amp;nbsp;&amp;nbsp;&amp;nbsp; strB2 = &quot;&quot; Else &amp;nbsp;&amp;nbsp;&amp;nbsp; st ...]]></description>
      <author>todaynew</author>
      <pubDate>Sat, 28 Feb 2009 08:41:17 +0000</pubDate>
    </item>
    <item>
      <title>数组运用习作</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14630</link>
      <description><![CDATA[Private Sub Command2_Click() Dim rs As New ADODB.Recordset Dim sql As String, sqlf As String Dim strf(10) As String Dim i As Long, j As Long sql = &quot;select * from temp&quot; rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic i = 0 Do While Not rs.EOF &amp;nbsp;&amp;nbsp;&amp;nbsp; i = i + 1 &amp;nbsp ...]]></description>
      <author>todaynew</author>
      <pubDate>Mon, 16 Feb 2009 09:54:46 +0000</pubDate>
    </item>
    <item>
      <title>FSO,驱动器、文件</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14625</link>
      <description><![CDATA[&amp;nbsp;&amp;nbsp;1、判断光驱的盘符： &amp;nbsp; &amp;nbsp;Function GetCDROM() &amp;acute; 返回光驱的盘符(字母) &amp;nbsp; &amp;nbsp;Dim Fso As New FileSystemObject &amp;acute;创建 FSO 对象的一个实例 &amp;nbsp; &amp;nbsp;Dim FsoDrive As Drive, FsoDrives As Drives &amp;acute;定义驱动器、驱动器集合对象 &amp;nbsp; &amp;nbsp;Set FsoDrives = Fso.Drives ...]]></description>
      <author>todaynew</author>
      <pubDate>Sat, 14 Feb 2009 07:28:21 +0000</pubDate>
    </item>
    <item>
      <title>AddNew 方法</title>
      <link>http://www.office-cn.net/home.php?mod=space&amp;uid=144436&amp;do=blog&amp;id=14622</link>
      <description><![CDATA[AddNew 方法   创建可更新的 Recordset 对象的新记录。  语法 recordset.AddNew FieldList, Values 参数 recordset  Recordset 对象。  FieldList  可选。新记录中字段的单个名称、名称数组或序号位置数组。  Values  可选。新记录中字段的单个值或值的数组。如果 Fieldlist 是数组，那么 Values 也必须是具有相同数目的 ...]]></description>
      <author>todaynew</author>
      <pubDate>Thu, 12 Feb 2009 12:30:05 +0000</pubDate>
    </item>
  </channel>
</rss>