推荐阅读
Access2016数据库开发教程7
第六章 窗体设计 6.1 自动创建窗体介绍 平台中集成了自动化的窗体创建工具，能够快速自动生成开发人员所需要的窗体及相应功能的代码，而不需要通过手工去创建和书写VBA代码。当这些窗体无法满足软件设计的特殊需要时，开发人员可在自动创建的窗体上进行少量修改后，即可满足软件设计的需要。 由于自动创建窗体是平台特有的功能，需要结合平台的一些规则去进行操作，才能实现自动创建具备相关功能的窗体，接下来的一节“自动编号管理”是必经之路，只有掌握了自动编号管理后，方可进行本章后续的学习。 6.2 自动编号管理 6.2.1自动编号管理介绍 【自动编号管理】是平台提供的一项功能，用于对各种自定义编号规则进行定义/维护。在报销软件的开发中，可以利用此功能，方便地实现表tblCodeyg中字段ygID和表tblBxmx中字段mxID的自动编号。 从第三章程序设计文档中3.3节 表设计说明书中，可以看到： 表tblCodeyg中字段ygID的自动编号规则： “Y+序号2位”，格式举例：Y01，Y02，Y03……
Word让句子里每个单词首字母大写技巧
假设我们有一句英文，如：To do more for the World than the World does for you. That is Success.我们希望这句英文句子里所有的单词的首字母都变为大写，那么该怎么做呢？最简单的方法就是逐个单词的去修改，用键盘将它的每个单词的首字母改为大写，但这不是最轻松的方法。个人觉得最轻松的方法便是使用Word的 “格式” 功能。具体方法是：将这句句子选上，然后点击 “格式”，接着点击“更改大小写”，然后选择“词首字母大写”，最后点击“确定”，就可以了。得到的结果如下：To Do More For The World Than The World Does For You. That Is Success.如果是Word 2007版本的话，那么点击如下图所示的这个位置，即可更改了。Word让句子里每个单词首字母大写技巧这样就完成任务了，效率会高很多，小技巧一个，有兴趣的朋友可以看看。
word怎样给图片添加文字图文教程
在日常办公中,我们经常用到Word软件,Word办公软件的使用,为我们工作带来了极大的便利,下面小编就教怎么在word中给图片添加文字，希望看完本教程的朋友都能学会并运用起来。 word中给图片添加文字的方法 1、先把图片插入到Word2003里面来，选择菜单栏的“插入”–>图片–>来自文件，然后选择图片的路径，点击“插入”按钮插入; 2、图片插入文档以后，我们右键单击图片，在弹出的右键菜单中选择“设置图片格式”–>板式–>衬于文字下方，然后单击“确定”按钮; 3、回到Word菜单栏，再次选择“插入”–>文本框–>横排、竖排(看你需要哪种，就选哪种); 4、这是鼠标就会变成一个“十字架”，我们将“十字架”在图片上需要加文字的地方拉开; 5、此时，就可以在图片上输入自己想要的文字内容了，(如下图我输入“鱼儿游~~~”) 6、输入完毕后，右键单击“文本框”的“边框处”，在弹出的右键菜单中选择“设置文本框格式”–>颜色与线条，将“透明度”设置成“100%”; 7、将“线条”里面的颜色选择为“其他颜色”，同样将“透明度”设置为“100%”，确定; 8、按住Ctrl键，同时选种“文本框”和“图片”，然后右键，将图片和文本框“组合”起来;
最新发布
Access如何创建表
创建数据库时，将数据存储在表中。 由于其他数据库对象严重依赖于表，因此应始终通过创建所有表来创建数据库的设计，然后创建任何其他对象。 在创建表格之前，请仔细考虑您的要求并确定所需的所有表结构。下面演示如何创建第一个表来存储有关员工的基本联系信息，如下表所示 - 现在使用短文本作为所有这些字段的数据类型，并在Access中打开一个空白数据库。创建了数据库，然后Access自动打开了一张表的一个数据表视图。现在转到“字段”选项卡，看到ID字段是自动创建的。ID字段使用自动编号充当的唯一标识符，并且是该表的主键。ID字段已经被创建，现在要重新命名表的编号列的名称为：EmployeeID ，这将是员工的唯一标识符。参考下图 -将此字段的名称更改为EmployeeID，以使其更具体到此表。 如果需要，请输入其他可选信息，然后单击确定 。现在有EmployeeID字段和标题为EmployeeID。它被自动设置为自动编号，所以并不需要改变数据类型。下面点击添加更多的字段(列)。
Access如何添加数据实现图解教程
Access数据库与Microsoft Office Word文档或Microsoft Office PowerPoint并不是相同的文件形式。 相反，Access数据库是像表，表格，报表，查询等对象的集合，它们必须协同工作才能使数据库正常工作。经过学习上一节的示例，我们已经在数据库中创建了两个包含所有必需的字段和字段属性的表。 要在Access中查看，更改，插入或删除表格中的数据，可以使用表格的数据表视图。让我们打开前面创建的Access数据库表，将一些数据添加到表中。参考下图 -选择功能区中的“视图”→“数据库视图”选项并添加一些数据，如以下屏幕截图所示。现在可以看到，在数据表视图中插入新数据和更新现有数据在电子表格中非常简单。但是如果想删除任何数据，例如要删除EmployeeID为5的那一行数据，需要首先选择整行，右键选择：删除记录或点击菜单：删除，如下图所示。现在按下删除 按钮。这将显示确认消息。单击是，您将看到选定的记录现在被删除。
Access如何创建查询
在本章中让我们来了解如何创建查询。可以使用更新查询更改表中的数据，并且可以使用更新查询来输入条件以指定应更新哪些行。 在执行更新之前，更新查询提供了一个查看更新数据的机会。 让我们再次转到“创建”选项卡，然后单击“查询设计”。在“表”选项卡的“显示表”对话框中，双击Employees表，然后关闭对话框。在“设计”选项卡的“查询类型”组中，单击“更新”并双击要更新值的字段。假设要将员工编号为："1"的名字更新为"Supersu"。如下图所示 -在“设计”网格的“更新”行中，输入更新后的值，然后在“条件”行中添加要更新的原始值并运行查询。这将显示确认消息。单击是，然后转到数据表视图，将看到第一条记录 - 名字现在更新为"Supersu"。如下图所示 -可以使用删除查询从表格中删除数据，并且可以使用删除查询输入条件来指定应删除哪些行。 删除查询提供了一个方法，可以在执行删除操作之前查看将要删除的行。 让我们再次转到“创建”选项卡，然后单击“查询设计”。在“表”选项卡的“显示表”对话框中，双击Employees表，然后关闭对话框。在“设计”选项卡的“查询类型”组中，单击“删除”，然后双击"EmployeeID"。在“设计网格”的“条件”行中，键入9， 在此，我们要删除EmployeeID为9的员工。
Access如何对交叉查询产生报表
ACCESS提供一个交叉查询的功能，为用户提供许多方便，它也可以直接打印。 但如果你需要使用这个交叉查询来制作一个报表，由于交叉查询产生的列是不定的，且根据数据而变，所以制作报表存在一些问题，请大家就这个问题进行讨论，提出一个比较好的解决方案。以后每周均会以这种形式对ACCESS的一些难题进行讨论。 表现优秀者将由版主或站长予以各种形式的嘉奖！！！ ganrong 加够多的控件，然后用不到的隐藏起来 不知这种方法是否可行cnwang 先加控件再隐藏，或动态创建控件应该都可以。用交叉查询做报表源，其最大难点应该在于字段名的不固定，下面这句可以帮点忙啦：CurrentDb.QueryDefs("交叉查询1").Fields(2).Name老大这个点子非常不错!!!!!!! tmtony cnwang兄，我现在采取的办法是也是创建足够多的控件。 但我根据查询表或窗体（一般是子窗体）的列（动态列）来动态显示和重新定位报表中的列，使整个报表永远比较美观，但在处理上始终不是十分方便。 所以想知道高手在这方面的经验。yuab 我做了个例子可解决以上问题。最关键是不会影响速度。 文件下载tmtony 很不错，看来大家的思路都是一样的 我的程序基本上与你的是类似的。 我过几天整理一下也放上来 不过，想知道还有没有其它办法tmtony 上传了我的例子，由于有客户的数据，所以只放上报表和程序，无法取具体数据，大家看看程序即要明白。 根据产生的查询窗体的列的多少自动设置报表显示的列及重新排列各列的位置。 自动根据数据窗体栏目宽度的变化而自动改变报表各列的宽度的功能还正在完善（即所见即所得）文件下载
Access日期控件的示例代码
我的日期控件的使用： 界面上有三个东西：1.qsr为：起始日期的文本框2.jsr为结束日期的文本框3.rq为日历控件。 1、日期控件平常隐藏起来。双击起始日期或结束日期时日历控件才显示（界面的问题）。 2、对应的填上相应的日期。 以下是源码，大家多做交流： Private Sub jsr_DblClick(Cancel As Integer) Me.rq = Me.jsr Me.rq.Top = Me.jsr.Top + Me.jsr.Height Me.rq.Visible = True End Sub Private Sub qsr_DblClick(Cancel As Integer) Me.rq = Me.qsr Me.rq.Top = Me.qsr.Top + Me.qsr.Height Me.rq.Visible = True End Sub Private Sub rq_DblClick() If Me.rq.Top = Me.jsr.Top + Me.jsr.Height Then Me.jsr = Me.rq DoCmd.GoToControl "jsr" Else Me.qsr = Me.rq DoCmd.GoToControl "qsr" End If Me.rq.Visible = False End Sub Private Sub 主体_Click() Me.rq.Visible = False End Sub
VB调用Access的报表的几种方法
在VB中也可使用ACCESS的报表VB可以生成独立的exe执行程序，但VB的报表不是很方便。 通过vsreport这个控件，你完全可以使用ACCESS来设计好报表，然后在VB中调用这些报表，效果与你直接在ACCESS调用报表一样。 VB的报表一直是它的弱项，在以前很长一段时间我都是使用这个方法来做报表的 beetle 提供的使用Access的Application对象的方法来调用 Dim MSAccess As Access.Application Set MSAccess = New Access.Application MSAccess.OpenCurrentDatabase (app.path & "\*.mdb") MSAccess.Visible = True MSAccess.DoCmd.OpenReport "报表名", acViewPreview tmtony(另一种VB调用Access报表的方法）我以前用过vsReport来调用，主要是调用ACCESS的报表，要找找，以前是1.1版本。对中文有一点问题，后来好像解决了
Access与sql server在查询中处理BIT / BOOLEAN 逻辑字段不同之处
1.在Access中可以用下面的查询语句： SELECT field FROM table WHERE boolField=TRUE -- or SELECT field FROM table WHERE boolField=FALSE 2.这两条语句在SQL Server中通不过,所以要改成下面的形式: SELECT field FROM table WHERE bitField=1 -- or SELECT field FROM table WHERE bitField=0 3.令人烦恼的是上面这两条语句在Access中也会出问题,因为Access把-1当作True,而不是1。在搞清楚了这个问题后，我们可以写出在两种环境中都能运行的查询语句： SELECT field FROM table WHERE bitField<>0 -- or SELECT field FROM table WHERE bitField=0 tmtony 我也是这么做的 当年花很多时间调错就是在这里, 常常是-1 和1 在捣鬼 huanghai 我的不知道怎么回事时用文本框的值等于选择框，结果是-1还是true什么的就知道了：）zhuyiwen 只能这么做, 这是没有办法的事情, 两种语言定义的不一样
Access2016数据库开发教程10
6.6 创建员工编码相关窗体模块 进入Main.mdb的设计界面，选中SysFrmLogin窗体，如下图6-24所示： 图6-24 窗体显示区 双击运行SysFrmLogin窗体，进入平台主界面，在左边导航区，选中【开发者工具】à【数据模块创建向导】，如下图6-25所示： 图6-25 数据模块自动生成器 用鼠标双击【数据模块创建向导】，将显示“数据模块创建向导”界面，如下图6-26所示： 图6-26数据模块自动生成器(1)
Replace函数
Function fstrTran(ByVal sInString As String, _ sFindString As String, _ sReplaceString As String) As String Dim iSpot As Integer, iCtr As Integer Dim iCount As Integer iCount = Len(sInString) For iCtr = 1 To iCount iSpot = InStr(1, sInString, sFindString) If iSpot > 0 Then sInString = Left(sInString, iSpot - 1) & _ sReplaceString & _ Mid(sInString, iSpot + Len(sFindString)) Else Exit For End If Next fstrTran = sInString End Functiontmtony在 2002/04/08 18:24:00 回复------------------- 我也有个例子，在 http://www.office-cn.net/bbs/dispbbs.asp?boardID=3&RootID=1329&ID=1388 里用到.不过也是借用的Function ReplaceStr(TextIn, SearchStr, Replacement, CompMode As Integer)Dim WorkText As String, Pointer As Integer If IsNull(TextIn) Then ReplaceStr = Null Else WorkText = TextIn Pointer = InStr(1, WorkText, SearchStr, CompMode) Do While Pointer > 0 WorkText = Left(WorkText, Pointer - 1) & Replacement & Mid(WorkText, Pointer + Len(SearchStr)) Pointer = InStr(Pointer + Len(Replacement), WorkText, SearchStr, CompMode) Loop ReplaceStr = WorkText End If End Function大熊在 2002/04/08 18:41:00 回复------------------- 好像基本一样啊，只是觉得你的函数名更好记，但是变量命名就没此人来的规范，可读性也要差一些！两者合并以后，归我用啦！：）Ps.加个CompMode也很实用。
Access判断报表有否数据及打开时让报表最大化
问题： Access判断报表有否数据及打开时让报表最大化 如何点击自制“报表预览”按钮，弹出最大化的报表视图？ 另如何判断报表有否数据，没有数据就不需要打印报表解决办法（tmtony) 在报表的open事件中 加入docmd.Maximize 即可而判断报表有否数据，可以在报表的NoData事件中Private Sub Report_NoData(Cancel As Integer) msgbox "没有数据" Cancel=trueEnd Sub