Access的秘密技巧和陷阱

核心提示： 算术方法下面的lArithUintToInt(nUint)和lArithIntToUnint(lBytes)过程示范了如何使用转换无符号整型数的算术方法，第一个函数读进一个无符号整型数同时返回一个已经转变位长整型的值，Access的秘密技巧和陷阱(4)，第二个函数读入一个长整型值，然后返回一个转变成无符号整型的值，这

算术方法

　　下面的lArithUintToInt(nUint)和lArithIntToUnint(lBytes)过程示范了如何使用转换无符号整型数的算术方法。第一个函数读进一个无符号整型数同时返回一个已经转变位长整型的值。第二个函数读入一个长整型值，然后返回一个转变成无符号整型的值。

FunctionlArithUintToInt(nUint As Integer)If nUint < 0 Then

　　lArithUintToInt = nUint + 65536Else

　　lArithUintToInt = nUintEnd IfEnd FunctionFunctionnArithIntToUnint(lBytes As Long)If lBytes > 32767 Then

　　nArithIntToUnint = lBytes - 65536Else

　　nArithIntToUnint = lBytesEnd IfEnd Function按位操作方法

　　下面的nBWUintToInt(lBytes)和lBWIntToUint(nUint)过程示范了如何使用Bitwise方法转换无符号整型数。第一个函数读进一个无符号整型数，然后返回一个已经转换成长整型的值。第二个函数读入一个长整型值，然后返回一个已经转换的无符号整型值。第二个函数中使用了提示框的语句是为了防止当传递到函数的值大于64KB时会出现溢出信息。

　　1010001111100000 (-23584)

　　AND 1111111111111111 (FFFF&)

　　1010001111100000 (41952)The functionsfollow:FunctionlBWIntToUint(nUint As Integer)lBWIntToUint = nUintAnd&HFFFF&End FunctionFunction nBWUintToInt(lBytes AsLong)DimnTemp As IntegerIf lBytes > 65535 Then

　　MsgBox You passed a value larger than 65535

　　Exit FunctionEnd IfnTemp = lBytes And &H7FFFnBWUintToInt=nTemp Or -(lBytes And&H8000)EndFunction注意：&HFFFF&要求“&”在16进制数的末尾。这样能保证32位的16进制数通过16位的值表示出来。

AccessBasic中的技巧

　　在MicrosoftAccess中有一些以前无正式文本的特性，它们允许你指定过程，这个过程是从一个from或report的属性工作表窗中调用的。要进入最小窗口，只需要同时按下SHIFT和F2键。