(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
