خطای OverFlow

[Hermes1966]

سلام دوستان،
من در یک فایل اکسس و در بخش برنامه نویسی یک محاسبه ساده دارم بصورت زیر:

Dim S As Integer

Dim K As Long
K=(S*21900)

وقتی برنامه را اجرا می‌کنم در خط سوم پیام RunTime Error 6 و OverFlow به من میده. چون مقدار عددی K زیاد هست از نوع Long تعریفش کردم اما بازهم خطا میده.
ممنون میشم راهنمایی کنید

[eb_1345]

سلام دوستان،
من در یک فایل اکسس و در بخش برنامه نویسی یک محاسبه ساده دارم بصورت زیر:

Dim S As Integer

Dim K As Long
K=(S*21900)

وقتی برنامه را اجرا می‌کنم در خط سوم پیام RunTime Error 6 و OverFlow به من میده. چون مقدار عددی K زیاد هست از نوع Long تعریفش کردم اما بازهم خطا میده.
ممنون میشم راهنمایی کنید

سلام
چون متغیر S رو از نوع Integer و K که نتیجه محاسبه در اون نمایش داده میشه از نوع Long تعریف کرده ای پس باید در نتیجه محاسبه متغییر S رو با تابع CLng به Long تبدیل کنی!
بصورت زیز:

K = CLng(S) * 21900

اگه هر دو متغیر از یک نوع باشه (البته با توجه به محدوده و بازه متغیر) این خطا ایجاد نمیشه

[Hermes1966]

از لطف و توجه شما بسیار سپاسگزارم. مشکل رفع شد.
پاینده باشید