最近有一个客户在使用Access通用开发平台生成的MDE,在某些电脑总是出现错误,无法打开,或打开提示宏错误或VBA程序出错。 但把Access 源文件mdb复制到这台出错的电脑重新生成mde,则打开正常......
2019-11-10 723 Access,Access参数查询
最近有一个客户在使用Access通用开发平台生成的MDE,在某些电脑总是出现错误,无法打开,或打开提示宏错误或VBA程序出错。 但把Access 源文件mdb复制到这台出错的电脑重新生成mde,则打开正常......
2019-11-10 723 Access,Access参数查询
在Access菜单栏下打开文件-选项-当前数据库,可以设置当前数据库的一些属性。如下图所示 1.应用程序标题 显示数据库的标题,这里我们键入Access数据库管理系统 2.应用程序图标 显示应用程序......
2019-11-10 613 Access,Access数据库的常用设置
VBA本身没有压缩和解压缩的函数,但可调用zip.dll unzip.dll 或 winrar.exe 命令行方式来实现对文件的压缩与解压缩 1、批量解压缩(一次性解压指定文件夹中所有rar文件) Sub UnRarFile() '解压缩程序......
2019-11-10 597 VBA压缩与解压缩
VB Access Excel本身没有自己的压缩和解压缩函数和组件,必须依赖于第三方的控件或动态链接库,以下是三种不同压缩组件的性能对比详细报告 VB中使用三种不同组件进行内存解压的结果分析比......
2019-11-10 347 Access,Access参数查询
Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click '保存压缩文件 Dim fso As New SaveFileDialog If fso.ShowDialog = Windows.Forms.DialogResult.OK Then GzipFile(fso.FileName) End If......
2019-11-10 350 Access,Access参数查询
Access内置函数库能轻松解决很多问题。如果没有此函数,我们可以自定义函数来处理问题。 这里我们说说如何调用函数。 调用内置函数和自定义函数方法是一样的。 一.创建自定义函数 在VB......
2019-11-10 594 Access,Access函数的调用
有网友想根据窗体设计的内容动态创建报表?这个功能其实可以参考Office交流网Access通用开发平台。 这里用到VBA代码,下面的示例是简单创建一个test report的报表 详细源码: Sub testreport() Dim......
2019-11-10 434 Access,Access动态创建报表对象
Access VBA 使用API 关闭系统声音和打开系统声音的 方法 即让整个系统静音及取消静音的代码如下 ------VBA 实现 源码-------------------- Private Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal lpClassN......
2019-11-10 375 Access,Access参数查询
完全一样的Access查询,直接找开或DAO打开结果正确,但使用ADO代码打开则结果不正确 就是查询如果比较复杂的话,通过ADO获取这个查询的记录的时候,有些字段的值全部是空的 如果用Access双击打......
2019-11-10 398 Access,Access参数查询
Access或VB VBA 获取了窗体或控件的句柄 Hwnd, 如果用API 设置焦点到这个控件或窗体上 可使用以下的代码,要准确定位焦点 1. 使用VB API SendMessage来实现 简易使用SendMessage,比SetFocus更为底层,调用速......
2019-11-10 604 Access,Access参数查询
在使用ADO的OpenSchema或ADOX 读取Access数据库里所有查询的清单时 发现结果总是少了一个查询,Access查询列表中有5个,但用VBA 或VB代码读出来只有4个,少了一个 ADO读取Access数据库所有查询名的代......
2019-11-10 412 Access,Access参数查询
在Access设置透明的图标按钮,会另界面显得更加专业,美观。 在早期的版本中Access2003中,Access按钮图标的一般做法是在按钮的底部放置一个矩形(设置成图片),按钮显示为透明,这样就能达......
2019-11-10 504 Access设置透明图标按钮
在调用SHELL之前,必须要通过以下步骤:(以在E:盘根目录下操作为例) 1、强制改变当前的驱动器: ChDrive E 2、强制改变默认的工作目录:chdir E:/ 完成以上动作之后,再来调用E:/的批处理文......
2019-11-10 378 Access,Access参数查询
很久以前帮客户做的一个客户管理系统,有一个取软件版本号的函数,感觉还有点用,与大家分享一下 Access数据库软件版本号保存在INI文件中,然后从INI文件中提取软件的当前版本号(可用来......
2019-11-10 310 Access数据库
提示: 不要定义示例中的 strFileNameFolder 变量为String 类型,必须定义为 Variant 类型, 否则代码不能正常运行。 示例 1: 通过此例你可以浏览压缩文件.你选中一个文件后此宏会在你的默认文件路......
2019-11-10 1066 VBA直接解压文件
关于查询的最好的部分是可以一次又一次地保存和运行相同的查询,但是当您通过只更改条件来一次又一次地运行相同的查询时,则可以考虑查询来接受参数并按指定参数值来查询。 如果您经......
2019-10-31 1224 Access,Access参数查询
一、课程基本情况 课程名称: Access 数据库程序设计 课程代号: 253 考核对象: 非计算机专业本专科学生 先修课程: 计算机应用基础 学 时: 72 学时 ( 理论 48 学时,上机实验 24 学时 ) 考试安......
2018-10-29 405 Access,数据库程序设计,Access数据库程序设计
问题: Access判断报表有否数据及打开时让报表最大化 如何点击自制报表预览按钮,弹出最大化的报表视图? 另如何判断报表有否数据,没有数据就不需要打印报表 解决办法(tmtony) 在报表的......
2018-10-16 372 Access,数据库,Access数据库
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, sFindSt......
2018-10-16 318 Replace函数
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......
2018-10-16 325 Access,数据库,Access数据库