PDA

View Full Version : سوال: تعيين پارامترهاي مختلف براي فانكشن



abdoreza57
شنبه 24 فروردین 1392, 12:56 عصر
سلام

براي بدست آوردن مجموع يك فيلد تو محدوده خاصي ميشه از ماژول استفاده كرد؟
من فانكشني را تعريف كرده ام كه جمع فيلدي را محاسبه ميكنه ولي شرطش را چطور ميتونم توسط كد از جاي ديگه وارد كنم ؟

اگه توضيحات كافي نبود فايل را ضميمه كردم
هر چند به نظرم استفاده از كوئري مناسب باشه ولي يادگرفتن يك راه جديد كه بد نيست !
خدا نگهدار

alirezabahrami
شنبه 24 فروردین 1392, 20:43 عصر
سلام

براي بدست آوردن مجموع يك فيلد تو محدوده خاصي ميشه از ماژول استفاده كرد؟
من فانكشني را تعريف كرده ام كه جمع فيلدي را محاسبه ميكنه ولي شرطش را چطور ميتونم توسط كد از جاي ديگه وارد كنم ؟

اگه توضيحات كافي نبود فايل را ضميمه كردم
هر چند به نظرم استفاده از كوئري مناسب باشه ولي يادگرفتن يك راه جديد كه بد نيست !
خدا نگهدار
سلام رضاجان!
هرچند دقیقاً متوجه خواسته ات نشدم ولی فانکشن زیر را جایگزین فانکشن خودت کن ببین منظورت همینه !


Function Fpish() As String
Dim frm As Form
Set frm = Forms!Form1.Form
frm.Text1 = Nz(DSum("etmam", "asli", "dateback >=" & frm.Text2 & " and dateback <=slash(shamsi())"), 0)
End Function

ضمناً در رخداد کلیک کمند باتن Call Fpish را تایپ کن!
موفق باشید

abdoreza57
شنبه 24 فروردین 1392, 21:17 عصر
سلام

متاسفانه نتونستم منظورم را برسونم هر چند با همين كد فكري به ذهنم رسيد ...

تابع Fpish تو فانكشن جمع فيلد pish را محاسبه ميكرد خواستم بدونم محدوده اين تابع را ميشه از فرم form1 اعمال كرد ؟
كه گويا نميشه !!

Abbas Amiri
شنبه 24 فروردین 1392, 21:17 عصر
سلام
نمونه زیر هم درحقیقت از همان روش فوق ، ولی با جزئیات بیشتر است .

abdoreza57
شنبه 24 فروردین 1392, 21:20 عصر
سلام

حيف كه نمشد بيش از يكبار دكمه تشكر را زد بي نهايت ممنون