Telefon Defteri

Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
Data1.Recordset.Delete
End Sub

Private Sub Command3_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF = True Then
MsgBox ("İlk Kayıttasınız")
Else
Data1.Recordset.MoveFirst
End If
End Sub

Private Sub Command4_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then
MsgBox ("Son Kayıttasınız")
Else
Data1.Recordset.MoveLast
End If
End Sub

Private Sub Command5_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF = True Then
Data1.Recordset.MoveLast
End If
End Sub

Private Sub Command6_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then
Data1.Recordset.MoveFirst
End If
End Sub

Private Sub Command7_Click()
a = MsgBox("Çıkmak İstediğinize Emin misiniz?", 36, "ÇIKIŞ")
If a = 6 Then
End
End If
End Sub