Form Data Mahasiswa

1. 

Private Sub Command1_Click()

rsmahasiswa.Recordset.MoveFirst

Tampil

End Sub

Private Sub Command2_Click()

rsmahasiswa.Recordset.MovePrevious

If rsmahasiswa.Recordset.BOF Then

    MsgBox ("ini data Pertama")

    rsmahasiswa.Recordset.MoveFirst

End If

Tampil

End Sub

Private Sub Command3_Click()

rsmahasiswa.Recordset.MoveNext

If rsmahasiswa.Recordset.EOF Then

    MsgBox ("ini data terakhir")

    rsmahasiswa.Recordset.MoveLast

End If

Tampil

End Sub

Private Sub Command4_Click()

rsmahasiswa.Recordset.MoveLast

Tampil

End Sub

Private Sub Command5_Click()

rsmahasiswa.Refresh

End Sub

Private Sub Form_Load()

rsmahasiswa.Refresh

Tampil

End Sub

Private Sub Tampil()

Text1 = rsmahasiswa.Recordset.Fields(0)

Text2 = rsmahasiswa.Recordset.Fields(1)

Text3 = rsmahasiswa.Recordset.Fields(2)

Text4 = rsmahasiswa.Recordset.Fields(3)

Text5 = rsmahasiswa.Recordset.Fields(4)

Text6 = rsmahasiswa.Recordset.Fields(5)

Text7 = rsmahasiswa.Recordset.Fields(6)

Text8 = rsmahasiswa.Recordset.Fields(7)

Text9 = rsmahasiswa.Recordset.Fields(8)

End Sub