ورود

View Full Version : مشکل کد نویسی در اکسس



kmotavali
یک شنبه 04 دی 1384, 16:54 عصر
من میخوام برای چند نا از فیلدهام یک مقدار مجاز بذارم که محاسباتشون یکیه اما ورودیاشون مختلفه
اما وقتی انو تو قسمت validation ruleمیذارم یا کار نمیکنه یا اینکه اصلا احازه ثبت عددرو نمیده
لطفا اگه کسی میتونه مکم کنه سپاسگذارم

Public Function validnum(int1, int2) As Long
Dim a As Long
a = (int1 * int2) / 100

If validnum = a Then
validnum = True
Exit Function
End If

If validnum < a Then
validnum = True
Exit Function
End If

kmotavali
دوشنبه 05 دی 1384, 00:34 صبح
مثل ابنکه کسی نیست جواب مارو بده
باب دمتون گرم

a_r_shariati
دوشنبه 05 دی 1384, 22:17 عصر
سوالت نامفهومه این فانکشن را کجا گذاشتی؟

kmotavali
پنج شنبه 15 دی 1384, 02:24 صبح
دوست عزیز
تاپیکمو گم کرده بودم کل فانکشن نیافتاده مجبور شدم تابع رو برای تک تک فیلدهایی که به
مقدار مجاز نیاز دارند توی روال فوکوس بنویسم

محاسبات خیلی آسونه اما تعداد خیلی زیاد طوریکه دو روز وقتمو گرفت
a=(b*c)/100
if d<=athen
d=d
else
msgbox
d=e*f
end if

sarami
یک شنبه 18 دی 1384, 13:28 عصر
عزیز این FUNCTION رو باید تو یک QUERY استفاده کنی و پارامترهای INT1 , 2 رو از روی همون QUERY بحش ارسال کنی تو تاپیک های قبلی من یک نمونه از این کار رو انجام دادم یعنی داخل یک QUERY از فیلد مجازی استفاده کردم که داخل یک FUNCTION استفاده میشه

kmotavali
دوشنبه 19 دی 1384, 11:18 صبح
من هم همین کارو کردم ولی بازم به مشکل برخوردم درست جواب نمیداد آخرش به afterupdate
پناه بردم

sarami
دوشنبه 19 دی 1384, 19:26 عصر
من یه نمونه برنامه که از یک function داخل یک query استفاده میکرد تو این فروم upload کردم اگه به اون مراجعه کنین جواب سئوالتون رو اونجا میتونین پیدا کنین

kmotavali
دوشنبه 19 دی 1384, 21:09 عصر
من تمام پستها رو خوندم بعد تاپیک زدم اگه میشه بفرمایید کدام تاپیکه

sarami
دوشنبه 19 دی 1384, 21:44 عصر
http://www.barnamenevis.org/forum/showthread.php?p=145746&mode=linear#post145746
من این جستجو رو برای شما انجام دادم ولی فکر میکنم اگه خود شما هم همه پست های بنده رو در صفحه های قبل جستجو می کردین به همین نتیجه می رسیدین .

kmotavali
چهارشنبه 21 دی 1384, 02:22 صبح
از لطفتون ممنونم
دقیقا منظورتون رو متوجه شدم