I-BEGO

Selamat sore om dan tante masta smua.
Saia mo tnya gmn caranya membuat no urut d data report?

Jika record count da 25, berarti no urut dri 1 smpe 25.

Mkacih om n tante masta

pake query limit 1,25

requery gmn Om?
Tlong d perjelas
Oh iya, tu qt gk tau total data yg akan d print, trgantung max record nya..

Hmm,,, msh pda d jalan pa ya?

sundul agy..
om, Om, Tante bantuin saia dunk...

Databasenya pakai apa om ?

Om Eka panggil saia om lgi
Saia pke db ms.acces Om
Kmaren saia baca2 d coding4ever yg ada active report.
Skrg saia mau no urut d data report sesuai max record.
Mkacih tante eka

oryza wrote:Om Eka panggil saia om lgi
Saia pke db ms.acces Om
Kmaren saia baca2 d coding4ever yg ada active report.
Skrg saia mau no urut d data report sesuai max record.
Mkacih tante eka

Upsss ... maaf bibi ,
Jujur ane juga belum pernah coba kalau di Data Report, jadi penasaran nih ane juga

ekaperintis wrote:

oryza wrote:Om Eka panggil saia om lgi
Saia pke db ms.acces Om
Kmaren saia baca2 d coding4ever yg ada active report.
Skrg saia mau no urut d data report sesuai max record.
Mkacih tante eka

Upsss ... maaf bibi ,
Jujur ane juga belum pernah coba kalau di Data Report, jadi penasaran nih ane juga

Ayo cari n share Om...
Saia dah mentok, jd nunggu Om ja deh

Teteh oryza ikut sharing aja..
Untuk membuat no urut di dalam Data Report, sampai saat ini saya juga belum menemukan cara yang seharusnya, mksudnya yang benar2 memanfaatkan fasilitas dari Data Report itu sendiri, ataukah memang gk tersedia fasilitas itu atau memang saya aja yg belum tau... , jadi selama ini untuk membuat no urut di Data Report biasanya menggunakan cara akal2an yaitu dengan menambahkan satu field di table yang khusus untuk menggenerate no urut. Untuk menggenerate nomor urut ini yang saya tau ada 2 alternatif cara yaitu :

Alternatif Pertama
1. Menambahkan field dengan type data integer khusus untuk nomor urut
2. Sebelum melakukan preview/cetak report, Melakukan scanning record dan memberikan no urut ke field tersebut, Misal

Code: Select all

RS.MoveFirst
no = 1
While Not RS.EOF
RS.Fields(0).Value = no
no = no + 1
RS.MoveNext
Wend


Cara ini lebih simple tetapi kalau record sudah sangat banyak dikhawatirkan waktu yg dibutuhkan akan juga lumayan banyak.

Alternatif Kedua
1. Menambahkan field dengan type data AutoNumber khusus untuk nomor urut (Jangan dibuat sebagai Key)
2. Sebelum melakukan preview/cetak report, delete field autonumber tersebut dan kemudian buat yg baru, Seperti Modul di bawah ini :

Code: Select all

Const m_MDBdatabase = "C:\dburut.mdb" 'Lokasi Database
Const m_NamaTabel = "tbData" 'Nama Tabel
Const m_NamaFieldNumber = "ProductID" 'Nama Field yang digunakan sebagai no urut

Function AddAutoNumberField()
Dim cat As New ADOX.Catalog
Dim col As New ADOX.Column
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & m_MDBdatabase
With col
    .Name = m_NamaFieldNumber
    .Type = adInteger
    Set .ParentCatalog = cat
    .Properties("AutoIncrement") = True
End With
cat.Tables(m_NamaTabel).Columns.Append col
Set cat = Nothing
Set col = Nothing
End Function

Function RemoveField()
Dim conn As ADODB.Connection
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & _
"Data Source=" & m_MDBdatabase
conn.Open
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = conn
Set tbl = cat.Tables(m_NamaTabel)
tbl.Columns.Delete (m_NamaFieldNumber)
conn.Close
End Function

Function RefreshNomorUrut()
RemoveField
AddAutoNumberField
End Function


3. Selanjutnya saat preview report tinggal gunakan syntak :

Code: Select all

RefreshNomorUrut 'Memanggil Fungsi RefreshNomorUrut di Modul
If DataEnvironment1.rsCommand1.State = 1 Then
DataEnvironment1.rsCommand1.Close
End If
DataEnvironment1.rsCommand1.Open ("select * from tbdata") ' Syntak line 2 - 4 digunakan untuk merefresh data di data report
DataReport1.Show


Untuk menggunakan cara ini aktifkan reference "Microsoft ActiveX Data Objects X.X Library" dan "MIcrosoft ADO Ext. 2.X for DDL and Security"

Post andyutomo telah mendapat kopi dari:

oryza