(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