Private Sub Form_Current()
Me.imMerah.Visible = False
Me.imKuning.Visible = False
Me.imHijau.Visible = False
If Not Me.NewRecord Then
Me.imMerah.Visible = (Me.TxNilai < 65)
Me.imKuning.Visible = (Me.TxNilai >= 65 And Me.TxNilai < 85)
Me.imHijau.Visible = (Me.TxNilai >= 85)
End If
End Sub
Aksan Kurdin
--- In [email protected], "Ichsan
Fadhilah" <[EMAIL PROTECTED]> wrote:
>
> Dear Masters..
>
> saya punya textbox yang terhubung dengan database dengan nama
> TxNilai,,
> dan saya punya 3 image dengan visible=No dengan nama
> ImMerah,ImKuning,ImHijau..
>
> yang saya ingin buat adalah jika textbox tersebut nilainya kurang
> dari 65 maka imMerah nya visible=Yes, >65 <85 imKuning lalu >85
> Imhijau.
>
> namun yang saya ga ngerti adalah cara ngelink dengan textbox
tersebut
> (TxNilai).. sejauh coding saya sebagai berikut:
>
> Private Sub NilaiProgress_AfterUpdate()
>
> If Me.TxNilai.Text < 65 Then
> Me.ImMerah.Visible = True
> Me.ImKuning.Visible = False
> Me.ImHijau.Visible = False
>
> End If
>
> If Me.TxNilai.Text > 65 And Me.TxNilai.Text < 85 Then
> Me.ImMerah.Visible = False
> Me.ImKuning.Visible = True
> Me.ImHijau.Visible = False
> End If
>
> If Me.TxNilai.Text > 85 Then
> Me.ImMerah.Visible = False
> Me.ImKuning.Visible = False
> Me.ImHijau.Visible = True
> End If
>
> end sub
>
> namun hal ini harus di enter terlebih dahulu dan juga merubah Image
> keseluruhan even ketika saya berpindah ke record berikutnya yang
> mempunya nilai 100 maka tetap berwarna ImMerah padahal harusnya
HIjau.
>
> jadi saya ingin ketika Formnya nge-load, si Image tadi otomatis
> berubah sesuai dengan angka yang tertera pada textbox.
>
> Terima kasih atas bantuannya..
>
