(22/01/2022, 23:28)berduş yazdı: Yapılır ama neden tek tek no seçilip ekleniyor?
Kayıt ekleme sırasında olsa yeni kayda değeri atasa anlarım ama bu durum tuhaf geldi
Uygun bir zamanda kodu eklemeye çalışırım
sn halil üstadım,
bir işletmede, istenilen siparişler var,
bu siparişlerden hazır olanların ürünleri yükleme için liste oluşturuluyor,
bu yükleme için de bir numara veriyoruz,
yani bu yükleme no bugün yapılıyorsa sıradaki numarayı alıyor,
o yüzden yükleme no ya göre yapmak istiyorum,
yükleme no için ürünlerin tabloya eklenme işlemi bittiğinde, koli numalarandırmayı yapacağız,
aslında ürünler listeye eklendikçe de koli no verdirilebilir ama sonra aradan ürün çıkartılıyor,
o yüzden koli no karışacak,
bende yükleme işlemi bitince koli no verdirme işlemini
seçili yükleme numarasına göre yaptırmak istiyorum,
aşağıda koli numarası ver butonunun kodu var
dener misiniz?
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"",""ID<"" & [a].[ID] & "" " & _
"and YUKLEME_NO='"" & [a].[YUKLEME_NO] & ""'""),0) & ""-"" & [a].[KOLI_ADEDI]+Nz(DSum(""KOLI_ADEDI"",""YUKLEME_LISTESI"",""ID<"" & [a].[ID] & "" " & _
"and YUKLEME_NO='"" & [a].[YUKLEME_NO] & ""'""),0)) " & _
"WHERE (((A.YUKLEME_NO)=""" & Me.Metin0 & """));"
CurrentDb.Execute xSql
End Sub
sn üstadım, çok teşekkür ederim,
süpersiniz,
Allah razı olsun,
rica ederim
iyi çalışmalar)
(23/01/2022, 00:07)berduş yazdı: aşağıda koli numarası ver butonunun kodu var
dener misiniz?
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"",""ID<"" & [a].[ID] & "" " & _
"and YUKLEME_NO='"" & [a].[YUKLEME_NO] & ""'""),0) & ""-"" & [a].[KOLI_ADEDI]+Nz(DSum(""KOLI_ADEDI"",""YUKLEME_LISTESI"",""ID<"" & [a].[ID] & "" " & _
"and YUKLEME_NO='"" & [a].[YUKLEME_NO] & ""'""),0)) " & _
"WHERE (((A.YUKLEME_NO)=""" & Me.Metin0 & """));"
CurrentDb.Execute xSql
End Sub
halil üstadım,
yükleme no olmadan,
yani yükleme planı yaparken, yükleme no seçmiyorum,
yükleme noya bakmadan, YUKLEME_LISTESI_plan tablosundaki Id'nın her değişiminde hesaplama yapacak,
kodu düzenlemeye çalıştım ama , hata verdi, müsait olduğunuz bir ara yardımcı olabilirmisiniz?
Private Sub Koli_no_ver_plan()
Dim xSql2 As String
xSql2 = "UPDATE YUKLEME_LISTESI_plan AS A SET A.KOLI_NO = CStr(1+Nz(DSum(""KOLI_ADEDI"",""YUKLEME_LISTESI_plan"",""ID<"" & [a].[ID] & "", ""-"" & [a].[KOLI_ADEDI]+Nz(DSum(""KOLI_ADEDI"",""YUKLEME_LISTESI_plan"",""ID<"" & [a].[ID] & ""),0))"
CurrentDb.Execute xSql2
End Sub
Bu yeni bir soru mu yoksa önceki kod hatalı sonuç mu üretiyor?