Siang semua,
sudah saya coba kok masih gak jalan ya...
apa ada yang kurang mohon penjelasannya
Terima kasih
MBA> Misalnya pake ComboBox;
MBA> cboPW: type:value list
MBA> value: "Pria","Wanita"
MBA>
MBA> taruh ini di formnya.
MBA>
MBA> Private Sub cboPW_AfterUpdate()
MBA> Select Case cboPW
MBA> Case "Pria"
MBA> FormHeader.BackColor = vbBlue
MBA> Detail.BackColor = vbBlue
MBA> FormFooter.BackColor = vbBlue
MBA> Case "Wanita"
MBA> FormHeader.BackColor = 16744703
MBA> Detail.BackColor = 16744703
MBA> FormFooter.BackColor = 16744703
MBA> End Select
MBA>
MBA> End Sub
MBA>
MBA> Private Sub Form_Current()
MBA> cboPW_AfterUpdate
MBA> End Sub
MBA>
MBA>
MBA>
MBA> salam,
MBA> murid access - NRN CL BEW
Best regards,
nadhif_fakhri
mailto:[email protected]
