VB From MATAKULIAH

 Listing :

JANGAN LUPA TEXTBOX’Y DI HUB’KAN DATAFIELD DAN DATASOURCE’Y….   DATA1 HUB’KAN PADA DATABASENAME, RECORDSOURCE, N RECORDSETTYPE….

Sub aktif()

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

End Sub

Sub nonaktif()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

End Sub

Sub bersih()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

Private Sub CmdBatal_Click()

Data1.Recordset.CancelUpdate

End Sub

Private Sub CmdCari_Click()

Dim cari As String

cari = InputBox("INPUT KODE MATAKULIAH", "CARI")

Data1.Recordset.Index = "Kode"

Data1.Recordset.Seek "=", cari

If Data1.Recordset.NoMatch Then

MsgBox ("DATA TIDAK ADA") + cari

End If

End Sub

Private Sub CmdEdit_Click()

Data1.Recordset.Edit

aktif

Text1.SetFocus

End Sub

Private Sub CmdFisrt_Click()

Data1.Recordset.MoveFirst

End Sub

Private Sub CmdHapus_Click()

Data1.Recordset.Delete

End Sub

Private Sub CmdKeluar_Click()

End

End Sub

Private Sub CmdLast_Click()

Data1.Recordset.MoveLast

End Sub

Private Sub CmdNext_Click()

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then

Data1.Recordset.MoveLast

MsgBox "sudah di awal", vbOKOnly, "info"

End If

End Sub

Private Sub CmdPrev_Click()

Data1.Recordset.MovePrevious

If Data1.Recordset.BOF Then

Data1.Recordset.MoveFirst

End If

End Sub

Private Sub CmdSimpan_Click()

Data1.Recordset.Update

nonaktif

End Sub

Private Sub cmdTambah_Click()

Data1.Recordset.AddNew

aktif

Text1.SetFocus

End Sub

Private Sub Form_Load()

nonaktif

End Sub