Telefon defteri

KirLi Kedi

Telefon defteri




Alıntı:




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
å�Ÿå¸–地å�€: Forum , Forumlar , Eglence Forum , Forum Siteleri , Resimler , Msn Nickleri , Msn Avatarları , Şarkı Sözleri [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]



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

Pa$aLi

Hell Crew.

Paylaşım İçin Teşekkürler .

Sınavlardan dolayı fazla yokum aranızda.