Başlangıç > Kodlar > Visual Basic 6 ile Zorunlu alan kontrolü yapmak

Visual Basic 6 ile Zorunlu alan kontrolü yapmak


Adı Soyadı girmeden kayıt yapılmıyor.

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

KOLAY GELSİN...

Dim Dosya As Database
Dim Kayıt As Recordset

Private Sub Form_Load()
Set Dosya = OpenDatabase("D:\ferhat\daskin.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


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: