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 غير معرفة في التعبير داخل الاستعلام
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان