Merhaba arkadaşlar,
benim yapmak istedigim olay, 2500 adet müşterim var,
müşterinin baş harfine göre sıra nımarası verdirmek,
öncelikler mevcut numaraları degiştirmem gerek
a harfiyle başlayan bir müşteriyi seçip numaralandır butonuna tıkladığımda
Baş harfi A olan müşterilere sırasına göre A1 A2 A3 A4 A5
B harfi ile başlayan bir müşteri seçip aynısını yapmak istiyorum,
ben biraz uğraştım yapamadım malesef, kodlarımı aşağıya ekliyorum,

Dim ne, i As String, a, e As Integer
i = Left([Firmaİsmi], 1)
Me.BasHarf = Left([Firmaİsmi], 1)//seçtiğim müşterinin baş harfini alıyorum
e = DCount("Firmaİsmi", "Firmalar", "Left([Firmaİsmi], 1)='" & i & "'")//seçtiğim harfin kaç adet olduğunu buluyorum
For a = 1 To e
Me.numm = Me.numm + 1
Dim guncelle As String
guncelle = "UPDATE Firmalar SET MusNo= BasHarf & numm +1 WHERE Left([Firmaİsmi], 1)= BasHarf ;"
DoCmd.SetWarnings False
DoCmd.RunSQL guncelle
DoCmd.SetWarnings True
Next a
bu kod hepsine aynı sayıyı atıyor.?