AccessTr.neT

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

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,

çözümü paylaştığınız için teşekkürler
iyi çalışmalar

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,

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

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