Koreksi pesan sebelumnya, code-nya bukan disimpan di Report_Open,
tapi di Detail_Print, jadi seperti di
bawah ini....
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
On Error Resume Next
Dim Bil As Integer
Bil = Me!tNo
For Each Ctrl In Controls
If Ctrl.Tag = "NoUrut" Then
If Right(Bil / 2, 2) = ",5" Or Right(Bil / 2, 2) = ".5" Then
Me.Detail.BackColor = "14408667"
Else
Me.Detail.BackColor = "16777215"
End If
End If
Next Ctrl
End sub
Maaf....maklum,masih eksperiment....
Salam
Bobby
--- In [email protected], "Bobby" <[EMAIL PROTECTED]> wrote:
>
> Penomeran utk angka arab (1,2,3 dst) memang bisa dengan
> menuliskan "=1" dlm text box di report, dan menset propertynya
> menjadi "over group" atau "over all".
>
> Tapi ada ga yang punya cara untuk memunculkan alphabet?
> a b c dst.. mungkin caranya sama dengan membuat text terbilang dari
> angka kali ya.
>
> Saya ada sedikit tips untuk membuat baris di detail section
> dalam report menjadi "belang-belang" (di mana hal ini bisa
> dengan mudah dilakukan di msexcel atau msword)
>
> 'code dimulai
> Private Sub Report_Open(Cancel As Integer)
> On Error Resume Next
> Dim Bil As Integer
> Bil = Me!tNo
> For Each Ctrl In Controls
> If Ctrl.Tag = "NoUrut" Then
> If Right(Bil / 2, 2) = ",5" Or Right(Bil / 2, 2) = ".5" Then
> Me.Detail.BackColor = "14408667" 'warna abu-abu utk
ganjil
> Else
> Me.Detail.BackColor = "16777215" 'warna putih utk genap
> End If
> End If
> Next Ctrl
> End sub
> 'code selesai
>
> syaratnya, buat text box di detail section dgn nama "tNo",
> set propertinya menjadi over group/over all, dan set Tag-nya
> menjadi"NoUrut". Maka begitu report dibuka
> setiap angka ganjil menjadi berwarna (abu-abu).
>
> Salam
>
> Bobby
>
>
> --- In [email protected], "Ardi Nugraha"
> <nugraha.ardi@> wrote:
> >
> > Yang pernah saya tahu adalah penomoran baris untuk subform. Anda
> bisa lihat
> > contohnya dari FrmSampl.mdb, yang bisa didownload dari:
> > http://www.microsoft.com/downloads/details.aspx?familyid=7a50205e-
> a29b-4a43-8508-78e549ecd14c&displaylang=en
> >
> > Sedangkan penjelasan lengkap cara membuat nomor baris di sub-form
> bisa
> > dilihat di:
> > http://support.microsoft.com/default.aspx?
>
scid=http://support.microsoft.com:80/support/kb/articles/Q210/3/40.asp
> &NoWebContent=1
> >
> > Saya enggak tahu apakah cara yang sama berlaku untuk report. Ada
> yang pernah
> > coba?
> >
> >
> > Salam
> > Ardi
> >
> >
> > On 8/29/07, dede asep <deasht93@> wrote:
> > >
> > > sebelumnya saya mohon maaf
> > > bertanya hal yang mungkin pemula
> > > karena saya pemula
> > >
> > > kesulitan saya di accses adalah
> > > bagaimana cara membuat nomor urut di bagian laporan/report
> > > kalo di exel kan mudah dg cara drag atau memberi rumus =A1+1,
> udah jadi
> > > nomot urut
> > >
> > > di acses kan ada no id dg autonumber tapi kalo data id ada yg
di
> delet no
> > > ga ngurut lagi
> > > atau kalo query / pengelompokan no id ny jadi acak acakan
> > >
> > >
> > > tolong pencerahannya terimakasih
> > >
> > >
> > > hormat saya
> > > dede
> > >
> > >
> >
>
