entri penjualan laptop apple
Private Sub cbokode_Click() Dim mt, hs As String Select Case Mid(cbokode, 7, 5) Case "MC965" mt = "Apple MC965 Macbook Air" hs = "12800000" Case "MC966" mt = "Apple MC966 Macbook Air" hs = "15800000" Case "MC968" mt = "Apple MC968 Macbook Air" hs = "9900000" Case "MC969" mt = "Apple MC969 Macbook Air" hs = "11900000" Case "MC700" mt = "Apple MC700 Macbook Air" hs = "10800000" Case "MC721" mt = "Apple MC721 Macbook Air" hs = "15900000" Case "MC723" mt = "Apple MC723 Macbook Air" hs = "19300000" Case "MC724" mt = "Apple MC724 Macbook Air" hs = "13700000" Case "MC7311" mt = "Apple MC7311 Macbook Air" hs = "24200000" Case "MC313" mt = "Apple MC313 Macbook Air" hs = ...