PT.Pulang Petang Setiap Hari tgs 3.7
Private Sub cmdbatal_Click() txtnk = "" txtmn = "" txtnk.SetFocus End Sub
Postingan
Data Buku STMIK Pringsewu part 2 tgs 3.6
Private Sub cmdbatal_Click() txtkode = "" txtjudul = "" txtpengarang = "" txtterbit = "" txtpenerbit = ""
Penjualan Tiket Kereta Api tgs3.5
Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkt = ""
Data Buku Stmik Pringsewu tgs 3.4
Private Sub cmdbatal_Click() cbokode = "" cbokode.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub
Entri penjualan Laptop Apple tgs3.3
Private Sub cbokode_Click() Dim MT, HS As String Select Case Mid(cbokode, 7, 5) Case Is = "MC965" MT = "Apple MacBook Air MC965" HS = "12800000" Case Is = "MC966"
