BELAJAR VB NOOBIE

CODING - CODING

• Tombol Tambah

Private Sub Command1_Click()
 On Error GoTo a
Data1.Recordset.AddNew
Text1.SetFocus
a:
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = True
End Sub

•  Tombol Simpan

Private Sub Command2_Click()
On Error GoTo b
Data1.Recordset.Update
Data1.Refresh
Data1.Recordset.MoveLast
b:
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
End Sub

• Tombol Edit

Private Sub Command3_Click()
On Error GoTo c
Data1.Recordset.Edit
c:
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = True
End Sub

• Tombol Keluar

Private Sub Command4_Click()
Unload Me

End Sub

•  Tombol Cari

Private Sub Command5_Click()
On Error Resume Next
Dim kode As String
kode = InputBox("Ketik ID Figure :")
Data1.Recordset.Index = "idtx"
Data1.Recordset.Seek "=", kode
If Data1.Recordset.NoMatch Then
Text1.Text = Data1.Recordset.Fields(0)
Text2.Text = Data1.Recordset.Fields(1)
Text3.Text = Data1.Recordset.Fields(2)
Text4.Text = Data1.Recordset.Fields(3)
Text5.Text = Data1.Recordset.Fields(4)
Text6.Text = Data1.Recordset.Fields(5)
Text7.Text = Data1.Recordset.Fields(6)
Text8.Text = Data1.Recordset.Fields(7)
response = MsgBox("Data tidak ditemukan!", 0, "Pencarian Data ")
End If
End Sub