Dim Sql As String

Dim db As Database

Dim rs As DAO.Recordset

Dim rt As DAO.Recordset

Dim ru As DAO.Recordset

Set db = CurrentDb()

SQL = "SELECT * FROM dbo_GECSIPARIS02"

Set rs = db.OpenRecordset(SQL, dbOpenDynaset, dbSeeChanges)

SQL = "SELECT * FROM dbo_SİPARİS"

Set rt = db.OpenRecordset(SQL, dbOpenDynaset, dbSeeChanges)

SQL = "SELECT * FROM dbo_İRSALİYE"

Set ru = db.OpenRecordset(SQL, dbOpenDynaset, dbSeeChanges)

If rs.EOF = True Then Exit Sub

If rt.EOF = True Then Exit Sub

rs.MoveFirst

Do Until rs.EOF

   rt.MoveFirst

   Do Until rt.EOF

   If rs!SİD = rt!İD Then

      rt.Edit

      rt!giden_mik = rt!giden_mik + rs!SEVKADET

      rt!irsaliye_tarih = Me.DIS_IRSTRH

      rt!irsaliye_no = Me.DIS_IRSNO

      rt!kalan_mik = rt!sip_adet - rt!giden_mik

      rt.Update

      ru.AddNew

      ru!gonderen = Me.DIS_GONDEREN

      ru!koli_miktari = Me.DIS_KOLIADET

      ru!İRSALİYE_NO = Me.DIS_IRSNO

      ru!URUN_KODU = rs!URUN_KODU

      ru!giden_mik = rs!SEVKADET

      ru!firma = rs!firma

      ru!URUN_AD = rs!URUN_ADİ

      ru!urun_cinsi = rs!urun_cinsi

      ru!irsaliye_tarih = Me.DIS_IRSTRH

      ru!SİPARİS_ADET = rs!siparis_adet

      ru!SİP_NO = rs!SİPARİS_NO

      ru!sas_no = rs!sas_no

      ru!kalem_no = rs!kalem_no

      ru!satici_firmakodu = rs!saticifirma

      ru!elekdepo = rs!elekdepo

      ru.Update

      GoTo 100

   End If

   rt.MoveNext

   Loop

100

   rs.MoveNext

Loop

(02/07/2017, 14:29)biberli33 yazdı: Sayın Ramazan, emin olmamakla birlikte db.OpenRecordset kısmını SQLe göre yeniden düzenlemeniz gerekiyor. Accesste kullandığımız bazı komut ve fonksiyonlar SQLde farklı isimlerle adlandırıldığında böyle sıkıntılara yol açabiliyor. Sql bilgim çok yok ama arkadaşlarımda benzer sorunlarla karşılaşmışlardı oradan yola çıkarak cevapladım. Kolay gelsin.