Arkadaşlar Ado ile kaydet butonun kodlarını bir arkadaşın çalışmasından alarak ve öğrenerek uyarlamaya çalışıyorum. lakin hata alıyorum. İlgilenebilir misiniz?

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

   MsgBox "Lütfen Öğrenci Kayıt Sırasını Yazınız!", , "Kayıt İşlemi"

   Me.txtid.SetFocus

   Exit Sub

End If



Dim txtidKontrol As Long

txtidKontrol = Nz(DCount("ogrid", "tbl_ogrenciler", "ogrid='" & Me.txtid & "'"))

If txtidKontrol <> 0 Then

Cancel = False

MsgBox "Girmekte Oldugunuz Kayıt Sırası Sistemde Kayıtlıdır.", 48, "Kayıt Sırası Kontrol İşlemi"

Exit Sub



End If



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

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

   Me.txttckimlik.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_ogrenciler", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

rs.AddNew



rs!ogrid = Me.txtid

rs!tckimlikno = Me.txttckimlik

rs!adısoyadı = Me.txtadsoyad

rs!sınıfı = Me.txtsınıf

rs!okulu = Me.txtokul

rs!veliadısoyadı = Me.txtveliadsoyad

rs!adresi = Me.txtadres

rs!velitel = Me.txttel

rs!okulno = Me.txtoklno

rs!yetistigicevre = Me.txtcevre

rs!basaridurumu = Me.acbasari

rs!dogumtarihi = Me.txtdogumtarihi

rs!dogumyeri = Me.txtdogumyeri

rs!yatılı_gündüzlü = Me.acyatılı

rs!aileekonomikdurumu = Me.acekonomikdurum

rs!ailesiilebirleteoturmadurumu = Me.acailebirlikteot

rs!annebabasag = Me.acannebabasag

rs!annebabaöz = Me.acoz

rs!aileyanindaokumasi = Me.acokuma

rs!saglikdurumu = Me.acsaglik

Me.txtid = rs("ogrid")

rs.Update

rs.Close

Set rs = Nothing

Call KilitGuncelle

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

end sub