1. Ana Sayfa
  2. Bilgisayar
  3. Visual Basic 6.0 Zorunlu Alan Kontrolü

Visual Basic 6.0 Zorunlu Alan Kontrolü

Son güncelleme: 31.01.2007 08:16
fiber_optic fiber_optic foto
  • İlk önce Visual Basicte Add-Ins menüsün den Visual Data Menager dan MDB veri tabanı hazırlamanız gerekir ve daha sonra PROJECT menüsün den references seçilir açılan menüden Microsoft DAO 3.51 Object Library seçilerek form'a eklenmesi lazım.

    Aşagıdaki Kodları Yazıp Deneyin ben sadece kayıt girmede kullandım siz isterseniz Kayıt Silme , Kayıt Değiştirme gibi menülerde kullana bilirsiniz.

    Gerekli olanlar(7 tane text bir tane command ve commandın ismini kaydet diye değiştirmeniz gerekiyor)

    KOLAY GELSİN...


    Dim Dosya As Database
    Dim Kayıt As Recordset

    Private Sub Form_Load()
    Set Dosya = OpenDatabase("D:\fiber\proje.MDB")
    Set Kayıt = Dosya.OpenRecordset("daskin")
    Kayıt.Index = "PrimaryKey"
    End Sub

    Private Sub kaydet_Click()

    on lacal error Goto KayıtHatası

    cevap = MsgBox("Kayıt Hafızaya Alınsınmı...?", 36, "KAYDET")
    If cevap = 6 Then
    If Text1.Text = "" Then
    MsgBox " Kaydın Adı Soyadı Giriniz...", 48, "KAYDET"

    Else
    Kayıt.AddNew
    Kayıt.Fields("Adi Soyadi") = Form1.Text1
    Kayıt.Fields("Telefon1") = Form1.Text2
    Kayıt.Fields("Telefon2") = Form1.Text3
    Kayıt.Fields("Telefon3") = Form1.Text4
    Kayıt.Fields("Telefon4") = Form1.Text5
    Kayıt.Fields("Telefon5") = Form1.Text6
    Kayıt.Fields("Telefon6") = Form1.Text7
    Kayıt.Update
    MsgBox "Kayıt Hafızaya Alındı...", 48, "KAYDET"
    Text1.SetFocus
    End If
    End If

    exit sub :
    KayıtHatası :
    msgbox "Aynı İsimden Kayıt var Lütfen Başka Kayıt İsmi Giriniz"
    text1.SetFocus
    exit sub
    End Sub
#31.01.2007 08:16 0 0 0