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
<*> 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/
