Ketika membuka recordset oRS yang berisi data transaksi untuk dimasukkan ke
dalam recordset oRSCetak, maka test apakah oRSCetak EOF, jika tidak pindahkan
cursor oRS ke record terakhir (oRS.MoveLast), setelah itu masukkan data dari
oRS ke dalam oRS Cetak. Semoga bisa membantu ....
Kadek Pong <[EMAIL PROTECTED]> menulis: Teman2 mau tanya,
Gimana script program untuk Cetak Query yang mana yang dicetak record yang
terakhir. Report yang saya buat dengan DATA REPORT.
Nama Tabel : Trans1
dengan Field : Kode_Trans, Tgl_Trans, Kode_Brg, Qty, Total
Contoh
TR-01, 01-08-2006, BR-001, 2, 25000
TR-02, 01-08-2006, BR-005, 4, 30000
TR-03, 02-08-2006, BR-003, 6, 45000
Setiap simpan Transaksi langsung print, dimana yang diprint 1 record yang
terakhir, setelah printah SIMPAN.
berikut saya kirimkan script programnya tolong dikoreksi,
Private Sub Cetak()
On Error GoTo Lengeh
MousePointer = vbHourglass
Dim oRS As ADODB.Recordset
Set oRS = New ADODB.Recordset
Dim VNomor As Integer
Dim oRSCetak As ADODB.Recordset
Set oRSCetak = New ADODB.Recordset
Dim xTOTALMO As Integer
Dim xTOTALOS As Integer
VNomor = 1
With oRSCetak
.Fields.Append "NO", adVarChar, 10
.Fields.Append "KODE", adVarChar, 10
.Fields.Append "DATE", adDate, 8
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open
End With
strSql = " SELECT * " _
& " From dbo.Trans1 "
oRS.Open strSql, oConn, adOpenForwardOnly
If Not oRS.BOF Then
Do While Not oRS.EOF
With oRSCetak
.AddNew
![NO] = VNomor & "."
![KODE] = oRS("kode_Trans")
![Date] = oRS("tgl_Trans")
.Update
End With
oRS.MoveNext
VNomor = VNomor + 1
Loop
End If
oRS.Close
With DROutMO_PL
Set .DataSource = oRSCetak
Trims
Kadek
---------------------------------
All-new Yahoo! Mail - Fire up a more powerful email and get things done faster.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
---------------------------------
Apakah Anda Yahoo!?
Kunjungi halaman depan Yahoo! Indonesia yang baru!
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
