Private Sub CmdBr_Click() Data1.Recordset.AddNew TxtNama.SetFocus End Sub Private Sub CmdHps_Click() Data1.Recordset.Delete End Sub Private Sub CmdKlu_Click() Unload Me End Sub Private Sub CmdPros_Click() Dim S As String TxtTm.Text = “20″ […]
VB
Code untuk Membuat Combo Private Sub cbonpm_Click() Select Case cbonpm.Text Case “12201034″ nama = “Fathoni Nurul Fikri” jurusan = “Menejemen Umum” Case “12201031″ nama = “Antoni” jurusan […]
Text3. Text=val (text1.text)*val(text2.text) End sub Code untuk Cmd Hitung Private Sub cmdhitung_Click() Txt3.Text = Val(txt1.Text) * Val(txt2.Text) End Sub Code untuk menghapus Private Sub cmdbersih_Click() txt1.Text = “ ” […]
thonialkarim 