siparişlere ver butonunun tıklandığında olayındaki 

DoCmd.SetWarnings False





DoCmd.OpenQuery "AKTAR"

DoCmd.OpenQuery "TPL_TUMUNU_SIL"

DoCmd.SetWarnings True

kodları yerine aşağıdaki kodları ekleyiniz.

For a = 1 To Me.Liste25.ListCount - 1



     Dim rs As New ADODB.Recordset

       rs.Open "SİPARİS", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

       rs.AddNew

       rs("urun_kodu") = Me.Liste25.Column(3, a)

       rs("sip_adet") = Me.Liste25.Column(6, a)

       rs("firma") = Me.Liste25.Column(4, a)

       rs("sip_no") = Me.Liste25.Column(2, a)

       rs("sip_acma_tarih") = Date

       rs("üretim_tarih") = Me.Liste25.Column(7, a)

       rs("ACIKLAMA") = Me.Liste25.Column(8, a)

       rs("giden_mik") = 0

       rs("sas_no") = Me.Liste25.Column(1, a)

       rs("stok_mik") = Nz(DLookup("[stok_adet]", "STOK", "[stokurun_kodu]=" & "'" & rs("urun_kodu") & "'"), "0")

       rs.Update

       

               strSQL = "SELECT * FROM STOK "

               Set rstkayit = New ADODB.Recordset

               rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

                   With rstkayit

                     .Find "[stokurun_kodu]=" & "'" & rs("urun_kodu") & "'"

                           If Not rstkayit.EOF Then

                               .Fields("kullanilan") = Val(Nz(.Fields("kullanilan"), 0)) + (Nz(DSum("[SİPARİŞADET]", "TOPLUKAYIT", "[URUNKODU]=" & "'" & rs("urun_kodu") & "'"), "0") / Nz(DCount("[SİPARİŞADET]", "TOPLUKAYIT", "[URUNKODU]=" & "'" & rs("urun_kodu") & "'"), "0"))

                               .Update

                           End If

                   End With

       Set rs = Nothing

Next a

Ayrıca, stok tablosu ile ilgili işlem yapılmasını istediğiniz halde boş stok tablosu göndermeyiniz.