rs.Open "EVRAKKAYITTABLO", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
kodu ile EVRAKKAYITTABLO isimli tabloya yeni kayıt ekliyor. kodun tamamı
Kod:
Dim rs As New ADODB.Recordset
rs.Open "EVRAKKAYITTABLO", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("KAYITNO") = KAYITNO.Value
'rs("Yıl") = Yıl.Value
rs("GELDİĞİYER") = GELDİĞİYER.Value
rs("TARİH") = TARİH.Value
rs("SAYISI") = SAYISI.Value
rs("ALINDIĞITARİH") = ALINDIĞITARİH.Value
rs("EKİ") = EKİ.Value
rs("KONUNUNÖZETİ") = KONUNUNÖZETİ.Value
rs("GÖNDERİLDİĞİYER") = GÖNDERİLDİĞİYER.Value
rs("KONUNUNÖZETİ") = KONUNUNÖZETİ.Value
rs("TARİHİ") = TARİHİ.Value
rs("KONUNUNYAPILANVEYAYAPILACAKİŞLEMİNÖZETİ") = KONUNUNYAPILANVEYAYAPILACAKİŞLEMİNÖZETİ.Value
rs("AİTOLDUĞUDOSYANO") = AİTOLDUĞUDOSYANO.Value
rs("KAYITNOSONRASI") = KAYITNOSONRASI.Value
rs("KAYITNOÖNCESİ") = KAYITNOÖNCESİ.Value
rs("GEREĞİYAPILDI") = GEREĞİYAPILDI.Value
rs("CEVEPGEREKTİRİR") = CEVEPGEREKTİRİR.Value
rs("SONCEVAPTARİHİ") = SONCEVAPTARİHİ.Value
rs.Update
Set rs = Nothing
Set conn = Nothing