(24/01/2022, 14:09)berduş yazdı: Yeni konu açarak dosyanızı ekleyip olması gereken sonucu gösterirseniz  çözmeye çalışırız

sn halil ustam,
koli numarası Id'ye göre verme, ok,.
Id'ye göre değilde, bazı firmalar için sipariş numarasına (MUSTERI_SIP_NO) göre koli no verdirilebiliyor,
MUSTERI_SIP_NO, alan türü =kısa metin,
ben Id olan yerleri MUSTERI_SIP_NO yaptığımda,
her siparişin değişiminde yine 1den başladıyor,
213501 nolu sipariş 2 koli      1-2
212502 nolu sipariş 3 koli      1-3 gibi yapıyor aslında bu siparişi 3-5 yapması gerekiyor,
sorun alan türünden mi kaynaklı

Private Sub Koli_no_ver_Click()

Dim xSql As String

If Len(Me.Metin0 & "") = 0 Then Exit Sub

xSql = "UPDATE YUKLEME_LISTESI AS A SET A.KOLI_NO = CStr(1+Nz(DSum(""KOLI_ADEDI"",""YUKLEME_LISTESI"",""MUSTERI_SIP_NO <"" & [a].[MUSTERI_SIP_NO ] & "" " & _

"and YUKLEME_NO='"" & [a].[YUKLEME_NO] & ""'""),0) & ""-"" & [a].[KOLI_ADEDI]+Nz(DSum(""KOLI_ADEDI"",""YUKLEME_LISTESI"",""MUSTERI_SIP_NO <"" & [a].[MUSTERI_SIP_NO ] & "" " & _

"and YUKLEME_NO='"" & [a].[YUKLEME_NO] & ""'""),0)) " & _

"WHERE (((A.YUKLEME_NO)=""" & Me.Metin0 & """));"

CurrentDb.Execute xSql

End Sub