AlwaZeeR قام بنشر نوفمبر 7, 2015 قام بنشر نوفمبر 7, 2015 Public Function gRound(ByVal TheNo As Single) As Single If Not IsNull(TheNo) Then If IsNumeric(TheNo) Then Dim x As Single x = Round(TheNo) If x < TheNo Then gRound = Round(x + 1, 0) Else gRound = Round(x) End If End If End If End Function ضع هذا الكود في وحدة نمطية جديدة ثم استخدم اسم الدالة على اي حقل تريد تقريبه هكذا =gRound(Nz([YourField],0)
haniameen قام بنشر نوفمبر 8, 2015 الكاتب قام بنشر نوفمبر 8, 2015 في ٧/١١/٢٠١٥ ٣،٠٧،٢١, alwazeer said: Public Function gRound(ByVal TheNo As Single) As Single If Not IsNull(TheNo) Then If IsNumeric(TheNo) Then Dim x As Single x = Round(TheNo) If x < TheNo Then gRound = Round(x + 1, 0) Else gRound = Round(x) End If End If End If End Function ضع هذا الكود في وحدة نمطية جديدة ثم استخدم اسم الدالة على اي حقل تريد تقريبه هكذا =gRound(Nz([YourField],0) يعطيني دالة ground غير معرفة في التعبير داخل الاستعلام
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.