当前位置:主页 > Office办公

最新发布

Access如何创建表
Access如何创建表

创建数据库时,将数据存储在表中。 由于其他数据库对象严重依赖于表,因此应始终通过创建所有表来创建数据库的设计,然后创建任何其他对象。 在创建表格之前,请仔细考虑您的要求并确定所需的所有表结构。下面演示如何创建第一个表来存储有关员工的基本联系信息,如下表所示 - 现在使用短文本作为所有这些字段的数据类型,并在Access中打开一个空白数据库。创建了数据库,然后Access自动打开了一张表的一个数据表视图。现在转到“字段”选项卡,看到ID字段是自动创建的。ID字段使用自动编号充当的唯一标识符,并且是该表的主键。ID字段已经被创建,现在要重新命名表的编号列的名称为:EmployeeID ,这将是员工的唯一标识符。参考下图 -将此字段的名称更改为EmployeeID,以使其更具体到此表。 如果需要,请输入其他可选信息,然后单击确定 。现在有EmployeeID字段和标题为EmployeeID。它被自动设置为自动编号,所以并不需要改变数据类型。下面点击添加更多的字段(列)。

599 次浏览
Access如何添加数据实现图解教程
Access如何添加数据实现图解教程

Access数据库与Microsoft Office Word文档或Microsoft Office PowerPoint并不是相同的文件形式。 相反,Access数据库是像表,表格,报表,查询等对象的集合,它们必须协同工作才能使数据库正常工作。经过学习上一节的示例,我们已经在数据库中创建了两个包含所有必需的字段和字段属性的表。 要在Access中查看,更改,插入或删除表格中的数据,可以使用表格的数据表视图。让我们打开前面创建的Access数据库表,将一些数据添加到表中。参考下图 -选择功能区中的“视图”→“数据库视图”选项并添加一些数据,如以下屏幕截图所示。现在可以看到,在数据表视图中插入新数据和更新现有数据在电子表格中非常简单。但是如果想删除任何数据,例如要删除EmployeeID为5的那一行数据,需要首先选择整行,右键选择:删除记录或点击菜单:删除,如下图所示。现在按下删除 按钮。这将显示确认消息。单击是,您将看到选定的记录现在被删除。

1588 次浏览
Access如何创建查询
Access如何创建查询

在本章中让我们来了解如何创建查询。可以使用更新查询更改表中的数据,并且可以使用更新查询来输入条件以指定应更新哪些行。 在执行更新之前,更新查询提供了一个查看更新数据的机会。 让我们再次转到“创建”选项卡,然后单击“查询设计”。在“表”选项卡的“显示表”对话框中,双击Employees表,然后关闭对话框。在“设计”选项卡的“查询类型”组中,单击“更新”并双击要更新值的字段。假设要将员工编号为:"1"的名字更新为"Supersu"。如下图所示 -在“设计”网格的“更新”行中,输入更新后的值,然后在“条件”行中添加要更新的原始值并运行查询。这将显示确认消息。单击是,然后转到数据表视图,将看到第一条记录 - 名字现在更新为"Supersu"。如下图所示 -可以使用删除查询从表格中删除数据,并且可以使用删除查询输入条件来指定应删除哪些行。 删除查询提供了一个方法,可以在执行删除操作之前查看将要删除的行。 让我们再次转到“创建”选项卡,然后单击“查询设计”。在“表”选项卡的“显示表”对话框中,双击Employees表,然后关闭对话框。在“设计”选项卡的“查询类型”组中,单击“删除”,然后双击"EmployeeID"。在“设计网格”的“条件”行中,键入9, 在此,我们要删除EmployeeID为9的员工。

888 次浏览
Access如何对交叉查询产生报表
Access如何对交叉查询产生报表

ACCESS提供一个交叉查询的功能,为用户提供许多方便,它也可以直接打印。 但如果你需要使用这个交叉查询来制作一个报表,由于交叉查询产生的列是不定的,且根据数据而变,所以制作报表存在一些问题,请大家就这个问题进行讨论,提出一个比较好的解决方案。以后每周均会以这种形式对ACCESS的一些难题进行讨论。 表现优秀者将由版主或站长予以各种形式的嘉奖!!! ganrong 加够多的控件,然后用不到的隐藏起来 不知这种方法是否可行cnwang 先加控件再隐藏,或动态创建控件应该都可以。用交叉查询做报表源,其最大难点应该在于字段名的不固定,下面这句可以帮点忙啦:CurrentDb.QueryDefs("交叉查询1").Fields(2).Name老大这个点子非常不错!!!!!!! tmtony cnwang兄,我现在采取的办法是也是创建足够多的控件。 但我根据查询表或窗体(一般是子窗体)的列(动态列)来动态显示和重新定位报表中的列,使整个报表永远比较美观,但在处理上始终不是十分方便。 所以想知道高手在这方面的经验。yuab 我做了个例子可解决以上问题。最关键是不会影响速度。 文件下载tmtony 很不错,看来大家的思路都是一样的 我的程序基本上与你的是类似的。 我过几天整理一下也放上来 不过,想知道还有没有其它办法tmtony 上传了我的例子,由于有客户的数据,所以只放上报表和程序,无法取具体数据,大家看看程序即要明白。 根据产生的查询窗体的列的多少自动设置报表显示的列及重新排列各列的位置。 自动根据数据窗体栏目宽度的变化而自动改变报表各列的宽度的功能还正在完善(即所见即所得)文件下载

393 次浏览
Access日期控件的示例代码
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

565 次浏览
VB调用Access的报表的几种方法
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版本。对中文有一点问题,后来好像解决了

712 次浏览
Access与sql server在查询中处理BIT / BOOLEAN 逻辑字段不同之处
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 只能这么做, 这是没有办法的事情, 两种语言定义的不一样

338 次浏览
Access2016数据库开发教程10
Access2016数据库开发教程10

6.6 创建员工编码相关窗体模块  进入Main.mdb的设计界面,选中SysFrmLogin窗体,如下图6-24所示:   图6-24 窗体显示区  双击运行SysFrmLogin窗体,进入平台主界面,在左边导航区,选中【开发者工具】à【数据模块创建向导】,如下图6-25所示:   图6-25 数据模块自动生成器  用鼠标双击【数据模块创建向导】,将显示“数据模块创建向导”界面,如下图6-26所示:   图6-26数据模块自动生成器(1)

364 次浏览
Replace函数
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也很实用。

326 次浏览
Access判断报表有否数据及打开时让报表最大化
Access判断报表有否数据及打开时让报表最大化

问题:  Access判断报表有否数据及打开时让报表最大化     如何点击自制“报表预览”按钮,弹出最大化的报表视图?  另如何判断报表有否数据,没有数据就不需要打印报表解决办法(tmtony) 在报表的open事件中 加入docmd.Maximize 即可而判断报表有否数据,可以在报表的NoData事件中Private Sub Report_NoData(Cancel As Integer)     msgbox "没有数据"     Cancel=trueEnd Sub

387 次浏览
共计75934条记录 上一页 1.. 6854 6855 6856 6857 6858 6859 6860 ..7594 下一页