摘要

這篇文章概括了當使用Microsoft Access 時，通過使用Access Basic可以增加應用程序的執行速度，減少編碼量，同時也減少在為Microsoft Windows應用程序接口編程時、在開發應用程序中遇到的問題的技術。謹慎地使用變量和它所占用的存儲空間能有效地減少一個應用程序所消耗的資源，同時也全面提高了它的性能。

不正確地調用Windows應用程序接口可能會產生一些意想不到的副作用，以及潛在地對一個應用程序的代碼及數據段的破壞。正確地使用一個空的32位指針在Microsoft Access 中是十分必要的。

當對表格和報表進行操作時，Microsoft Access有一個無正式文本的特性。這個特性允許你從設計視窗性質sheet window中進行過程調用，調用的方法時同時按下shift和F2鍵。

使用唯一的別名

在Access Basic中，如果你知道入口點（動態鏈接庫中函數的名字），你可以調用動態鏈接庫中的外部函數。不過，使用這一方法的限制性在于你只能聲明外部函數一次。如果你安裝了調用了你的模塊調用的相同的Windows應用程序接口，你不會得到一個不為人所知的錯誤：試圖用相同的函數定義安裝模塊。

你嘗試安裝的模塊要么是包含有相同的函數名，要么是包含在已存在的模塊中有的過程名。刪除這些過程，在EDIT菜單中使用FIND命令找到重復的過程名，要解決這一問題，你需要使用一種叫做“別名使用“的技術。這種技術允許你給你的過程一個獨一無二的名字。但是，你選擇的別名也有可能不是獨一無二的，所以要使你取的名字唯一，你可以用初始值和下劃線優先聲明你所有從動態鏈接庫中調用的過程，比如，聲明getActiveWindow為：

Declare bcb_GetActiveWindow Lib "Kernel" Alias "GetActiveWindow" () As Integer.

如何傳遞一個空指針給動態鏈接庫

一個空的32位指針是有效的或是為一些動態鏈接庫要求具有參數。要指定一個空值，使用0&。當你的函數調用一個過程并傳遞一個表達式0&，“&”指定一個32位的空指針，在函數聲明中，一個AS ANY參數指示Access Basic對那個參數不進行類型檢查，同時把值傳遞到被調用的函數。

下面的編碼示范了一個正確的方法，告訴你如何聲明一個給動態鏈接庫中的過程傳遞一個空指針參數的Access Basic函數。這段聲明了WriteProfileString應用程序接口函數。這個函數來自于外部Windows動態鏈接庫“kernel”。

Declare Function WriteProfileString Lib "Kernel"
(ByVal lpApplicationName As Any, ByVal lpKeyName As Any, ByVal lpString As Any)

接下來的函數調用了一個外部過程，位每個參數指定一個空值。這將使WriteProfileString充滿它的內部高速緩沖區，并且WIN.INI的任何變化寫到磁盤上。

重要的對這個函數不正確的使用會引起一般性的保護故障或修改你的WIN.INI文件。

Function nFlushIniCache()
　　nFlushIniCache = WriteProfileString (0&, 0&, 0&)
End Function

如何從動態鏈接庫中傳遞和接收無符號整型數

常常有這樣一種情況，要從外部動態鏈接庫調用的過程中返回一個兩個字節長的無符號整型數。然而Access Basic不支持這種數據類型。正確地計算這種數據類型需要把它從一個無符號整型數轉換程Access Basic長數據類型。

Access Basic整型數的范圍使從-32768到32767。一個無符號整型數的范圍是從0到65535。Access Basic用最明顯的一位來放置數值的符號位，所以當數值超過32767，第16位將被置成負數符號。要計算一個無符號整型數，你必須人工調整第16位。

從無符號整型數轉換到Access Basic長整型數或從Access Basic的長整型轉換成無符號整型數有兩種方法。第一種方法用到了最基本的數學運算（65535被無符號整型值加或減）。第二種方法使用Bitwise操作。實際上，算術方法和Bitwise方法工作起來效果一樣，只不過，算術方法可能可讀性更強一些，而Bitwise方法在執行時可能更快一些。

算術方法

下面的lArithUintToInt (nUint)和lArithIntToUnint(lBytes)過程示范了如何使用轉換無符號整型數的算術方法。第一個函數讀進一個無符號整型數同時返回一個已經轉變位長整型的值。第二個函數讀入一個長整型值，然后返回一個轉變成無符號整型的值。

Function lArithUintToInt (nUint As Integer)
　　If nUint < 0 Then
　　　　lArithUintToInt = nUint 65536
　　Else
　　　　lArithUintToInt = nUint
　　End If
End Function

Function nArithIntToUnint (lBytes As Long)
　　If lBytes > 32767 Then