Coding Tambah

    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
    Text7.Text = ""
    Text8.Text = ""
    Text1.SetFocus
   
    On Error Resume Next
    Dim nob As Long
    Dim nol As String
    If Data4.Recordset.BOF And Data4.Recordset.EOF Then
    nob = 1
    Else
    Data4.Recordset.MoveLast
    nob = Val(Data4.Recordset!nokembali) + 1
    End If
    Text1.Text = Left("00000", 6 - Len(Trim(Str(nob)))) & Trim(Str(nob))
    Text2.SetFocus

   
End Sub



Coding Simpan

    Data4.Recordset.AddNew
    Data4.Recordset!nokembali = Text1.Text
    Data4.Recordset!nopinjam = Text2.Text
    Data4.Recordset!kodeanggota = Text3.Text
    Data4.Recordset!nama = Text4.Text
    Data4.Recordset!kodebuku = Text5.Text
    Data4.Recordset!judul = Text6.Text
    Data4.Recordset!tglpinjam = Text7.Text
    Data4.Recordset!jumlah = Text8.Text
    Data4.Recordset.Update
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
    Text7.Text = ""
    Text8.Text = ""
    Text1.SetFocus
    MsgBox "Data Telah Tersimpan", vbOKOnly + vbInformation, "info"


Coding Edit

Data1.Recordset.Edit
    Data4.Recordset!nokembali = Text1.Text
    Data4.Recordset!nopinjam = Text2.Text
    Data4.Recordset!kodeanggota = Text3.Text
    Data4.Recordset!nama = Text4.Text
    Data4.Recordset!kodebuku = Text5.Text
    Data4.Recordset!judul = Text6.Text
    Data4.Recordset!tglpinjam = Text7.Text
    Data4.Recordset!jumlah = Text8.Text
    Data4.Recordset.Update
    Text1.Text = ""
    Text2.Text = ""
    Combo1.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
    Text7.Text = ""
    Text8.Text = ""
    Text1.SetFocus
    MsgBox "Data Telah Di Edit", vbOKOnly + vbInformation, "info"



Coding Hapus


Dim Hapus As String
    Hapus = MsgBox("Yakin Akan Dihapus?", vbYesNo + vbQuestion, "konfirmasi")
    If Hapus = vbYes Then
    Data1.Recordset.Delete
    MsgBox "Data Telah Dihapus", vbOKOnly + vbInformation, "info"
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
    Text7.Text = ""
    Text8.Text = ""
    Text1.SetFocus
    End If