Private Sub btnAkaydet_Click()

 If IsNull(Me.txtkimlikno) Or Me.txtkimlikno = "" Then

   MsgBox "Lütfen Öğrencinin TC Kimlik Numarasını Giriniz!", , "Kayıt İşlemi"

   Me.txtkimlikno.SetFocus

   Exit Sub

End If



If IsNull(Me.txtadsoyad) Or Me.txtadsoyad = "" Then

   MsgBox "Lütfen Öğrencinin Adını ve Soyadını Giriniz!", , "Kayıt İşlemi"

   Me.txtadsoyad.SetFocus

   Exit Sub

End If

Dim rs As New ADODB.Recordset

If MsgBox("Değişiklikler Kaydedilsin mi?", 36, "Kayıt Ediliyor") = vbYes Then

rs.Open "tbl_ogrenci", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

rs.AddNew

   



rs!tckimlik = Me.txtkimlikno

rs!adi_soyadi = Me.txtadsoyad

rs!okulu = Me.txtokl

rs!sinifi = Me.txtsınıf

rs!okul_no = Me.txtokulno

rs!dogum_tarihi = Me.txtdtarih

rs!dogum_yeri = Me.txtdyeri

rs!cinsiyeti = Me.txtcinsiyet

rs!ogrenci_telefonu = Me.txtcep





rs!yetistigicevre = Forms!frm_ogrenciler!frmalt1.Form!txtcevre.Column(1)

rs!basaridurumu = Forms!frm_ogrenciler!frmalt1.Form!txtbasari

rs!yatılı_gündüzlü = Forms!frm_ogrenciler!frmalt1.Form!txtdrm

rs!ekdurum = Forms!frm_ogrenciler!frmalt1.Form!txtekdrm

rs!annebabasag = Forms!frm_ogrenciler!frmalt1.Form!txtsag

rs!annebabaöz = Forms!frm_ogrenciler!frmalt1.Form!txtoz

rs!nerdeokuyor = Forms!frm_ogrenciler!frmalt1.Form!txtokdrmyer

rs!saglikdurumu = Forms!frm_ogrenciler!frmalt1.Form!txtsaglik



rs!veli_adi_soyadi = Forms!frm_ogrenciler!frmalt2.Form!txtveliadsoyad

rs!veli_telefonu = Forms!frm_ogrenciler!frmalt2.Form!txtelitel

rs!yakinligi = Forms!frm_ogrenciler!frmalt2.Form!txtyakinlik

rs!veli_adresi = Forms!frm_ogrenciler!frmalt2.Form!txtdadres

rs!anneadi = Forms!frm_ogrenciler!frmalt2.Form!txtanneadi

rs!babaadi = Forms!frm_ogrenciler!frmalt2.Form!txtbaba

rs.Update

rs.Close

Set rs = Nothing

MsgBox "Kayıt işlemi gerçekleşmiştir.", 64, "Kayıt İşlemi"

GoTo 777

Else

MsgBox "Kayıt İşleminden Vazgeçtiniz. Bilgileriniz Kaydedilmedi!", 64, "Kayıt İşlemi"

End If

777

Me.listeogrenci.Requery

   End Sub

Sayın hocam: Bu kaydetme olayını insert intoyla yapmak istiyorum.
Yada daha kola bir yolu var mı?

---

rs!yetistigicevre = Forms!frm_ogrenciler!frmalt1.Form!txtcevre.Column(1)

Çünkü bu yordam çalışmamda hata veriyor. Nedense