[COLOR=coral]İ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

Beğeniler: 0
Favoriler: 0
İzlenmeler: 1081
favori
like
share