Mister Eggs,
kode berikut ini mungkin sedikit membantu menjelaskan :
script ini berada di form utama (Form1), yaitu event checkbox PilihSemua setelah update (AfterUpdate):
Private Sub PilihSemua_AfterUpdate()
If PilihSemua Then
DoCmd.RunSQL "UPDATE TABLE1 SET CTRLSTATUS = True, STATUS = 'AKTIF'"
DoCmd.Requery
Else
DoCmd.RunSQL "UPDATE TABLE1 SET CTRLSTATUS = False, STATUS = 'NONAKTIF'"
DoCmd.Requery
End If
End Sub
kode diatas mempunyai arti jika kondisi PilihSemua tercentang/dicentang, maka mengupdate field STATUS menjadi AKTIF, dan CTRLSTATUS menjadi True, sebaliknya jika centang dihilangkan, akan mengupdate field STATUS menjadi NONAKTIF dan CTRLSTATUS menjadi False.
kemudian untuk subform : Table1 subform, terdapat kode berikut :
Private Sub CTRLSTATUS_AfterUpdate()
If CTRLSTATUS Then
STATUS.Value = "AKTIF"
Else
STATUS.Value = "NONAKTIF"
End If
End Sub
artinya update/memperbarui per-data, yaitu jika centang CTRLSTATUS maka nilai True dan STATUS menjadi AKTIF, sebaliknya jika centang dihilangkan nilai menjadi False dan STATUS menjadi NONAKTIF.
Demikian semoga bermanfaat...
--- In belajar-access@yahoogroups.com, Mas Uq <uqmas@...> wrote:
>
> Mister Eggs,
> Saya mencoba menterjemahkan deskrispsi yang anda berikan sesuai dengan kemampuan saya, dan saya sudah buat modifikasi daripada aplikasi yang anda inginkan seperti yang ada dalam attachment, yaitu :
> 1. Â Saya tambahkan field CTRLSTATUS yang bertipe True/False pada Table1
> 2. Â Saya buat sebuah Form1 sebagai form utama dan Table1 subform sebagai subform, menggantikan form yang anda buat.
> 3. Â Saya hilangkan tombol perintah (Command Button)
> Logikanya adalah sebagai berikut :
> Untuk per item :
> Jika anda klik (centang/hilangkan centang) pada CTRLSTATUS di daftar/tabel, maka jika centang artinya True, maka status otomatis menjadi AKTIF, sebaliknya jika klik lagi akan menghilangkan centang yang artinya False, maka status otomatis menjadi NONAKTIF.
> Untuk semua :
> Jika anda klik (centang/hilangkan centang) pada checkbox PilihSemua, jika centang maka akan mengupdate semua data menjadi AKTIF, sebaliknya jika hilangkan centang, maka akan mengupdate semua data menjadi NONAKTIF.
>
> Semoga membaantu, terima kasih
>
>
> Uki
>
>
> ________________________________
> Dari: Mister Eggs <ginoek_ginoek@...>
> Kepada: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
> Dikirim: Selasa, 1 November 2011 22:31
> Judul: [belajar-access] Pilih hasil query dengan checkbox untuk proses selanjutnya [1 Attachment]
>
>
> Â
> [Attachment(s) from Mister Eggs included below]
> Mohon Petunjuk teman-teman.
> Misalnya ada Table1 dg field dan isi sbb :
>
> no-nama-status
> 1-adi-nonaktif
> 2-boy-nonaktif
> 3-chika-aktif
> 4-dina-aktif
> 5-erna-nonaktif
> 6-farid-aktif
> 7-galuh-nonaktif
> 8-indra-aktif
> 9-joko-nonaktif
> 10-kamelia-aktif
>
> Telah tersedia sebuah query QUERY1 untuk menampilkan anggota nonaktif. Tersedia pula sebuah FORM1 dimana pada form tersebut disisipkan subform SUBFORM1 yang merujuk pada QUERY1 (anggota nonaktif). SUBFORM1 ini akan menampilkan data anggota dengan status nonaktif. Pada tiap-tiap baris data yang ditampilkan SUBFORM1 selalu memuat sebuah CHECKBOX untuk memilih baris data yang diinginkan. Pada FORM1 terdapat sebuah checkbox yang dimaksudkan untuk memilih semua data yang muncul pada SUBFORM1, dan sebuah command button yang memicu query perubahan (menjadikan status anggota nonaktif menjadi aktif)pada data/record yang terseleksi (di-CHECK).Â
>
> Pertanyaan saya, bagaimana membuat aplikasi seperti deskripsi diatas. (file contoh terlampir)
>
> Terima kasih.
>
No comments:
Post a Comment