haniameen قام بنشر نوفمبر 7, 2015 مشاركة قام بنشر نوفمبر 7, 2015 مرتبات 2016 - Copy.rar رابط هذا التعليق شارك More sharing options...
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) رابط هذا التعليق شارك More sharing options...
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 غير معرفة في التعبير داخل الاستعلام رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.