Dün siteye erişimde hata olduğundan dolayı Access - sql.com sitesinde arama yaptım. Yaptığım arama sonrasında daha farklı bir örnek buldum. Bulduğum örnek alt forma ihtiyaç duymuyor. Bende bunu uyarladım. Ancak yinede bir hata ile karşılaştım.
Karşılaştığım hata:
New ADODB.RecordsetPrivate Sub btnarsiveaktar_Click()
'ARŞİV TABLOSUNA AKTARILANLAR
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[IDARSİV]=" & Me.IDNO
If Not rstkayit.EOF Then
.Fields("ADISOYADI") = Me.ADISOYADI
.Fields("TCKIMLIKNO") = Me.TCKIMLIKNO
.Fields("KOGUSU") = Me.KOGUSU
.Fields("DURUMU") = Me.DURUMU
.Fields("DOGUMYERI") = Me.DOGUMYERI
.Fields("DOGUMTARIHI") = Me.DOGUMTARIHI
.Fields("BABAADI") = Me.BABAADI
.Fields("ANAADI") = Me.ANAADI
.Fields("SUCU") = Me.SUCU
.Fields("CIKILKGIRISTARIHI") = Me.CIKILKGIRISTARIHI
.Fields("CIKILKGIRISTARIHI") = Me.CIKILKGIRISTARIHI
.Fields("KURUMDAMI") = Me.KURUMDAMI
.Fields("TAHTARIHI") = Me.TAHTARIHI
.Fields("SEVKTARIHI") = Me.SEVKTARIHI
.Fields("SEVKGITTIGICIK") = Me.SEVKGITTIGICIK
.Fields("VEFATTARIHI") = Me.VEFATTARIHI
.Fields("VEFATNEDENI") = Me.VEFATNEDENI
.Fields("FOTO") = Me.FOTO
.Fields("resim") = Me.resim
.Fields("IDDISIPLICEZALARI") = Me.IDDISIPLICEZALARI
.Fields("IDODUL") = Me.IDODUL
.Fields("ODULGORUSUALDI") = Me.ODULGORUSUALDI
.Fields("KIMLIKCIKARILDIMI") = Me.KIMLIKCIKARILDIMI
.Fields("KIMLIKCIKARMATARIHI") = Me.KIMLIKCIKARMATARIHI
.Fields("IDHASIM") = Me.IDHASIM
.Fields("DISIPLINCEZASIALDIMI") = Me.DISIPLINCEZASIALDIMI
.Fields("MISAFIR") = Me.MISAFIR
.Fields("CALISANLAR") = Me.CALISANLAR
.Fields("CALISTIGIBIRIM") = Me.CALISTIGIBIRIM
.Fields("TERORISTMI") = Me.TERORISTMI
.Fields("IDTEROR") = Me.IDTEROR
.Fields("COCUKMU") = Me.COCUKMU
.Fields("KADINMI") = Me.KADINMI
.Fields("KIMLIKVERILISNEDENI") = Me.KIMLIKVERILISNEDENI
.Fields("MESLEGI") = Me.MESLEGI
.Fields("MEDENIDURUMU") = Me.MEDENIDURUMU
.Fields("DEFTERNO") = Me.DEFTERNO
.Fields("KAYDEDILMESEBEBI") = Me.KAYDEDILMESEBEBI
.Fields("TOPLAMCEZASURESI") = Me.TOPLAMCEZASURESI
.Fields("SARTLISALIVERILMESURESI") = Me.SARTLISALIVERILMESURESI
.Fields("MAHSUBU") = Me.MAHSUBU
.Fields("TAHLIYETARIHI") = Me.TAHLIYETARIHI
.Fields("SARTLISALIVERMETARIHI") = Me.SARTLISALIVERMETARIHI
.Fields("ACIKCIKAYRILMATARIHI") = Me.ACIKCIKAYRILMATARIHI
.Update
Else
.AddNew
.Fields("IDARSİV") = Me.IDNO
.Fields("ADISOYADI") = Me.ADISOYADI
.Fields("TCKIMLIKNO") = Me.TCKIMLIKNO
.Fields("KOGUSU") = Me.KOGUSU
.Fields("DURUMU") = Me.DURUMU
.Fields("DOGUMYERI") = Me.DOGUMYERI
.Fields("DOGUMTARIHI") = Me.DOGUMTARIHI
.Fields("BABAADI") = Me.BABAADI
.Fields("ANAADI") = Me.ANAADI
.Fields("SUCU") = Me.SUCU
.Fields("CIKILKGIRISTARIHI") = Me.CIKILKGIRISTARIHI
.Fields("CIKILKGIRISTARIHI") = Me.CIKILKGIRISTARIHI
.Fields("KURUMDAMI") = Me.KURUMDAMI
.Fields("TAHTARIHI") = Me.TAHTARIHI
.Fields("SEVKTARIHI") = Me.SEVKTARIHI
.Fields("SEVKGITTIGICIK") = Me.SEVKGITTIGICIK
.Fields("VEFATTARIHI") = Me.VEFATTARIHI
.Fields("VEFATNEDENI") = Me.VEFATNEDENI
.Fields("FOTO") = Me.FOTO
.Fields("resim") = Me.resim
.Fields("IDDISIPLICEZALARI") = Me.IDDISIPLICEZALARI
.Fields("IDODUL") = Me.IDODUL
.Fields("ODULGORUSUALDI") = Me.ODULGORUSUALDI
.Fields("KIMLIKCIKARILDIMI") = Me.KIMLIKCIKARILDIMI
.Fields("KIMLIKCIKARMATARIHI") = Me.KIMLIKCIKARMATARIHI
.Fields("IDHASIM") = Me.IDHASIM
.Fields("DISIPLINCEZASIALDIMI") = Me.DISIPLINCEZASIALDIMI
.Fields("MISAFIR") = Me.MISAFIR
.Fields("CALISANLAR") = Me.CALISANLAR
.Fields("CALISTIGIBIRIM") = Me.CALISTIGIBIRIM
.Fields("TERORISTMI") = Me.TERORISTMI
.Fields("IDTEROR") = Me.IDTEROR
.Fields("COCUKMU") = Me.COCUKMU
.Fields("KADINMI") = Me.KADINMI
.Fields("KIMLIKVERILISNEDENI") = Me.KIMLIKVERILISNEDENI
.Fields("MESLEGI") = Me.MESLEGI
.Fields("MEDENIDURUMU") = Me.MEDENIDURUMU
.Fields("DEFTERNO") = Me.DEFTERNO
.Fields("KAYDEDILMESEBEBI") = Me.KAYDEDILMESEBEBI
.Fields("TOPLAMCEZASURESI") = Me.TOPLAMCEZASURESI
.Fields("SARTLISALIVERILMESURESI") = Me.SARTLISALIVERILMESURESI
.Fields("MAHSUBU") = Me.MAHSUBU
.Fields("TAHLIYETARIHI") = Me.TAHLIYETARIHI
.Fields("SARTLISALIVERMETARIHI") = Me.SARTLISALIVERMETARIHI
.Fields("ACIKCIKAYRILMATARIHI") = Me.ACIKCIKAYRILMATARIHI
.Update
End If
End With
'AKTARMA İŞLEMİ SONRASINDA SİSTEMİN İŞLEM HAKKINDA BİLGİ VERMESİ
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
MsgBox "SEÇİLİ HÜKÜMLÜ/TUTUKLU ARŞİVE AKTARILDI." & Chr(13) & "ARŞİVE AKTARILAN HÜKÜMLÜ/TUTUKLU FİHRİST TABLOSUNDAN SİLİNDİ.", , "AKTARIM SONRASI BİLGİ MESAJI"
End If
End Sub