(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?