Arkadaşlar her kayıt için ayrı bir sıra numarası almak istiyorum ama Ama sıra numarası Gün+Ay+Yıl+0000000 olmasını istitorum bunun için ne yapmalıyım Yani mesela bugün verdiği bir kayıt numarası için 30052012999999vermesini istiyorum

selam
örneği inceleyin

çok güzel ama aradaki noktaları ve tire işaretini kaldırabilirmiyiz

selam
komut10 un içindeki kodları alttakiler ile değiştirin

'kod verme
Dim ks, pryd As Integer, gd As String, bslgc As Boolean, SayiDegeri, trz As Long, tar As String
SayiDegeri = Nz(DMax("id", "tablo1"), 0) + 1
pryd = 1 'harfin kac adette bir artacagını verir
trz = Fix(SayiDegeri / pryd)
If trz = 0 Then trz = 1
gd = ""
bslgc = False
For ks = 6 To 1 Step -1
If (trz > (26 ^ ks)) Or (bslgc = True) Then
bslgc = True
gd = gd & Chr(64 + Int(trz / (26 ^ ks)))
trz = trz - ((26 ^ ks) * (Int(trz / (26 ^ ks))))
End If
Next ks
gd = gd & Chr(64 + trz)
While InStr(1, gd, "@") > 0
gd = Trim(left(gd, InStr(1, gd, "@") - 2) _
& Chr(Asc(Mid(gd, InStr(1, gd, "@") - 1, 1)) - 1) _
& "Z" & Mid(gd, InStr(1, gd, "@") + 1, 7))
While left(gd, 1) = "@"
gd = Trim(Mid(gd, 2, 7))
Wend
Wend
tar = Format(Now(), "ddmmyyyy")
kod = tar & Format(SayiDegeri, "000000")

sayın edremitlierkan

sonuç nasıl oldu örnekte göstermedim ama

OLDU VALLA