hepsıne birer cümle olsa yeter muridler :D...

: beyler TEl no kayıt programı ısaretledıgım yerlerdeki kodlar acılar mısınız ne işe yaradıklarını lütfen bi kelime olmasın.. Private Sub Command1_Click Data1. Recordset. AddNewEnd SubPrivate Sub Command2_Click Data1. Recordset. DeleteEnd SubPrivate Sub Command3_Click Data1. Recordset. MovePrevious bir nceki kayıda gitIf Data1. Recordset. BOF = True Then eğer kayıtların ilk kayıtındaysan zaten altta mesajı veriyo (:MsgBox ElseData1. Recordset. MoveFirst 1. kayıda gitEnd IfEnd SubPrivate Sub Command4_Click Data1. Recordset. MoveNext bir sonraki kayıda gitIf Data1. Recordset. EOF = True Then eğer son kayıttaysa; mesaj alttaMsgBox ElseData1. Recordset. MoveLast son kayda gitEnd IfEnd SubPrivate Sub Command5_Click Data1. Recordset. MovePrevious e bunlar aynıları (:If Data1. Recordset. BOF = True Then Data1. Recordset. MoveLastEnd IfEnd SubPrivate Sub Command6_Click Data1. Recordset. MoveNext If Data1. Recordset. EOF = True Then Data1. Recordset. MoveFirst End IfEnd SubPrivate Sub Command7_Click a = MsgBox("Çıkmak İstediğinize Emin misiniz?", 36, "ÇIKIŞ")If a = 6 ThenEndEnd IfEnd Sub Kayalardan kayarım yoktur benim ayarım (;

beyler TEl no kayıt programı ısaretledıgım yerlerdeki kodlar acılar mısınız ne işe yaradıklarını lütfen bi kelime olmasın.. Private Sub Command1_Click Data1. Recordset. AddNewEnd SubPrivate Sub Command2_Click Data1. Recordset. DeleteEnd SubPrivate Sub Command3_Click Data1. Recordset. MovePrevious If Data1. Recordset. BOF = True Then MsgBox ElseData1. Recordset. MoveFirst End IfEnd SubPrivate Sub Command4_Click Data1. Recordset. MoveNext If Data1. Recordset. EOF = True Then MsgBox ElseData1. Recordset. MoveLast End IfEnd SubPrivate Sub Command5_Click Data1. Recordset. MovePrevious If Data1. Recordset. BOF = True Then Data1. Recordset. MoveLastEnd IfEnd SubPrivate Sub Command6_Click Data1. Recordset. MoveNext If Data1. Recordset. EOF = True Then Data1. Recordset. MoveFirst End IfEnd SubPrivate Sub Command7_Click a = MsgBox("Çıkmak İstediğinize Emin misiniz?", 36, "ÇIKIŞ")If a = 6 ThenEndEnd IfEnd Sub...

hoca eyw cok saol ya işime baya yaradın...