ACCESS2003在WIN7下運(yùn)行問題

wuheng

寫的一個(gè)小程序，編寫環(huán)境ACCESS200+WIN XP  現(xiàn)運(yùn)行環(huán)境ACCESS2003+WIN7
出現(xiàn)以下問題，請(qǐng)各大俠施援手，謝謝，wuheng 敬上

問題簽名:
  問題事件名稱:        APPCRASH
  應(yīng)用程序名:        MSACCESS.EXE
  應(yīng)用程序版本:        0.0.0.0
  應(yīng)用程序時(shí)間戳:        42cdb33e
  故障模塊名稱:        ntdll.dll
  故障模塊版本:        6.1.7601.23543
  故障模塊時(shí)間戳:        57d2f8a2
  異常代碼:        c0000005
  異常偏移:        000346f3
  OS 版本:        6.1.7601.2.1.0.256.1
  區(qū)域設(shè)置 ID:        2052
  其他信息 1:        0a9e
  其他信息 2:        0a9e372d3b4ad19135b953a78882e789
  其他信息 3:        0a9e
  其他信息 4:        0a9e372d3b4ad19135b953a78882e789
然后就關(guān)閉ACCESS程序了

roych

壓縮修復(fù)下，然后編譯下再看看。

風(fēng)中漫步

象是ACC使用的ntdll.dll版本與系統(tǒng)的不匹配。

wuheng

roych 發(fā)表于 2017-3-7 18:49
壓縮修復(fù)下，然后編譯下再看看。

我設(shè)定每次關(guān)閉程序都進(jìn)行壓縮修復(fù)的，好象還是解決不了

wuheng

風(fēng)中漫步 發(fā)表于 2017-3-8 13:59
象是ACC使用的ntdll.dll版本與系統(tǒng)的不匹配。

那得要怎么解決？網(wǎng)上下載一個(gè)ntdll.dll覆蓋掉機(jī)子里的ntdll.dll嗎？謝謝

roych

wuheng 發(fā)表于 2017-3-8 14:51
我設(shè)定每次關(guān)閉程序都進(jìn)行壓縮修復(fù)的，好象還是解決不了

不引用這個(gè)庫有沒有問題先。如果用不到，先不要引用這個(gè)庫看看。

風(fēng)中漫步

百科中的一段：http://baike.baidu.com/item/ntdll.dll

ntdll.dll是NT操作系統(tǒng)重要的模塊。[2]
ntdll.dll是Windows系統(tǒng)從ring3到ring0的入口。位于Kernel32.dll和user32.dll中的所有win32 API 最終都是調(diào)用ntdll.dll中的函數(shù)實(shí)現(xiàn)的。ntdll.dll中的函數(shù)使用SYSENTRY進(jìn)入ring0，函數(shù)的實(shí)現(xiàn)實(shí)體在ring0中

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

wuheng

風(fēng)中漫步 發(fā)表于 2017-3-9 13:45
百科中的一段：http://baike.baidu.com/item/ntdll.dll

ntdll.dll是NT操作系統(tǒng)重要的模塊。[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) '屏蔽主窗口的關(guān)閉按鈕
End Sub

wuheng

roych 發(fā)表于 2017-3-8 20:43
不引用這個(gè)庫有沒有問題先。如果用不到，先不要引用這個(gè)庫看看。

如果不引用的話，會(huì)運(yùn)行不了~

風(fēng)中漫步

注釋掉API聲明和使用代碼試試還有上述錯(cuò)誤嗎？