Form Data Dosen

 

Private Sub Command1_Click()

rsdosen.Recordset.MoveFirst

cim

End Sub

Private Sub Command2_Click()

rsdosen.Recordset.MovePrevious

If rsdosen.Recordset.BOF Then

    MsgBox ("Ini Data Pertama")

    rsdosen.Recordset.MoveFirst

End If

cim

End Sub

Private Sub Command3_Click()

rsdosen.Recordset.MoveNext

If rsdosen.Recordset.EOF Then

    MsgBox ("Ini data Terakhir")

    rsdosen.Recordset.MoveLast

End If

cim

End Sub

Private Sub Command4_Click()

rsdosen.Recordset.MoveLast

cim

End Sub

Private Sub Form_Load()

rsdosen.Refresh

cim

End Sub

Private Sub cim()

Text1 = rsdosen.Recordset.Fields(0)

Text2 = rsdosen.Recordset.Fields(1)

Text3 = rsdosen.Recordset.Fields(2)

Text4 = rsdosen.Recordset.Fields(3)

Text5 = rsdosen.Recordset.Fields(4)

Text6 = rsdosen.Recordset.Fields(5)

Text7 = rsdosen.Recordset.Fields(6)

Text8 = rsdosen.Recordset.Fields(7)

Text9 = rsdosen.Recordset.Fields(8)

End Sub

Private Sub Command1_Click()

rsdosen.Recordset.MoveFirst

cim

End Sub

Private Sub Command2_Click()

rsdosen.Recordset.MovePrevious

If rsdosen.Recordset.BOF Then

    MsgBox ("Ini Data Pertama")

    rsdosen.Recordset.MoveFirst

End If

cim

End Sub

Private Sub Command3_Click()

rsdosen.Recordset.MoveNext

If rsdosen.Recordset.EOF Then

    MsgBox ("Ini data Terakhir")

    rsdosen.Recordset.MoveLast

End If

cim

End Sub

Private Sub Command4_Click()

rsdosen.Recordset.MoveLast

cim

End Sub

Private Sub Form_Load()

rsdosen.Refresh

cim

End Sub

Private Sub cim()

Text1 = rsdosen.Recordset.Fields(0)

Text2 = rsdosen.Recordset.Fields(1)

Text3 = rsdosen.Recordset.Fields(2)

Text4 = rsdosen.Recordset.Fields(3)

Text5 = rsdosen.Recordset.Fields(4)

Text6 = rsdosen.Recordset.Fields(5)

Text7 = rsdosen.Recordset.Fields(6)

Text8 = rsdosen.Recordset.Fields(7)

Text9 = rsdosen.Recordset.Fields(8)

End Sub

Form Pencarian Data Mahasiswa

 

Private Sub Command1_Click()

On Error Resume Next

rsmahasiswa.CommandType = adCmdText

rsmahasiswa.RecordSource = Text1

rsmahasiswa.Refresh

Text2 = rsmahasiswa.Recordset.RecordCount

End Sub

Form Pencarian Data Dosen

Pri

  

vate Sub Command1

_Click()

On Error Resume Next

rsdosen.CommandType = adCmdText

rsdosen.RecordSource = Text1

rsdosen.Refresh

Text2 = rsmahasiswa.Recordset.RecordCount

End Sub