(14/01/2018, 21:09)ozanakkaya yazdı: Merhaba,

Bu yapı ile uygulamanı bir adım ileriye taşıyamazsın. Olmayacak yerlerde anlayamadığın hatalar vermeye başlayacak.

Formda, arşiv tablosuna aktarılacak verileri içeren metin kutusu ve açılan kutuların im özelliğine 1 yaz,

Butonun tıklandığında olayına aşağıdaki kodu ekle.

    'dosyaarşiv isimli tabloya kayıt işlemi yapılıyor



Dim GDenetim As Control



Dim rs As New ADODB.Recordset



rs.Open "dosyaarşiv", CurrentProject.Connection, adOpenKeyset, adLockOptimistic



rs.AddNew



For Each GDenetim In Me



    If GDenetim.Tag = 1 Then

       

       rs(GDenetim.ControlSource) = GDenetim.Value

       

    End If

    

Next GDenetim



rs.Update



Set rs = Nothing

    



MsgBox ("Dosya,ARŞİV tablosuna eklendi")

Me.Requery

Me.Refresh

DoCmd.GoToRecord , , acFirst

harikasın devrem teşekkür ederim