Merhaba,
Bu da başka bir örnek olarak değerlendirebilirsiniz.
Dim YIL, AY, SAYI, SoRgU As String
Dim rS As New ADODB.Recordset
YIL = Right(Date, 2)
AY = Format(Mid(Date, 4, 2), "00")
SAYI = Format(YIL & AY & 11, "0000")
SoRgU = "SELECT Max(SIPARIS_KAYIT.SIPNO) AS SON_SIPARIS_NO, Left([SIPNO],2) AS xYIL, Mid([SIPNO],3,2) AS xAY "
SoRgU = SoRgU & "FROM SIPARIS_KAYIT "
SoRgU = SoRgU & "GROUP BY Left([SIPNO],2), Mid([SIPNO],3,2) "
SoRgU = SoRgU & "HAVING (((Left([SIPNO],2))=" & YIL & ") AND ((Mid([SIPNO],3,2))=" & AY & " )); "
rS.Open SoRgU, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
If rS.EOF = True Then
Me.Metin0 = YIL & AY & Format(1, "0000")
Else
Me.Metin0 = rS!SON_SIPARIS_NO + 1
End If
ozguryasin_yeni kayıt no.rar
(Dosya Boyutu: 21,7 KB | İndirme Sayısı: 2)
POWER 'un Çekirgesi :=)
ozguryasin,
23-09-2009 tarihinden beri
AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.