Re: [belajar-access] Re: Re-Report

Trims mas atas bantuanny

 

salam

 

----- Original Message -----

From: sudarsono

To: belajar-access@yahoogroups.com

Sent: Wednesday, June 15, 2011 5:00 PM

Subject: [belajar-access] Re: Re-Report

 

Dim rpt As Access.Report
DoCmd.OpenReport "REJECTION_DETAILS", acViewPreview, , , acHidden
Set rpt = Reports!REJECTION_DETAILS
rpt.Section(acDetail).Visible = False
rpt.Section(acFooter).Visible = True
rpt.Visible = True

hanya memunculkan footer ( bukan halaman , eeh belum ketemu sih )

--- In belajar-access@yahoogroups.com, "Maulana" <maulana_pup@...>
wrote:
>
> Dear Mas Sudarsono
>
> mf satu lagi nih, gimana kalau yang di printview hanya halam terakhir?
selain dari menu print itu sendiri kan bisa di set page nya..
>
> salam
> ----- Original Message -----
> From: Maulana
> To: belajar-access@yahoogroups.com
> Sent: Wednesday, June 15, 2011 2:43 PM
> Subject: Re: [belajar-access] Re-Report
>
>
>
>
> Dear Mas Sudarsono
>
> Trims atas bantuannya, sudah berhasil
>
> ----- Original Message -----
> From: Sudarsono Suhenk
> To: belajar-access@yahoogroups.com
> Sent: Monday, June 13, 2011 3:34 PM
> Subject: RE: [belajar-access] Re-Report
>
>
>
> di event report REJECTION_DETAILS :
> Private Sub Report_Activate()
>
> Me.T46 = fn_reasonprofile(4.6, "")
> Me.fl46 = fn_reasonprofile(4.6, "FLAT")
> Me.fn46 = fn_reasonprofile(4.6, "FIN")
> Me.sc46 = fn_reasonprofile(4.6, "SCAB")
> Me.tk46 = fn_reasonprofile(4.6, "TK")
> Me.sh46 = fn_reasonprofile(4.6, "SHAPE")
> Me.pt46 = fn_reasonprofile(4.6, "PT")
>
> Me.T49 = fn_reasonprofile(4.9, "")
> Me.fl49 = fn_reasonprofile(4.9, "FLAT")
> Me.fn49 = fn_reasonprofile(4.9, "FIN")
> Me.sc49 = fn_reasonprofile(4.9, "SCAB")
> Me.tk49 = fn_reasonprofile(4.9, "TK")
> Me.sh49 = fn_reasonprofile(4.9, "SHAPE")
> Me.pt49 = fn_reasonprofile(4.9, "PT")
> Me.T88 = fn_reasonprofile(8.8, "")
> Me.Fl88 = fn_reasonprofile(8.8, "FLAT")
>
> Me.Fn88 = fn_reasonprofile(8.8, "FIN")
> Me.Sc88 = fn_reasonprofile(8.8, "SCAB")
> Me.tk88 = fn_reasonprofile(8.8, "TK")
> Me.Sh88 = fn_reasonprofile(8.8, "SHAPE")
> Me.pt88 = fn_reasonprofile(8.8, "PT")
> End Sub
>
> buat module ,misal module1 . lalu ketik koding dibawah ini :
> Public Function fn_reasonprofile(ByVal parProfile As Single, ByVal
parreason As String)
> Dim vara As Variant
> Dim m_month, m_year As Long
> m_month = Month(Forms!F_MAIN_MENU!REPORT_DATE)
> m_year = Year(Forms!F_MAIN_MENU!REPORT_DATE)
> mstrkriteria1 = "PROFILE= " & parProfile & " AND MONTH(TANGGAL)=" &
m_month & " AND YEAR(TANGGAL)=" & m_year
> mstrkriteria2 = "PROFILE= " & parProfile & " AND REASON= '" &
parreason & "' AND MONTH(TANGGAL)=" & m_month & " AND YEAR(TANGGAL)=" &
m_year
> If parreason = "" Then
> 'vara = DLookup("NO_OF_COILS", "T_REJECTION_DETAILS", "PROFILE= " &
parProfile & " AND MONTH(TANGGAL)=" &
Month(Forms!F_MAIN_MENU!REPORT_DATE) & " AND YEAR(TANGGAL)=" &
Year(Forms!F_MAIN_MENU!REPORT_DATE))
> vara = DSum("NO_OF_COILS", "T_REJECTION_DETAILS", mstrkriteria1)
> Else
> 'vara = DLookup("NO_OF_COILS", "T_REJECTION_DETAILS", "PROFILE= " &
parProfie & " AND REASON='" & parreason & "' AND MONTH(TANGGAL)=" &
Month(Forms!F_MAIN_MENU!REPORT_DATE) & " AND YEAR(TANGGAL)=" &
Year(Forms!F_MAIN_MENU!REPORT_DATE))
> vara = DSum("NO_OF_COILS", "T_REJECTION_DETAILS", mstrkriteria2)
> End If
> vara = Nz(vara, 0)
> fn_reasonprofile = vara
> End Function
>
>
> Semoga dapat dimengerti ....
>
>
>
>
----------------------------------------------------------\
----
> To: belajar-access@yahoogroups.com
> From: maulana_pup@...
> Date: Mon, 13 Jun 2011 10:37:39 +0700
> Subject: [belajar-access] Re-Report [1 Attachment]
>
>
> [Attachment(s) from Maulana included below]
> Dear Mas Sudarsono
>
> Maaf nih saya belum mengerti maksudnya
> saya krim file nya saja
>
> salam
>

__._,_.___

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

__,_._,___