您现在的位置: Office学院 - Access
MVP-郑家龙[zhengjialong]
740)this.width=740" border=undefined> 郑家龙专栏      郑家龙,网名:zhengjialon,在企业从事数据库开发工作,2004年9月荣获微软最有价值专家称号。Office中国论
分类:Access发表于:2006-10-05 查阅全文
一组判断对象是否存在数据库中的模块
'----判断查询是否存在------------------Function IsQueryInDatabase(strQueryName As String) As Integer   &nb
分类:Access发表于:2006-06-05 查阅全文
解决文本框显示小数点后很多数字的问题
近日开发一软件时碰到了下面的问题,想了很久,现整理一下与大家分享: 问题描述: 当文本框获得焦点时,如何解决显示小数点后很多数字的问题?具体问题描述如下:当文本框未获得焦点时,显示两位小数(这是我想要的效果),而一旦鼠标进入,则显示很多位小数点后面的数字,而我表在存储的是
分类:Access发表于:2006-10-11 查阅全文
指定字符开头和结束的查找
'使用方法:'findstr("我来添加文章","来","加")'=来添加 '-----------------------------Public Function findStr(ByVal str As String, ByVal str1 As String, By
分类:Access发表于:2006-06-12 查阅全文
菜单和工具栏控制(适用于全部Office组件)
经常看到有网友问菜单和工具栏的问题,包括使菜单项失效,禁止右键菜单弹出,增加菜单项等,自己也回答了不少这方面的问题,这些问题其实都是雷同的,数月之前就打算写点东西介绍一下这方面的内容,但一直都忙于工作,直至现在才抽出时间来完成。     菜单和
分类:Access发表于:2006-03-13 查阅全文
MVP-黄海[huanghai]
黄海 黄海,2000年开始学习Access,记得当时的资源很少,市场只有几本简单的入书丛书,网上只有一个access交流中心,商务小秘书,还一个双胞胎工作室,我曾得到过双胞胎工作室的站长的帮助,对我在ACCESS的成长之路帮助很大,
分类:Access发表于:2006-03-08 查阅全文
使窗体居中显示代码
  使窗体居中显示代码ACCESS中的窗体虽然设置了自动居中,但是打开后总是有点不居中的感觉,加下如下代码可以做到真正居中显示Private Sub Form_Load()DoCmd.Echo FalseDim 
分类:Access发表于:2007-02-24 查阅全文
操作注册表
Option ExplicitDeclare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal
分类:Access发表于:2006-05-22 查阅全文
返回CPU16位16进制序列号
Public Function GetwmiProcessorID() As String' 使用 Windows WMI 组件来识别 CPU ID' Getcpuid.dll 获取的id只有8位, 而使用 Microsoft WMI Scripting Library
分类:Access发表于:2006-10-03 查阅全文
取得桌面路径
Dim wshshell As ObjectDim strDesktopSet wshshell = CreateObject("wscript.shell")strDesktop = wshshell.regread("HKEY_CURRENT_USER\Software\
分类:Access发表于:2006-05-17 查阅全文
取混合字符串的实际长度:一个汉字占二个字节长度,一个ASCII占一个字节长度
Public Function LenC(str As String) As Integer'   取混合字符串的实际长度:一个汉字占二个字节长度,一个ASCII占一个字节长度'   LenC("例ABCD") = 5 &nb
分类:Access发表于:2007-01-09 查阅全文
选择目录的代码
Option Compare Database Option Explicit Private Const BIF_RETURNONLYFSDIRS = 1Private Const BIF_DONTGOBELOWDOMAIN = 2Private Const MAX
分类:Access发表于:2006-10-27 查阅全文
标准文件对话框
'例: CommonFileOpenSave(, , "所有文件(*.*)" & Chr(0) & "*.*" & Chr(0))Option Compare DatabaseOption ExplicitType tagOPENFILENAME&
分类:Access发表于:2005-11-21 查阅全文
用代码设置ACCESS选项
Application.SetOption "Show Status Bar", False Application.SetOption "Show Startup Dialog Box", False   我们做好程序分发给他人使用时,可能别人的ACCESS系统环境
分类:Access发表于:2006-09-10 查阅全文
使用代码刷新链接表
Private Sub c_connect_Click()        Err = 0    On Error Resume Next    &nbs
分类:Access发表于:2007-02-03 查阅全文
如何定制自己的MSI安装文件
前面我们介绍了很多MSI文件的内容,其实MSI并不神秘、复杂,我们自己都能制作,并且制作MSI文件的工具已经在Windows的安装盘上了。 首先,找到Windows2000的安装光盘,双击下边的这个位置的文件:Valueadd\3rdparty\Mgmt\Winstle
分类:Access发表于:2005-12-17 查阅全文
返回长文件名的短文件名函数
如我们在使用REGSVR32.exe注册控件时,如果这个控件的路径中有空格或者文件名太长,就会注册不成功,因为REGSVR32.exe不支持长文件名,下面的函数就是解决这样的类似的问题' 例如' ? getShortPath("C:\Documents and Setti
分类:Access发表于:2007-06-01 查阅全文
返回操作系统的临时目录,系统目录,WINDOWS目录
'******************** Code Start **************************' This code was originally written by Dev Ashish.' It is not to be altered or d
分类:Access发表于:2006-11-01 查阅全文
不显示操作查询的系统提示二种方法
Dim strSQL As StringstrSQL = "更新语句" '方法1DoCmd.SetWarnings False'不显示警告DoCmd.RunSQL strSQLDoCmd.setwarnints True'恢复显示 '方法2CurrentProject
分类:Access发表于:2006-08-23 查阅全文
如何在ACCESS2002以后的版本中隐藏指定了图标的ACCESS对象窗体
access2002以后,设置了程序的图标,如要隐藏数据库对窗体在启动项中设置是不行的(应该是MS的BUG),程序启动后仍会出现数据库对像窗体。变通的解决方案是:在启动窗体(宏也可以实现)的加载事件中加入代码:DoCmd.SelectObject acForm,&n
分类:Access发表于:2007-04-15 查阅全文
把子窗体的内容复制到EXCEL
把子窗体的内容复制到EXCEL(子窗体可以是任意形式,如:连续窗体,数据表窗体) Sub 把子窗体的内容复制到EXCEL()        Me.Child28.SetFocus   
分类:Access发表于:2005-12-06 查阅全文
ADP(SQL SERVER)中的交叉查询
交叉数据报表有时候需要旋转结果以便在水平方向显示列,而在垂直方向显示行。这就是所谓的创建 PivotTable®、创建交叉数据报表或旋转数据。 假定有一个表 Pivot,其中每季度占一行。对 Pivot 的 SELECT 操作在垂直方向上列出这些季度: Year&
分类:Access发表于:2006-03-01 查阅全文
一句代码得到表中的某行的指定字段另类方法
一般情况下我们使用DLOOKUP,或才ADO,DAO来读取记录,这样我们来个比较特殊的用法得到录:dim strname as string'方法一:strname = currentproject.connection.execute("select name from e
分类:Access发表于:2007-01-04 查阅全文
返回存储过程OUTPUT参安息和RETURN返回值的原代码
---------------------------------ALTER PROCEDURE sp_2@p int output,@p1 int,@p2 int as set @p = @p1+@p2return 99--------------------------
分类:Access发表于:2007-03-10 查阅全文
如何设置ACCESS2003(运行时)的宏安全性级别
ACCESS2003版本加了宏安全性级别的设置,设置地用处在处不表。方法:操作菜单可以自定义菜单,或直接调用菜单上的操作:CommandBars("menu bar").Controls("工具(&T)").Controls("宏(&M)").Con
分类:Access发表于:2005-12-13 查阅全文
如何定义自动编号字段的初始值和步进值?
问题: 如何定义自动编号字段的初始值和步进值?如何定义自动增加字段的初始值和步进值?如何使删除过数据的自动增加字段的开始值重新从1开始? 回答: 通过以下语句,你可以在建表的时候指定其起始值和步进值:CREATE TABLE tblNewOrder2 ( OrderId
分类:Access发表于:2006-11-19 查阅全文
使用ACCESS做网络版程序的四种解决方案
一:直接把MDB(MDE)文件放到网络中的共享目录中,在客户端做好对应的快捷方式 二:数据库折分(菜单:工具,实用工具,折分)成前后台,把后台放在一个共享目录中,然后前台文件就可以分发给每个用户了。 三:也是使用拆分成前后台,后台升迁至SQL SERVER数据库,然
分类:Access发表于:2006-12-29 查阅全文
null值在SQL 语句和ADODB.Recordset.Filter中使用不同
null值在SQL 语句比较符是:is null值在ADODB.Recordset.Filter语句比较符是:= 不能反了,反了就出错,有时候真的会弄糊涂了.
分类:Access发表于:2006-11-14 查阅全文
一句代码得到SQL SERVER时间的函数
Function getServerTime() As Date    getServerTime = CDate(CurrentProject.Connection.Execute("SELECT GETDATE()")(0).Value)En
分类:Access发表于:2006-06-22 查阅全文
轻松在Windows XP中发短信
 如果你的手机有能和电脑连接的数据线,如果你用的操作系统是Windows XP,那么你就可以在电脑上输入短信并且发送了。   在Windows XP中发短信要用到的“SMS Sender”软件,它是Windows XP 的一个附加组件。跟普通发送短信的软件不同,“SMS S
分类:Access发表于:2006-11-25 查阅全文