[belajar-access] report.doc

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 PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___