Office中国论坛/Access中国论坛

标题: ACCESS2003在WIN7下运行问题 [打印本页]

作者: wuheng 时间: 2017-3-7 16:18
标题: ACCESS2003在WIN7下运行问题
写的一个小程序，编写环境ACCESS200+WIN XP  现运行环境ACCESS2003+WIN7
出现以下问题，请各大侠施援手，谢谢，wuheng 敬上

问题签名:
  问题事件名称: APPCRASH
  应用程序名: MSACCESS.EXE
  应用程序版本: 0.0.0.0
  应用程序时间戳: 42cdb33e
  故障模块名称: ntdll.dll
  故障模块版本: 6.1.7601.23543
  故障模块时间戳: 57d2f8a2
  异常代码: c0000005
  异常偏移: 000346f3
  OS 版本: 6.1.7601.2.1.0.256.1
  区域设置 ID: 2052
  其他信息 1: 0a9e
  其他信息 2: 0a9e372d3b4ad19135b953a78882e789
  其他信息 3: 0a9e
  其他信息 4: 0a9e372d3b4ad19135b953a78882e789
然后就关闭ACCESS程序了

作者: roych 时间: 2017-3-7 18:49
压缩修复下，然后编译下再看看。

作者: 风中漫步 时间: 2017-3-8 13:59
象是ACC使用的ntdll.dll版本与系统的不匹配。

作者: wuheng 时间: 2017-3-8 14:51

roych 发表于 2017-3-7 18:49
压缩修复下，然后编译下再看看。

我设定每次关闭程序都进行压缩修复的，好象还是解决不了

作者: wuheng 时间: 2017-3-8 14:52

风中漫步发表于 2017-3-8 13:59
象是ACC使用的ntdll.dll版本与系统的不匹配。

那得要怎么解决？网上下载一个ntdll.dll覆盖掉机子里的ntdll.dll吗？谢谢

作者: roych 时间: 2017-3-8 20:43

wuheng 发表于 2017-3-8 14:51
我设定每次关闭程序都进行压缩修复的，好象还是解决不了

不引用这个库有没有问题先。如果用不到，先不要引用这个库看看。

作者: 风中漫步 时间: 2017-3-9 13:45
百科中的一段：http://baike.baidu.com/item/ntdll.dll

ntdll.dll是NT操作系统重要的模块。[2]
ntdll.dll是Windows系统从ring3到ring0的入口。位于Kernel32.dll和user32.dll中的所有win32 API 最终都是调用ntdll.dll中的函数实现的。ntdll.dll中的函数使用SYSENTRY进入ring0，函数的实现实体在ring0中

---------------------------------------
你的程序中是否使用了api?

作者: wuheng 时间: 2017-3-9 14:58
本帖最后由 wuheng 于 2017-3-9 15:00 编辑

风中漫步发表于 2017-3-9 13:45
百科中的一段：http://baike.baidu.com/item/ntdll.dll

ntdll.dll是NT操作系统重要的模块。[2]

有些语句用到了Option Compare Database

Private Declare Function GetVolumeInformation Lib _
   "kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
   lpRootPathName As String, ByVal lpVolumeNameBuffer As _
   String, ByVal nVolumeNameSize As Integer, _
   lpVolumeSerialNumber As Long, lpMaximumComponentLength _
   As Long, lpFileSystemFlags As Long, ByVal _
   lpFileSystemNameBuffer As String, ByVal _
   nFileSystemNameSize As Long) As Long

Option Compare Database
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Sub Form_Load()
  Const MF_BYCOMMAND = &H0&
  Const SC_CLOSE = &HF060
  Dim hMenu As Long
  hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
  Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND) '屏蔽主窗口的关闭按钮
End Sub

作者: wuheng 时间: 2017-3-9 14:58

roych 发表于 2017-3-8 20:43
不引用这个库有没有问题先。如果用不到，先不要引用这个库看看。

如果不引用的话，会运行不了~

作者: 风中漫步 时间: 2017-3-11 12:54
注释掉API声明和使用代码试试还有上述错误吗？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)