Skip to main content

AccessTr.neT


Artan Sipariş Numarası Verdirme

Artan Sipariş Numarası Verdirme

#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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Artan Sipariş Numarası Verdirme - Yazar: husem - 11/09/2021, 23:00
RE: Artan Sipariş Numarası Verdirme - Yazar: husem - 12/09/2021, 01:39
RE: Artan Sipariş Numarası Verdirme - Yazar: husem - 13/09/2021, 22:54
RE: Artan Sipariş Numarası Verdirme - Yazar: berduş - 12/09/2021, 09:04
RE: Artan Sipariş Numarası Verdirme - Yazar: berduş - 13/09/2021, 23:08
RE: Artan Sipariş Numarası Verdirme - Yazar: husem - 13/09/2021, 23:16
RE: Artan Sipariş Numarası Verdirme - Yazar: berduş - 13/09/2021, 23:24
RE: Artan Sipariş Numarası Verdirme - Yazar: husem - 14/09/2021, 01:34
Re: Artan Sipariş Numarası Verdirme - Yazar: userx - 13/09/2021, 23:37
RE: Artan Sipariş Numarası Verdirme - Yazar: husem - 14/09/2021, 00:48
RE: Artan Sipariş Numarası Verdirme - Yazar: userx - 14/09/2021, 01:06
RE: Artan Sipariş Numarası Verdirme - Yazar: husem - 14/09/2021, 01:16
RE: Artan Sipariş Numarası Verdirme - Yazar: berduş - 14/09/2021, 01:23
RE: Artan Sipariş Numarası Verdirme - Yazar: husem - 15/09/2021, 20:40