(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