当前位置:主页 > Office办公 > 其他专区 > Access

最新发布

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

564 次浏览
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 只能这么做, 这是没有办法的事情, 两种语言定义的不一样

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

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

362 次浏览
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也很实用。

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

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

386 次浏览
Access查询标准(条件)详解
Access查询标准(条件)详解

查询条件可以帮助您从Access数据库中检索特定项目。 如果项目与输入的所有条件相匹配,则会显示在查询结果中。 当您想根据字段中的值限制查询的结果时,可以使用查询条件。下面来看一个简单的例子,我们将在查询中使用条件。 首先打开Access数据库,然后转到创建 选项卡,然后单击查询设计 。在“显示表格”对话框的“表格” 选项卡上,双击Employees表,然后关闭对话框。现在,在查询网格中添加一些字段,如:EmployeeID,Name,City,Address和Phone,如以下屏幕截图所示。现在运行查询,您将只看到这些字段作为查询结果。如果x只想看到那些城市(City)值为海口的员工信息,那么将需要添加查询条件。再次进入查询设计,并在City的查询条件行中输入海口。如下图所示 -现在,再次运行查询,您将看到只有城市(City)列的值为海口的信息被查询到显示。如果要为多个字段添加条件,只需在多个字段中添加条件即可。我们只想检索城市为北京和深圳的数据; 那么可以指定使用OR操作符,如下面的截图所示 -现在再次运行查询,您将看到以下结果。如果需要使用AND运算符的功能,则必须在“条件”行中指定其他条件。要检索所有的省份为"广东",城市为:"广州"的所有信息。为了方便演示,这时再添加两条数据记录,完整的数据如下所示 -使用AND运算符的功能,指定省份为"广东",城市为:"广州"的所有信息 -

Access对象知识详解
Access对象知识详解

MS Access使用“对象”来帮助用户列出和组织信息,以及准备特别设计的报表。当创建数据库时,Access提供表格,查询,表格,报表,宏和模块等许多对象,但以下是主要的对象 -这些对象一起允许您输入,存储,分析和编译数据。 以下是Access数据库中主要对象的摘要。表是用于定义和存储数据的对象。当创建一个新表时,Access会要求您定义也称为列标题的字段。提供来自一个或多个表的数据的自定义视图的对象。 查询是搜索和编译一个或多个表中的数据的一种方法。窗体(也叫:表单)是主要用于数据输入或显示或控制应用程序执行的桌面数据库中的一个对象。 可以使用窗体来自定义应用程序从查询或表中提取的数据的表示。报表是桌面数据库中的一个对象,用于格式化,计算,打印和汇总所选数据。下面,让我们来看看其他的MS Access对象。此对象是您希望Access响应于定义的事件而执行的一个或多个操作的结构化定义。访问宏是做一些工作的脚本。 例如,要创建一个打开报告的按钮,可以使用一个会触发OpenReport操作的宏。模块是包含使用Visual Basic编码的自定义过程的桌面数据库中的一个对象。 模块提供了更离散的操作流程,并允许捕获错误。

597 次浏览
通过VBA代码动态设置Access报表Graph控件的数据源
通过VBA代码动态设置Access报表Graph控件的数据源

如何通过程序动态设置报表中GRAPH控件的数据源?能否写出具体的设置语句 我的GRAPH就是微软OFFICE 2000自带的。tmtony1. 初次尝试:G_1.RowSource=SQL语句不行吗 g_1是graph 清空为 select fld1 as "空", fld2 as 0 from table1caijun64 回复 不行,我就是这样做的,但不行,出错,错误信息为:“运行时错误2455,你输入的表达式对属性rowsource的引用无效。”。注:我是在Access 2000中report的Open事件中对Graph控件的Rowsource属性赋SQL语句的。  2. 再次尝试: 我找到我原来的有图表的报表程序,发现我说错一件事。 图表的rowsource在程序中是无法真正动态产生的(我为此找过很长一段时间啦,微软也没给过正确答案给我) 我现在所谓的动态生成是生成它的源,即图表绑定到一个查询,你动态改变这个查询 改变查询的方法:Dim mydb As dao.Database Dim qdf As dao.QueryDef Set mydb = CurrentDb Set qdf = mydb.QueryDefs("test_v") qdf.SQL = Form_SPC&Ecirc;&yacute;&frac34;&Yacute;&sup2;é&Ntilde;&macr;.&iquest;&Oslash;&Ouml;&AElig;&Iacute;&frac14;.Form.&iquest;&Oslash;&Ouml;&AElig;&Iacute;&frac14;.RowSource qdf.Close 

1072 次浏览
Access查询数据实现教程
Access查询数据实现教程

查询是对数据结果的请求,也是对数据的操作。可以使用查询来获取一些所需的数据,执行计算,合并来自不同表格的数据,甚至可以添加,更改或删除表格数据。如果只想查看表格中特定字段的数据,或者同时查看多个表格中的数据,或者只是查看基于特定条件的数据库,则可以使用Select查询。 现在来看看一个简单的例子,我们将创建一个简单的查询,它将从Employees表中检索信息。打开数据库,然后点击创建 选项卡。点击查询设计 选择表:Employee 然后点击添加,然后点击关闭 , 如下图所示 -在Employee表中,双击您想查看的所有这些字段作为查询的结果。将这些字段添加到查询设计网格中,例如,这里要将:Name,City,Address和Phone列添加到查询结果中,如以下屏幕截图所示。现在单击设计选项卡上的运行, 将得到以下结果 -

582 次浏览
共计204条记录 上一页 1 2 3 4 5 6 7 8 ..21 下一页