Mas Adam,
Kalau saya lihat dari coding yang mas buat pada CR.SelectionFormula ada yang
kurang, seharus untuk Penjualan.tglFaktur dimulai dengan { dan diakhiri
dengan tanda }.
Contoh : {Penjualan.tglFaktur}
Semoga membantu.
On 9/20/07, D.N.Adam <[EMAIL PROTECTED]> wrote:
>
> Teman-teman millis VB, saya mempunyai masalah sbb:
> saya mau membuat Laporan Ranking Penjualan Perbulan. Tapi mengapa
> setelah saya ketik scipt sbb :
>
> Private Sub cmdok_Click()
> CR.Formulas(0) = " Bulan ='" & CmbBulan.Text & " " & CmbThn.Text & "'"
> CR.SelectionFormula = "(Month({Penjualan.tglFaktur)= " &
> Me.CmbBulan.ListIndex + 1 & ")and(year({Penjualan.TglFaktur)= " &
> Me.CmbThn.Text & ")and({Penjualan.Batal}=False)"
> CR.WindowState = crptMaximized
> CR.RetrieveDataFiles
> CR.Action = 1
> End Sub
>
> Muncul pesan kesalahan sbb:
> Run Time error '20510':
> Eror in File c:\MyProjectHP\Laporan\laprankingpenjualan.rpt
> Invalid Formula name.
>
> Saya membuat ModulHP.bas sbb:
> Public FrmActive As Byte
> Public Function Bulan(ByVal n As Byte) As String
> If n = 1 Then
> Bulan = "Januari"
> ElseIf n = 2 Then
> Bulan = "Pebruari"
> ElseIf n = 3 Then
> Bulan = "Maret"
> ElseIf n = 4 Then
> Bulan = "April"
> ElseIf n = 5 Then
> Bulan = "Mei"
> ElseIf n = 6 Then
> Bulan = "Juni"
> ElseIf n = 7 Then
> Bulan = "Juli"
> ElseIf n = 8 Then
> Bulan = "Agustus"
> ElseIf n = 9 Then
> Bulan = "September"
> ElseIf n = 10 Then
> Bulan = "Oktober"
> ElseIf n = 11 Then
> Bulan = "November"
> ElseIf n = 12 Then
> Bulan = "Desember"
> End If
> End Function
>
> Mohon bantuan temam-teman millis semua.Thank.
>
> Regard,
> Adam
>
>
>
