推荐阅读
word 中插入 Endnote参考文献报错{***, 1995 #307}解决方案
存在问题：word中插入endnote参考文献时，出现如下错误：1）插入部分错误显示为{*,1995#307}2）文档尾部并未有任何参考文献列出解决方案：1）将InstantFormatting由Off设置为on，如图：在此过程中会出现如下图所示：忽略即可，但必须记录上面红色框内提示的错误段落。2）对以上提示错误段落进行文本删除或重新修改即可，重新插入文献就可正常使用。
Visio 合并图形的详细操作图解教程
一些用户在使用Microsoft Office Visio的时候，不是很熟悉其中是怎么合并图形的?本期为你们带来的内容就讲述了Microsoft Office Visio合并图形的详细操作流程。首先我们打开Microsoft Office Visio软件，选择你想要的图形类型，然后在窗口左侧的图形中选中要组合的图形并拖动到画布中，比如这里我们就拖动两个椭圆形。两个图形拖动到画布上后，将两个图形重叠交叉在一起，如图所示。然后我们同时选中这两个图形。接着我们选中两个图形以后，在visio菜单中选择【形状】。然后我们点击形状后会出现一个下拉列表，在列表中选择【操作】选项，然后在操作的列表中选择【联合】选项。选择联合之后，这两个图形就变成一个图形了，交叉部分融为一体，如图所示。为了让大家更清楚看清合并后以后的图形，我们这里对图形更换一个填充颜色，点击工具栏中的填充图标，然后在下面的区域中选择一个色块。最后填充以后，两个合并的图形就更明显了。
word2016文档中文字字形和颜色设置方法
在一些特定的情况下，有时需要对word文档中文字的字形和颜色进行设置，这样可以区分该文字与其他文字的不同之处。本文介绍了word2016文档中文字字形和颜色的具体设置方法。方法一：通过选项组中的“字形”按钮和“字体颜色”列表设置。步骤1：设置文字字形。打开Word文档，选中要设置的文字，在功能区中切换至“开始”选项卡。在“字体”选项组中，。图1 设置字形步骤2：设置文字颜色。单击“字体颜色”下拉菜单，展开字体颜色列表。选择一种字体颜色，。图2 设置文字颜色技巧点拨：。图3 “颜色”设置对话框方法二：通过“字体”对话框设置文字字形和颜色。步骤1：打开Word文档，选中要设置的文字，在功能区中切换至“开始”选项卡。在“字体”选项组中，单击“字体”按钮，打开“字体”对话框。在对话框中的“字形”框中，可以选择要设置的文字字形，。
Excel2007数字如何添加单位
我们在整理Excel2007表格数据的时候总会遇到需要给单元格里的数字添加单位的情况，少量的我们可以一个个直接添加，如果有大量的一个个输入就比较麻烦了，那么我们有什么办法可以快速的在Excel单元格里添加单位吗?下面随小编一起看看吧。 Excel2007数字添加单位的步骤 1.选中需要快速添加单位的单元格，接着右键点击“设置单元格格式”。 2.在设置单元格格式里依次选择“数字”→“自定义”，然后输入自定义的单位类型，输入完毕后点击确认即可。 3.这个时候选中的单元格就都快速的添加了单位啦。Excel2007添加单位的
最新发布
Access2016数据库开发教程3
第三章 程序设计文档 为了方便学习，在本教程中直接嵌入了程序设计文档(需求设计、功能设计、表设计文档)，这三个文档原本有规范化格式，在此进行了简化，详细的文档写法请参考相关书籍与资料。 3.1 需求设计说明书 3.1.1概述 文档说明 本需求和设计说明书是为了满足公司更加有效地管理协调费用的报销而开发的一套管理软件的简略说明。 设计目标 满足公司对费用报销的有效管理，使公司可以更加有效的协调和控制公司的费用开支，优化和降低公司的运营成本，提高公司的盈利水平，使公司的管理更上一个台阶。 3.1.2程序开发及运行环境： 网络配制：局域网联网，2个客户端。
Access2016数据库开发教程4
第四章 表设计 4.1 创建数据表 现在我们已经完成了准备工作，可以开始正式在开发平台后台数据库文件中建立数据表。表应该建在后端数据库中，后端数据库文件名是Data.mdb如下图4-1所示： 图4-1 后台数据库文件 双击data.mdb文件，根据第三章中的3.3节表设计说明书的设计，在data.mdb中创建表tblCodeyg和tblBxmx，首先来设计一下tblCodeyg表。 进入设计表的界面，如下图4-2所示： 图4-2 表设计界面 单击图4-2中的【创建】，选中“表设计”，如下图4-3所示：
Access2016数据库开发教程5
4.2 在表中输入数据 为了方便在教程后续的学习，我们需要在表中输入少量的模拟数据。在表tblCodeyg录入2条记录，如下图4-13所示： 图4-13在表tblCodeyg中录入数据 表tblBxmx录入2条记录，下图4-14所示： 图4-14 在表tblBxmx中录入数据 注意：表tblBxmx中员工姓名是组合框，来源于表tblCodeyg,实际上表中保存的值是员工编码Y01,Y02,如果您与上图不一致，则参考本章第4.1节“创建数据表”中的图4-5。 4.3 链接后台数据库 提示 为什么要采用链接后台数据库而不采用直接在主程序Main.mdb中直接建表?原因有两点：一是为了共享数据文件(Data.mdb);二是当软件投入使用后，数据文件中已存在数据，而主程序(Main.mdb)可能需要完善或增加功能，当要对软件进行升级时，采用链接后台数据库的方式不影响数据，方便维护。
Access2016数据库开发教程6
第五章 查询设计 提示 为了保证链接表与后台数据库data.mdb一致，每次当您更改了data.mdb中的表设计(例如表中增加了字段、更改了字段类型等)时，需要刷新一次，方法就是双击SysFrmLogin窗体登陆一次，平台会自动刷新一次链接表。 5.1 为何要创建查询 创建查询是为了将报销明细中的员工编码(例如Y01，Y02)转换为姓名(例如张三，李四)，以方便操作员按姓名去检索数据。 如果不创建查询，则只能按员工编码(例如Y01，Y02)的方式去检索数据，这样会让软件的使用者感觉不方便，显得不人性化。 5.2 创建查询 为了检索数据的需要，需要建立一个选择查询qryBxmx，步骤如下： 第1步：进入Main.mdb的设计界面 按住键盘的 shift 键(注意，一定要等该程序文件完全打开之后再松开 shift 键，否则会出现登录对话框，如果出现了登录对话框，则意味着你按 shift 键失败，需要关闭程序重新打开，有少量初学者在这个问题上出了纰漏)，双击打开Main.mdb 文件，如下图5-1所示： 图5-1 进入main.mdb设计状态
Access2016数据库开发教程7
第六章 窗体设计 6.1 自动创建窗体介绍 平台中集成了自动化的窗体创建工具，能够快速自动生成开发人员所需要的窗体及相应功能的代码，而不需要通过手工去创建和书写VBA代码。当这些窗体无法满足软件设计的特殊需要时，开发人员可在自动创建的窗体上进行少量修改后，即可满足软件设计的需要。 由于自动创建窗体是平台特有的功能，需要结合平台的一些规则去进行操作，才能实现自动创建具备相关功能的窗体，接下来的一节“自动编号管理”是必经之路，只有掌握了自动编号管理后，方可进行本章后续的学习。 6.2 自动编号管理 6.2.1自动编号管理介绍 【自动编号管理】是平台提供的一项功能，用于对各种自定义编号规则进行定义/维护。在报销软件的开发中，可以利用此功能，方便地实现表tblCodeyg中字段ygID和表tblBxmx中字段mxID的自动编号。 从第三章程序设计文档中3.3节 表设计说明书中，可以看到： 表tblCodeyg中字段ygID的自动编号规则： “Y+序号2位”，格式举例：Y01，Y02，Y03……
Access2016数据库开发教程8
6.3 数据模块创建向导 在平台的【开发者工具】à【数据模块创建向导】，通过几次鼠标点击操作，就可快速自动生成具有完善的增加、修改、删除、查找、打印预览、打印、导入、导出功能(打印预览和打印需要在此基础上手动修改)的数据维护模块。 在使用【数据模块创建向导】创建窗体之前，需要对相关的表做好以下工作： 1) 需要对表设置主键; 2) 必填字段的“必需”属性设为“是”; 3) 需要先对表中的相关自动编号字段在【开发者工具】à【自动编号管理】进行设置。 4) 创建菜单分组 因为“报销明细”这个模块是被归类为“基础资料”的，因此我们需要先在导航菜单中建立一个名为“基础资料”分组菜单节点。 当然，这一步并不是必不可少的步骤，你也可以在该功能模块创建完成之后再添加该菜单节点，通过快速开发平台中集成的“导航菜单编辑器”可以非常简单轻松的对导航菜单进行调整。 当完成上述4点后，就可以利用【数据模块创建向导】通过一键来自动生成数据维护模块。
《Access数据库程序设计》教学(考试)大纲
一、课程基本情况课程名称：Access数据库程序设计课程代号：253考核对象：非计算机专业本专科学生先修课程：计算机应用基础学时：72学时(理论48学时，上机实验24学时)考试安排：每年两次考试，一般安排在学期末考试方式：省二级考试（笔试，机试）考试时间：笔试60分钟，机试90分钟设置目的：
Access参数查询实例教程
关于查询的最好的部分是可以一次又一次地保存和运行相同的查询，但是当您通过只更改条件来一次又一次地运行相同的查询时，则可以考虑查询来接受参数并按指定参数值来查询。现在通过创建一个简单的例子来看看一个参数查询。打开数据库，然后在创建表 选项卡中选择：查询设计。双击Projects表并关闭显示对话框。选择想要查看的字段作为查询结果，如以下屏幕截图所示。在查询设计网格中，在ProjectStart列的条件 行中，键入[输入项目开始时间]， 字符串[输入项目开始时间] 是输入参数的提示。方括号表示要查询输入，而文本是输入项目开始时间是参数提示信息。让我们现在运行查询，将看到以下提示。现在输入下面的日期，如以下屏幕截图所示 -假设Projects 表中有以下数据 -那么执行查询，将得到以下数据 - 因此，将看到2017年12月30日开始的项目的详细信息。 转到“设计视图”并再次运行查询，输入项目开始时间：2017-12-27。
VBA直接解压文件（不支持压缩）
提示: 不要定义示例中的 strFileNameFolder 变量为String 类型，必须定义为 Variant 类型， 否则代码不能正常运行。示例 1： 通过此例你可以浏览压缩文件.你选中一个文件后此宏会在你的默认文件路径下创建一个新的文件夹并解压文件到这个文件夹。 Sub UnzipFile() Dim FSO As Object Dim oApp As Object Dim strFileName As Variant Dim strFileNameFolder As Variant Dim strDefPath As String Dim strDate As String '只支持Zip压缩文件，不支持Rar或其它压缩格式 strFileName = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", MultiSelect:=False) If Not (strFileName = False)Then '新文件夹的上级文件夹. '你也可以支持指定路径 strDefPath = "C:\Users\test" strDefPath = Application.DefaultFilePath If Right(strDefPath, 1) <> "" Then strDefPath = strDefPath & "" End If '创建文件夹名称 strDate = Format(Now, " dd-mm-yy h-mm-ss") strFileNameFolder = strDefPath & "MyUnzipFolder " & strDate & "" '创建名为 strDefPath 的普通文件夹 MkDir strFileNameFolder '提取所有文件到此创建的文件夹 Set oApp = CreateObject("Shell.Application") oApp.Namespace(strFileNameFolder).CopyHere oApp.Namespace(strFileName).items '假如你只需要提取某一个文件，可以如下: 'oApp.Namespace(strFileNameFolder).CopyHere oApp.Namespace(strFileName).items.Item("test.txt") MsgBox "文件已经解压到: " & strFileNameFolder On Error Resume Next Set FSO = CreateObject("scripting.filesystemobject") '删除临时文件 FSO.deletefolder Environ("Temp") & "\Temporary Directory*", True End If End Sub
Access数据库软件版本号保存在INI文件中，然后从INI文件中提取版本号
很久以前帮客户做的一个客户管理系统，有一个取软件版本号的函数，感觉还有点用，与大家分享一下Access数据库软件版本号保存在INI文件中，然后从INI文件中提取软件的当前版本号（可用来与服务器的最新版本号对比，然后提示是否需要更新） '软件版本号保存在INI文件中，然后从INI文件中提取版本号 Private Sub GetCurrVer() '作者：tmtony 2003-02-03 Dim sLine As String, iPos As Integer, sTmp As String Dim sFormName As String, sTmp2 As String Dim bFormFound As Boolean Dim intType As Integer Dim iPos2 As Integer Dim iSubIndex As Integer Dim iIndex As Integer Dim sFile As String sFile = CurrentProject.Path & "\cn2005.ini"Open sFile For Input As #1 DoInput #1, sLineIf Left$(sLine, 1) = ";" Or sLine = "" Then GoTo Jump iPos = InStr(sLine, "=") 'sTmp = Mid$(sLine, iPos + 1, InStr(sLine, "=") - iPos - 1)If iPos > 0 Then sTmp = Left$(sLine, iPos - 1) 'If sTmp = "Version" Then sTmp2 = Mid$(sLine, InStr(sLine, "=") + 2) 'End If If Right$(sTmp2, 1) = Chr$(34) Then sTmp2 = Left$(sTmp2, Len(sTmp2) - 1) Select Case sTmp Case "Version" txtCurrVersion = sTmp2 Case "VersionDate" txtCurrVersionDate = sTmp2 Case "Path" Me.txtCurrPath = sTmp2 End Select GoTo Jump End If Jump: Loop Until EOF(1) Close #1 txtCurrPath = Nz(CurrentProject.Path) End Sub