ÖNCEKİ KOD ÇALIŞIYOR, VE KULLANILIYOR, SORUN YOK
BU YENİ BİR İŞLEM,
Tablo adı:
YÜKLEME_LISTESI_plan
bu tabloya
planlanan ürünleri kaydediyorum,
geçici bir tablo, her planda tabloyu yeniliyoruz,
bu tabloda kolı no, her Id'nın değişiminde,
yükleme no'ya bakmayacak,
Yeni konu açarak dosyanızı ekleyip olması gereken sonucu gösterirseniz çözmeye çalışırız
(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
Yeni konu acın gerekli açıklamaları yapın olmasını istediğiniz sonuç da tabloda olsun
Uygun bir zamanda ilgilenmeye çalışırım