Visual Basic Kayıt Kodları
-
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.AddNew
End SubPrivate Sub Command2_Click()
Data1.Recordset.Delete
End SubPrivate 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 SubPrivate 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 SubPrivate Sub Command5_Click()
Data1.Recordset.MovePrevious-------
If Data1.Recordset.BOF = True Then----------
Data1.Recordset.MoveLast
End If
End SubPrivate Sub Command6_Click()
Data1.Recordset.MoveNext---------
If Data1.Recordset.EOF = True Then-----------
Data1.Recordset.MoveFirst----------
End If
End SubPrivate Sub Command7_Click()
a = MsgBox("Çıkmak İstediğinize Emin misiniz?", 36, "ÇIKIŞ")
If a = 6 Then
End
End If
End Sub -
hepsıne birer cümle olsa yeter muridler :D
-
media_center bunu yazdı:
-----------------------------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.AddNew
End SubPrivate Sub Command2_Click()
Data1.Recordset.Delete
End SubPrivate Sub Command3_Click()
Data1.Recordset.MovePrevious------------------- bir önceki kayıda git
If Data1.Recordset.BOF = True Then----------------- eğer kayıtların ilk kayıtındaysan zaten altta mesajı veriyo (:
MsgBox ("İlk Kayıttasınız")
Else
Data1.Recordset.MoveFirst------------- 1. kayıda git
End If
End SubPrivate Sub Command4_Click()
Data1.Recordset.MoveNext------------ bir sonraki kayıda git
If Data1.Recordset.EOF = True Then------------- eğer son kayıttaysa; mesaj altta
MsgBox ("Son Kayıttasınız")
Else
Data1.Recordset.MoveLast----------- son kayda git
End If
End SubPrivate Sub Command5_Click()
Data1.Recordset.MovePrevious------- e bunlar aynıları (:
If Data1.Recordset.BOF = True Then----------
Data1.Recordset.MoveLast
End If
End SubPrivate Sub Command6_Click()
Data1.Recordset.MoveNext---------
If Data1.Recordset.EOF = True Then-----------
Data1.Recordset.MoveFirst----------
End If
End SubPrivate Sub Command7_Click()
a = MsgBox("Çıkmak İstediğinize Emin misiniz?", 36, "ÇIKIŞ")
If a = 6 Then
End
End If
End Sub
----------------------------- -
hoca eyw cok saol ya işime baya yaradın
