Private Sub Command2_Click()
Data1.UpdateRecord
End Sub
Private Sub Command3_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Combo1 = “”
Combo2 = “”
Combo3 = “”
Combo4 = “”
Combo5 = “”
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Combo1 = “”
Combo2 = “”
Combo3 = “”
Combo4 = “”
Combo5 = “”
End Sub
Private Sub Form_Load()
Combo1.AddItem “11”
Combo1.AddItem “12”
Combo1.AddItem “13”
Combo1.AddItem “14”
Combo1.AddItem “15”
Combo1.AddItem “16”
Combo1.AddItem “20”
Combo2.AddItem “JANUAR1”
Combo2.AddItem “FEBRUARI”
Combo2.AddItem “MARET”
Combo2.AddItem “APRIL”
Combo2.AddItem “ME1”
Combo2.AddItem “JUNI”
Combo2.AddItem “JULI”
Combo2.AddItem “UGUSTUS”
Combo2.AddItem “SEPTEMBER”
Combo2.AddItem “OKTOBER”
Combo2.AddItem “NOVEMBER”
Combo2.AddItem “DESEMBER”
Combo3.AddItem “1988”
Combo3.AddItem “1990”
Combo3.AddItem “1991”
Combo3.AddItem “1992”
Combo3.AddItem “1993”
Combo3.AddItem “1994”
Combo3.AddItem “1989”
Combo3.AddItem “1985”
Combo5.AddItem “LAKI LAKI”
Combo5.AddItem “PEREMPUAN”
Combo4.AddItem “ISLAM”
Combo4.AddItem “KATOLIK”
Combo4.AddItem “PROTESTAN”
Combo4.AddItem “HINDU”
Combo4.AddItem “BUDHA”
End Sub