DataBase Microsoft Visual Basic 6.0

Rumus DataBase Pada Commbo Box

Disini penulisan fariabel di form Load harus sama jika tidak maka data tidak akan keluar harap diteliti dulu.

contoh penulisan rumus :
 

Private Sub Combo1_Click()

If Combo1.Text = "KA001" Then

Text3.Text = "KIJANG"

Text4.Text = 100000

ElseIf Combo1.Text = "CY002" Then

Text3.Text = "CARRY"

Text4.Text = 120000

ElseIf Combo1.Text = "PN003" Then

Text3.Text = "PHANTER"

Text4.Text = 150000

ElseIf Combo1.Text = "XN004" Then

Text3.Text = "XENIA"

Text4.Text = 200000

End If

Text5.SetFocus

End Sub

Ingat fariabel disini dengan di Form Load harus sama.