Private Sub CommandButton1_Click()
End Sub
Private Sub CommandButton2_Click()
End Sub
Private Sub Cmbsatuan_Change()
End Sub
Private Sub Cmdsatuanbarang_Click()
End Sub
Private Sub Cmdselesai_Click()
Unload Me
End Sub
Private Sub Cmdtambah_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("DATABARANG")
'untuk memberikan baris kosong pada database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
'untuk mengecek sebuah kode barang
'If Trim(Me.Textkode.Value) = "" Then
'untuk mengkopi data ke database
ws.Cells(iRow, 1).Value = Me.Textkode.Value
ws.Cells(iRow, 2).Value = Me.Textnama.Value
ws.Cells(iRow, 3).Value = Me.Cbosatuan.Value
ws.Cells(iRow, 4).Value = Me.Textharga.Value
'untuk membersihkan form sebelum ditambahkan data baru
Me.Textkode.Value = ""
Me.Textnama.Value = ""
Me.Cbosatuan.Value = ""
Me.Textharga.Value = ""
Me.Textkode.SetFocus
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Texthargabarang_Click()
End Sub
Private Sub Textkodebarang_Click()
End Sub
Private Sub Textnamabarang_Click()
End Sub
Private Sub UserForm_Initialize()
With Cbosatuan
.AddItem "Unit"
.AddItem "Set"
.AddItem "Pack"
.AddItem "Kg"
.AddItem "Meter"
End With
End Sub
Private Sub Textharga_Change()
End Sub
Private Sub Textkode_Change()
End Sub
Private Sub UserForm_QueryClick(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox "Maaf kalau sudah selesai, klik tombol selesai"
End If
End Sub
