Skip to main content

AccessTr.neT


Koli Numarası Verdirme

Koli Numarası Verdirme

#7
(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,
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#8
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
Cevapla
#9
sn üstadım, çok teşekkür ederim,
süpersiniz,
Allah razı olsun,
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#10
rica ederim
iyi çalışmalar)
Cevapla
#11
(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
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#12
Bu yeni bir soru mu yoksa önceki kod hatalı sonuç mu üretiyor?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task