Artan Sipariş Numarası Verdirme

1 2 3
11/09/2021, 23:00

husem

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


12/09/2021, 01:39

husem

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,
12/09/2021, 09:04

berduş

çözümü paylaştığınız için teşekkürler
iyi çalışmalar
13/09/2021, 22:54

husem

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,



13/09/2021, 23:08

berduş

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
13/09/2021, 23:16

husem

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
1 2 3