Access技巧接龍

xinbao

樓上非常棒!

竹笛

哇，這么多好技巧，我也弄了一些，在：http://www.accessoft.com/Article_Special.asp?SpecialID=1

ui

vba.kill

vba.copy

winterbells7

hehe這個好玩

Trynew

ceiling函數(shù)  是Excel中的向上舍入函數(shù)，可以在引用Excel對象庫后使用(包括其它Excel中的函數(shù))，如msgbox Excel.WorksheetFunction.Ceiling(129.99,0.05)另外也可以在Access中自定義：Public Function Ceiling(Num As Double, Sign As Double) As Double

    Dim intDot As Integer

    intDot = IIf(InStr(Sign, ".") = 0, 0, Len(Sign) - InStr(Sign, "."))

    Num = Int(Num * 10 ^ intDot)

    Sign = Sign * 10 ^ intDot

    Ceiling = (Num + IIf(Num Mod Sign = 0, 0, Sign) - (Num Mod Sign)) / 10 ^ intDot

End Function

000618

如何讓OLE對象反映到窗體或報表上的尺寸正好匹配

在數(shù)據(jù)庫中保存或鏈接的OLE對象，反到窗體和報表上尺寸大小不匹配，有時只是顯示局部一點，怎樣使其匹配。請幫助．

八哥

好厲害

Trynew

下面的程序效率不是很高，但超大整數(shù)乘法、加法的函數(shù)還是比較實用

Public Function factorial(num As Integer) As String

    factorial = "1"

    For num = num To 1 Step -1

        factorial = strMult(factorial, Trim(Str(num)))

    Next

End Function'1000 的階乘=40238726007709377354370243392300398571937...用時6分鐘

'超大整數(shù)乘法 （需調(diào)用下面的strAdd、strPlus自定義函數(shù)）

Public Function strMult(str1 As String, str2 As String) As String

    Dim i As Integer

    If Len(str2) = 1 Then

        strMult = IIf(str2 = "0", "", str1)

        For i = 1 To Val(str2) - 1

            strMult = strAdd(strMult, str1)

        Next

    Else

        strMult = strAdd(strMult(str1, Right(str2, 1)), strMult(str1 & "0", Left(str2, Len(str2) - 1)))

    End If

End Function'超大整數(shù)加法 （需調(diào)用下面的strPlus自定義函數(shù)）

Public Function strAdd(str1 As String, str2 As String) As String

    If Len(str1) < Len(str2) Then

        strAdd = strAdd(str2, str1)

    Else

        Dim num As Long

        strAdd = strPlus(str1, "", Val(Right(str2, 1)))

        For num = 1 To Len(str2) - 1

            strAdd = strPlus(Left(strAdd, Len(strAdd) - num), Right(strAdd, num), Val(Mid(str2, Len(str2) - num, 1)))

        Next

    End If

End FunctionPublic Function strPlus(str1 As String, str2 As String, num As Integer) As String

    If Len(str1) = 1 Then

        strPlus = (Val(str1) + num) & str2

    Else

        num = Val(Right(str1, 1)) + num

        If num < 10 Then

            strPlus = Left(str1, Len(str1) - 1) & num & str2

        Else

            strPlus = strPlus(Left(str1, Len(str1) - 1), (num Mod 10) & str2, 1)

        End If

    End If

End Function

pxbld

有用。只是，看了半天才明白。

只是中文的ASC碼，從哪里能找到呢？

斷翅

俺是菜鳥，啥都看不懂。