Skip to main content

AccessTr.neT


harfli-sayılı otomatik numaralandırma

harfli-sayılı otomatik numaralandırma

Çözüldü #13
Sonuç ? onu da yazında konuyu artık kaldıralım Img-grin
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #14
hocam tam isabet...aklınıza ve ellerinize sağlık...... Teşekkürler.....
(bende grup kodlu arttırımı deneyeceğim...) Yapabilecekmiyim ? Konuyu kaldırabilirsiniz...
ekremzeki, 22-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #15
Bunun için aşağıdaki kodu
eskisiyle değiştirmeniz yeterli


Private Sub Liste12_AfterUpdate()
If IsNull(DMax("[NO]", "NUMARALAMA", "Left([HARF_SIRA_NO],Len(Forms!NUMARALAMA![Liste12]))= Forms!NUMARALAMA![Liste12]")) Then
Me.HARF_SIRA_NO = Me.Liste12 & "00001"
Me.NO = 1
Else
Me.HARF_SIRA_NO = Me.Liste12 & Format((DMax("[NO]", "NUMARALAMA", "Left([HARF_SIRA_NO],Len(Forms!NUMARALAMA![Liste12]))= Forms!NUMARALAMA![Liste12]") + 1), "00000")
Me.NO = DMax("[NO]", "NUMARALAMA", "Left([HARF_SIRA_NO],Len(Forms!NUMARALAMA![Liste12]))= Forms!NUMARALAMA![Liste12]") + 1
End If
End Sub
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #16
yav hocam büyüksünüz valla... Ne diyeyim ki ! Ne öğreniyorsak sayenizde... Ama ben tembel değilim yanlış anlamayınız lütfen... Çok çok teşekkürler...
ekremzeki, 22-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #17
Estağfurullah, tşk ederim ben sadece sabırsız
davrandınız diye sitem etmiştim.

Kolay gelsin
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task