Skip to main content

AccessTr.neT


Artan Sipariş Numarası Verdirme

Artan Sipariş Numarası Verdirme

Çözüldü #1
merhaba,
eklemiş olduğum örnekte, YENİ KAYIT butonuna tıkladığımda
tablodaki sipariş numarasından 1 fazlasını vermesini istiyorum.
sipariş numarasını verirken
21-1
21-2
21-3
21-4 gibi verdiriyorum.

21=2121 yılı
2022 yılına geçtiğimde 22-1
22-2
22-3.... gibi verecek

[Resim: do.php?img=11234]
.rar sipnover.rar (Dosya Boyutu: 16,62 KB | İndirme Sayısı: 1)
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#2
Dim rs As New ADODB.Recordset
rs.Open "SELECT Last(Mid([SIPARIS_NO],4)) AS SIPNO FROM SIP_KAYIT", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Not rs.EOF Then
Me.SIPARIS_NO = Format(Date, "yy") & "-" & rs("SIPNO") + 1
Else
End If
rs.Close

bu şekilde çözdüm,
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#3
çözümü paylaştığınız için teşekkürler
iyi çalışmalar
Cevapla
#4
merhaba arkadaşlar.

21 = 2021 yılı
Sipariş numarası verirken 21-12,  21-13,    21-14..... gibi sipariş numarası veriyor.

yıl 2022 ye geçtiğinde tablodan nasıl bir sorgulatma yaparak  22-1 diye başlatabilirim.

otomatik program 22-1 diye başlasın istiyorum,


[Resim: do.php?img=11240]
.rar sipnover.rar (Dosya Boyutu: 21,47 KB | İndirme Sayısı: 3)
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Son Düzenleme: 13/09/2021, 23:06, Düzenleyen: husem.
Cevapla
#5
X=Dcount("*","tabloadi","left([sipariş no alani],2=22)")
Benzeri bir kod işe yarayabilir

Belki koşullu dmax ile değer bulunup +1 yapılabilir henüz denemedim
Cevapla
#6
merhaba sayın üstadım,
sizin mesajınızdan sonra aklıma geldi.

yeni kayıt butonuna tıklandığnıda
21-50 gibi birnumara verir bu arada mevcut tarih te 2022 olduğundan 21-50 ile 2022 uyuşmayacağından, yıl+1 yaptırılabilir diye düşündüm. yeni numara da 22-1 olur,

teşekkürler,
kolay gelsin
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task