[belajar-access] Re: report.doc

Boleh di kirim file nya , agar dicoba berhasil atau tidaknnya. coba
gunakan fungsi,misal :

fungsilooukup (byval parstring as string ) , hasil keluarannya ya
,dari dlookup.

dimana parstring bisa berupa 'FLAT' , "PT", dsj

'=======

--- In belajar-access@yahoogroups.com, "Maulana" <maulana_pup@...>
wrote:
>
> Dear millist
>
> Adakah cara atau trik untuk vba code untuk meringkas report seperti
code yang saya buat melalui report active,
> Saya merasa code ini kalau di buat satu persatu mengikuti textbox akan
panjang dan banyak mengingat data yang di report bervarian, yang saya
mau hanya butuh satu baris listing code untuk menggabung textbox yang di
letakkan di report footer yang tampil di halaman terakhir,.
> salam
>
>
>
>
> VARA = DLookup("SUM(NO_OF_COILS)", "T_REJECTION_DETAILS", "PROFILE=5.5
AND MONTH(TANGGAL)=" & Month(Forms!F_MAIN_MENU!REPORT_DATE) & " AND
YEAR(TANGGAL)=" & Year(Forms!F_MAIN_MENU!REPORT_DATE))
> Text55 = VARA
> VARA = DLookup("SUM(NO_OF_COILS)", "T_REJECTION_DETAILS", "PROFILE=5.5
AND REASON='FLAT' AND MONTH(TANGGAL)=" &
Month(Forms!F_MAIN_MENU!REPORT_DATE) & " AND YEAR(TANGGAL)=" &
Year(Forms!F_MAIN_MENU!REPORT_DATE))
> Text56 = VARA
> VARA = DLookup("SUM(NO_OF_COILS)", "T_REJECTION_DETAILS", "PROFILE=5.5
AND REASON='PT' AND MONTH(TANGGAL)=" &
Month(Forms!F_MAIN_MENU!REPORT_DATE) & " AND YEAR(TANGGAL)=" &
Year(Forms!F_MAIN_MENU!REPORT_DATE))
> Text57 = VARA
> VARA = DLookup("SUM(NO_OF_COILS)", "T_REJECTION_DETAILS", "PROFILE=5.5
AND REASON='FIN' AND MONTH(TANGGAL)=" &
Month(Forms!F_MAIN_MENU!REPORT_DATE) & " AND YEAR(TANGGAL)=" &
Year(Forms!F_MAIN_MENU!REPORT_DATE))
> Text58 = VARA
> VARA = DLookup("SUM(NO_OF_COILS)", "T_REJECTION_DETAILS", "PROFILE=5.5
AND REASON='SHAPE' AND MONTH(TANGGAL)=" &
Month(Forms!F_MAIN_MENU!REPORT_DATE) & " AND YEAR(TANGGAL)=" &
Year(Forms!F_MAIN_MENU!REPORT_DATE))
> Text59 = VARA
> VARA = DLookup("SUM(NO_OF_COILS)", "T_REJECTION_DETAILS", "PROFILE=5.5
AND REASON='TK' AND MONTH(TANGGAL)=" &
Month(Forms!F_MAIN_MENU!REPORT_DATE) & " AND YEAR(TANGGAL)=" &
Year(Forms!F_MAIN_MENU!REPORT_DATE))
> Text60 = VARA
> VARA = DLookup("SUM(NO_OF_COILS)", "T_REJECTION_DETAILS", "PROFILE=5.5
AND REASON='SCAB' AND MONTH(TANGGAL)=" &
Month(Forms!F_MAIN_MENU!REPORT_DATE) & " AND YEAR(TANGGAL)=" &
Year(Forms!F_MAIN_MENU!REPORT_DATE))
> Text61 = VARA
>

------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/