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

"INSERT INTO ........... (.............) VALUES ('" & ........... & "')"

" INSERT INTO TabloAdı " _ 
            & "(yetistigicevre ) VALUES " _ 
            & "('" &  Forms!frm_ogrenciler!frmalt1.Form!txtcevre.Column(0)  & "');" 
             

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

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