15/12/2019, 17:35
SeferŞANLI
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