Telefon Defteri

[Maxthon]

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

 

[Maxthon]

Güncelll...

 

[beyic_baris]

Paylaşım için teşekürler

 

[TheKairos]

Paylaşım için teşekkürler.