Tugas Data Barang (DBGrid)

Tugas Data Barang with DBGrid from Ms.acces

Sub nonaktif()

Me.Text1.Enabled = False

Me.Text2.Enabled = False

Me.Text3.Enabled = False

End Sub

Sub aktif()

Me.Text1.Enabled = True

Me.Text2.Enabled = True

Me.Text3.Enabled = True

End Sub

Sub tambah()

Me.Combo1 = ""

Me.Text1 = ""

Me.Text2 = ""

Me.Text3 = ""

End Sub

Private Sub cmdbatal_Click()

Me.aktif

Me.tambah

Me.Combo1.SetFocus

End Sub

Private Sub cmddelete_Click()

p = MsgBox("Anda Yakin Ingin Mneghapus record ini??", vbQuestion + vbOKCancel, "Konfirmasi")

If p = vbOK Then

Data1.Recordset.Delete

Data1.Recordset.MovePrevious

End If

End Sub

Private Sub cmdedit_Click()

Data1.Recordset.Edit

aktif

Me.Text1.Enabled = False

Me.Text2.SetFocus

Me.Command4.Enabled = True

cmdsave.Enabled = True

cmdedit.Enabled = True

End Sub

Private Sub cmdkeluar_Click()

p = MsgBox("Seriusan Mau Keluar???", 32 + 4, "Informasi")

If p = 6 Then

Unload Me

End If

End Sub

Private Sub cmdsave_Click()

With Data1.Recordset

.AddNew

!kd_barang = Me.Combo1

!nama_barang = Me.Text1

!hrg_barang = Me.Text2

!jumlah = Me.Text3

.Update

Me.tambah

End With

End Sub

Private Sub Command1_Click()

On Error Resume Next

Data1.Recordset.MoveFirst

MsgBox "data sudah diawal record!!", 16, "Peringatan!"

End Sub

Private Sub Command2_Click()

On Error Resume Next

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then

Data1.Recordset.MoveLast

MsgBox "Sudah diakhir record", vbCritical, "Peringatan!!!"

End If

End Sub

Private Sub Command3_Click()

On Error Resume Next

Data1.Recordset.MovePrevious

If Data1.Recordset.BOF Then

Data1.Recordset.MoveFirst

MsgBox "Sudah diawal record", vbCritical, "Peringatan!!!"

End If

End Sub

Private Sub Command4_Click()

On Error Resume Next

Data1.Recordset.MoveLast

MsgBox "data sudah diakhir record!!", 16, "Peringatan!"

End Sub

Private Sub Form_Load()

Combo1.AddItem ("001")

Combo1.AddItem ("002")

Combo1.AddItem ("003")

End Sub

Private Sub combo1_Click()

If Me.Combo1 = "001" Then

Me.Text1 = "Kuku Bima"

Me.Text2 = 5000

Me.Text3 = 4

Else

If Me.Combo1 = "002" Then

Me.Text1 = "Extra Jozz"

Me.Text2 = 5500

Me.Text3 = 2

Else

If Me.Combo1 = "003" Then

Me.Text1 = "Adem Sari"

Me.Text2 = 4000

Me.Text3 = 10

End If

End If

End If

End Sub

------------------------------------------------------------------------------------------------------------