Bpk maksudnya kelipatan 10 ya? Dari email Bpk yg saya tangkap didalamnya ada
field "No" (1,2,3 dst). Bpk coba tambahkan field baru ke table tsb, dengan nama
field "tmpField", dengan data type "Long Integer". Biarkan Default Value nya =
0. Pada event On Click Bpk coba tambahkan :
Private Sub Test_Click()
Dim TotalRecord As Long
Dim TambahRecord As Long
Dim i As Long
Dim strSQLDel As String
Dim strSQLApd As String
strSQLDel = "DELETE tmpField" _
& " FROM NamaTable" _
& " WHERE tmpField=2147483647;"
strSQLApd = "INSERT INTO NamaTable (tmpField) SELECT 2147483647 AS
tmpColumn;"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQLDel
TotalRecord = DCount("No", "NamaTable")
TambahRecord = (Int(TotalRecord / 10) * 10) + 10 - TotalRecord
For i = 1 To TambahRecord
DoCmd.RunSQL strSQLApd
TambahRecord = i + 1
Next i
DoCmd.SetWarnings True
End Sub
Thank's
----- Original Message -----
From: Darsono
To: [email protected]
Sent: Friday, 12 February 2010 5:35 PM
Subject: [belajar-access] Baris kosong
Hallo semuanya,
Kangen juga ngirim e-mail ke group yg sudah memberi banyak saya
masukan.
sementara jadi pembaca setia.
Berhubung sekarang lagi menthok...
minta tolong dong.
bagaimana caranya untuk mencetak baris kosong sejumlah "n" baris
walaupun jumlah record yang mau di cetak kurang dari "n"
contoh :
data cuma ada 3, tapi pingin ada total baris 10
1. Andi
2. Gina
3. Ulfah
saya sudah coba cari di arsip belum nemu,
nanya mBah Google juga belum nemu.
Mungkin sederhana, tapi karena belum ketemu ..mumet juga.
terima kasih sebelumnya
