ورود

View Full Version : تبدیل کد کوئری به VBA


mhamedm2008
سه شنبه 24 آبان 1390, 20:22 عصر
سلام این کد برای جمع کردن توی کوئری هست
بنا به دلایلی می خوام کاری کنم که توی VBA این کارو بکنم.
چه کدی بزارم

(کد توی کوئری )

SELECT DISTINCTROW Sum(master.sumvazn1) AS [Sum Of sumvazn1], Sum(master.sumkol1) AS [Sum Of sumkol1]
FROM master
WHERE (((master.tarikh)>=[forms]![vilanm]![Text1] And (master.tarikh)<=[forms]![vilanm]![Text2]));
mhamedm2008
سه شنبه 24 آبان 1390, 21:36 عصر
به یه زبون دیگه بگم
می خوام فیلد sumvazn1 از تیبل master زمانی که تاریخ آن بین text1 و text2 بود جمع بشه
باید چی کار کنم؟؟
Abbas Amiri
سه شنبه 24 آبان 1390, 22:38 عصر
' if tarikh DataType = Date
vazn = DSum("sumvazn1", "master", "tarikh BETWEEN #" & [Forms]![vilanm]![Text1] & "# And #" & [Forms]![vilanm]![Text2] & "# ")
' if tarikh DataType = String
vazn = DSum("sumvazn1", "master", "tarikh BETWEEN '" & [Forms]![vilanm]![Text1] & "' And '" & [Forms]![vilanm]![Text2] & "'")
' if tarikh DataType = Number
vazn = DSum("sumvazn1", "master", "tarikh BETWEEN " & [Forms]![vilanm]![Text1] & " And " & [Forms]![vilanm]![Text2] )
mhamedm2008
سه شنبه 24 آبان 1390, 23:49 عصر
الان محاسبه می کنه بدون ارروری ولی توی بازه یک ماهه که توی تکس باکس هست را حساب نمیکنه.کل فیلد ها رو جمع می زنه بدون در نظر گرفتن شرط تاریخ
mhamedm2008
چهارشنبه 25 آبان 1390, 09:28 صبح
معلوم نیست مشکل چیه؟
Abbas Amiri
چهارشنبه 25 آبان 1390, 22:42 عصر
عملگر Between حدود بالا وپایین را هم حساب میکند ، شای بنده منظور شمارا متوجه نشده ام
mhamedm2008
جمعه 27 آبان 1390, 11:41 صبح
حل شد.ممنون