Problemi çözmek için birkaç metod denedim
1. Array zincirini başka tablodan almak
2. Excel veya txt dosyasından almak gibi
Dim harfler As Variant
harfler = Array(DLookup("kod", "kod"))
Me.MüsteriNo = Me.MüsteriID
Me.MüsteriNo = harfler(Fix((Me.MüsteriID / 5))) & "-" & Format(MüsteriID, "0000")
Ancak aldığım hata mesajını bir türlü
aşamadım.
"Subscript Out Of Range"
Sanırım bir şekilde eleman
sayısını belirtmek gerekiyor. Siz ve diğer
hocalar da bunu aşmaya çalışırsanız
sevinirim
Not: ben aramaya devam ediyorum ancak
sizin kodunuzu kontrl ettim, 1 tur tamamlanınca
yani array sonuna gelince ayni hatayı yine veriyor
yani kodunuz seriyi başa almak için yeterli değil