Saya coba bantu merubah statement tsb:
Private Sub Detail_FORMAT(Cancel As Integer, FormatCount As Integer)
If Me.CurrentRecord = 1 Then
Select Case T1
Case 0
TMPU1= AMBIL_SAWALU(Forms!MENU_REPORT! CBO_JNSKAS)
Case Else
TMPU1 = T1
End Select
Select Case T2
Case 0
TMPR1= AMBIL_SAWALU(Forms!MENU_REPORT! CBO_JNSKAS)
Case Else
TMPR1 = T2
End Select
TMPU3 = TMPU1
TMPR3 = TMPR1
Else
TMPU3 = TMPU3 + Db - KR
TMPR3 = TMPR3 + DBTRP - KRDRP
End If
Me.TSALDOU = TMPU3
Me.TSALDORP = TMPR3
End Sub
--- In [email protected], "wedhi2002" <[EMAIL PROTECTED]>
wrote:
>
> Coba statement IIFnya diganti dengan IF ... Then ...Else ...
>
> tetep gunakan detail_Format
>
>
> --- In [email protected], Ivan Leonardo <ivan@> wrote:
> >
> > Saya sudah coba juga pindah ke On Format tapi malah di preview aja
> > hasilnya udah ngaco makanya saya balik lagi ke on print.
> >
> > -------------------------------------------------------------------
--
>
