Skip to main content

AccessTr.neT


yıla göre otomatik sayı vermek

yıla göre otomatik sayı vermek

Çözüldü #7
Yardımlarınız için çok teşekkür ederim.
umuttk, 11-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#8
Private Sub Komut41_Click()

DoCmd.GoToRecord , , acNewRec
 
Dim son_id, tablodaki_son_kayit, yil_bolumu As String

   son_id = DMax("siparis_id", "accessTr")
  'tablodaki_son_kayit = Nz(DLookup("siparis_no", "accessTr", "Left(siparis_no, 4)=" & tarih), 0)
   tablodaki_son_kayit = Nz(DLookup("siparis_no", "accessTr", "siparis_id=" & son_id), 0)
   
   If tablodaki_son_kayit = 0 Then
   
       txt_siparis_no = tarih & "-1"
       
   Else
   
       yil_bolumu = Left(tablodaki_son_kayit, 4)
       
       If yil_bolumu <> tarih Then
       
           txt_siparis_no = tarih & "-1"
           
       Else
       
           txt_siparis_no = yil_bolumu & "-" & Format(Mid(tablodaki_son_kayit, 6, 5) + 1, "0")
           
      'siparis_no = Nz(DMax("siparis_no", "accessTr", "Left(siparis_no, 4)=" & [Forms]![accessTr]![tarih], 6, 5) + 1, "0")
       
       End If
   
   End If
End Sub
Sayın hocam Yıllara göre otomatik sayı verme örneğiniz çok hoşuma gitti emeğiniz için teşekkürler.
ben bu örneği her yıl sayısı sıfırlanan defter kayıtları içip kullanmak istiyorum. örneğin evrak kayıt defterinde vb..

Örneğinizde bazı değişiklik yaptım; sayının önündeki sıfırları kaldırdım, yılı otomatik tarihten değilde kullanıcının
 
belirlediği yılı baz alacak, ayrıca yeni kayıt butonuna basınca yeni kayıt açıp sayıyı verecek şekilde değiştirdim.
Mevcut Programda son kaydın tarih yılı kontrol edilip +1 otomatik sayı artırılıyor.. eğer aynı tarihdeğilde farklı ise
yıla göre sıfırdan başlıyor.
Benim sizden isteğim; eski yıllardan birine dönüldüğünde sıfırdan değil, alandaki yılı kontrol edip max sayıya +1 eklemesini
istiyorum.
Yardımlarınız için şimdiden çok teşekkür ederim.
Son Düzenleme: 09/06/2017, 14:17, Düzenleyen: mihrali.
Cevapla
#9
İyi akşamlar. İşlem aynı olacak ancak yıl ve sayı ayrı metin kutularında olacak. Bir türlü yapamadım.
Cevapla
#10
aşağıdaki kodu deneyebilirmisiniz?

txt_siparis_no = Format(Date, "yyyy") & "-" & Nz(DMax("clng(mid([siparis_no],6))", "accessTR", "left([siparis_no],4)=" & Format(Date, "yyyy")), 0) + 1
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#11
teşekkürler
Cevapla
#12
Emeklerinize saglık teşekkür ederim paylaşımlar için..
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da