(21/05/2025, 22:09)berduş yazdı: aşağıdaki kod seçilen kayıtları tabloya aktarıp seçimleri boşaltır

Dim xSQL As String

Me.Dirty = False

'[sipariş listesi] tablosuna ekleme kodu

    xSQL = "INSERT INTO [sipariş listesi] ([Sipariş Tarihi] ,[Teslim Alan (Grup)] ,[Malzeme Metni] ,[Müşteri Malzeme No] ,[SAP Kodu] ,[Torio KOD] ,[Birim Fiyat EUR] ,[Koli İçi Miktar] ,[Koli Birim Fiyat EUR] ,[Parçabaşı Koli Maliyet EUR] ,[Toplam Maliyet EUR] ,[Sipariş Ver] ) " & _

           "SELECT                                   now() ,[Teslim Alan (Grup)] ,[Malzeme Metni] ,[Müşteri Malzeme No] ,[SAP Kodu] ,[Torio KOD] ,[Birim Fiyat EUR] ,[Koli İçi Miktar] ,[Koli Birim Fiyat EUR] ,[Parçabaşı Koli Maliyet EUR] ,[Toplam Maliyet EUR] ,[Sipariş Ver]  " & _

           "FROM [malzeme listesi] " & _

           "WHERE [Sipariş Ver] = TRUE;"

    

    ' xSQL komutunu çalıştır

      Set db = CurrentDb

          db.Execute xSQL

'seçili olanları boşaltma kou

   xSQL = "update [malzeme listesi] set [Sipariş Ver]=FALSE  WHERE  [Sipariş Ver] = TRUE;"

           db.Execute xSQL

Me.Requery

Hocam çok teşekkür ederim. Elinize sağlık. Konu kapanmıştır.