Selasa, 08 Mei 2012

Re: [belajar-access] laporan perjalanan per hari [1 Attachment]

 
[Attachment(s) from Sofyan Efendi included below]

Ya Pak Hanhan, untuk mewujudkannya, kita bisa memanfaatkan DAO, looping dan
crosstab. Misalnya kita bisa membuat prosedure:

Function test()
Dim db As Database
Dim rs As Recordset, rs2 As Recordset
Dim i As Long, j As Long
Set db = CurrentDb()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE Output.[NO], Output.TANGGAL, Output.NILAI FROM
[Output];"
DoCmd.SetWarnings True
Set rs = db.OpenRecordset("Sheet1", dbOpenDynaset)
Set rs2 = db.OpenRecordset("Output", dbOpenDynaset)
While Not rs.EOF
j = rs![TANGGAL KEMBALI] - rs![TANGGAL BERANGKAT] + 1
For i = 1 To j
rs2.AddNew
rs2![NO] = rs![NO]
rs2![TANGGAL] = rs![TANGGAL BERANGKAT] + i - 1
rs2![NILAI] = 1
rs2.Update
Next i
rs.MoveNext
Wend
rs.Close
rs2.Close
db.Close
Set rs = Nothing
Set rs2 = Nothing
Set db = Nothing
DoCmd.OpenQuery "qryGrafik"
End Function

Disana terlihat ada dua table, yg satu table sumber, yg satu lagi table
temporary dengan nama Output. Dari table Output, kita buat crosstab query,
sehingga membentuk data yg bisa berubah-ubah baris, kolom dan nilainya
sesuai dengan range/batasan dari Sheet1. Hasil final ditampilkan di query
"qryGrafik".

Silahkan download attachment file, kemudian buka Form1, klik tombol Run.

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com/

----- Original Message -----
From: "Hanhan Hudaya" <hanhan.hudaya@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Tuesday, May 08, 2012 2:34 PM
Subject: Re: [belajar-access] laporan perjalanan per hari

> itulah bang opi, yang saya inginkan cuma grafiknya saja. pokoknya
> masalah angkanya ga perlu ada. begitu tanggalnya sesuai dengan
> perjalanannya, maka tanda itu muncul. tanda angka atau warna hanya
> tanda saja. kalau begitu, kira-kira caranya gimana supaya pada tanggal
> terkait muncul angka saja, misalnya angka 1 pada hari dalam lingkup
> perjalanan dinas, nihil paa hari tidak melakukan perjalanan dinas. ini
> hanya buat ngecek apakah yang bersangkutan harinya bertabrakan atau
> tidak. makasih banyak kang opi.
> Wassalam
>
> HH
>
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
>
>

__._,_.___

Attachment(s) from Sofyan Efendi

1 of 1 File(s)

Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar