Terimas kasih banyak nih, saya mau coba mudah-mudahan saya bisa.
MBA> Mudah-mudahan gambar-gambar di bawah ini bisa membantu.
MBA>
MBA> btw, Jenis Kelamin dimasukkan tabel apa tidak ya??
MBA> jika ya, nama tabel, nama field dan tipe datanya apa?
MBA>
MBA> di bawah ini asumsinya:
Jenis Kelamin --->> TEXT (15)
dan cboPW -->> rowsourcetype = value list
MBA> --->rowsource="Pria", "Wanita"
MBA> ---> column count = 1
MBA> ----> columnwidth = 1
MBA>
MBA>
MBA> Kemungkinan lain.
MBA> misalnya tabel JenisKelamin sbb:
MBA> JKID JK
MBA> 1 Pria
MBA> 2 Wanita
MBA>
dan cboPW -->> rowsourcetype = Query
MBA> --->rowsource="Select JKID, JK from JenisKelamin"
MBA> ---> column count = 2
MBA> ----> columnwidth = 0,1
MBA>
MBA>
MBA> tinggal diganti saja.
MBA>
MBA> Private Sub cboPW_AfterUpdate()
MBA> Select Case cboPW
MBA> Case 1
MBA> FormHeader.BackColor = vbBlue
MBA> Detail.BackColor = vbBlue
MBA> FormFooter.BackColor = vbBlue
MBA> Case 2
MBA> FormHeader.BackColor = 16744703
MBA> Detail.BackColor = 16744703
MBA> FormFooter.BackColor = 16744703
MBA> End Select
MBA>
MBA> End Sub
MBA>
MBA>
MBA> salam,
MBA> murid access - NRN CL BEW
Best regards,
nadhif_fakhri
mailto:[email protected]
