+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Koli Numarası Verdirme (/konu-koli-numarasi-verdirme.html)
RE: Koli Numarası Verdirme - husem - 24/01/2022
Ö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,
RE: Koli Numarası Verdirme - berduş - 24/01/2022
Yeni konu açarak dosyanızı ekleyip olması gereken sonucu gösterirseniz çözmeye çalışırız
RE: Koli Numarası Verdirme - husem - 26/01/2022
(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 SubRE: Koli Numarası Verdirme - berduş - 26/01/2022
Yeni konu acın gerekli açıklamaları yapın olmasını istediğiniz sonuç da tabloda olsun
Uygun bir zamanda ilgilenmeye çalışırım