Visual Basic Kayıt Kodları

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Media
    Media's avatar
    Kayıt Tarihi: 08/Mayıs/2007
    Erkek

    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 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


    ....
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Media
    Media's avatar
    Kayıt Tarihi: 08/Mayıs/2007
    Erkek
    hepsıne birer cümle olsa yeter muridler :D

    ....
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    31 yaşında emekli
    ajan1111
    ajan1111's avatar
    Kayıt Tarihi: 25/Ağustos/2005
    Erkek
    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 Sub

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

    Private 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 Sub

    Private 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 Sub

    Private Sub Command5_Click()
    Data1.Recordset.MovePrevious------- e bunlar aynıları (:
    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


    -----------------------------

    Kayalardan kayarım yoktur benim ayarım (;
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Media
    Media's avatar
    Kayıt Tarihi: 08/Mayıs/2007
    Erkek
    hoca eyw  cok saol ya işime baya yaradın

    ....
Toplam Hit: 4381 Toplam Mesaj: 4