Uygulamanızdaki forma test amaçlı bir buton ekleyip Click olay yordamına aşağıdaki kodu yapıştırarak dener misiniz?
Kod:
Dim sql, guncelle As String
Dim adet, i, d As Integer
Dim harfler() As Variant
harfler = Array("A", "B", "C", "Ç", "D", "E", "F", "G", "Ğ", "H", "I", "İ", "J", "K", "L", "M", "N", "O", "Ö", "P", "R", "S", "Ş", "T", "U", "Ü", "V", "Y", "Z", "W", "Q", "X")
'MsgBox harfler(0)
'Exit Sub
For i = 0 To (UBound(harfler))
sql = "SELECT [Firmalar].[SiraNo],Firmalar.Firmaİsmi FROM Firmalar WHERE Firmalar.Firmaİsmi Like '" & harfler(i) & "*'"
Me.Liste13.RowSource = sql
Me.Liste13.Requery
adet = Me.Liste13.ListCount
If adet = 0 Then GoTo 18
For d = 0 To adet
Me.Liste13.Selected(d) = True
guncelle = "UPDATE Firmalar SET MusNo='" & harfler(i) & d + 1 & "' WHERE [Firmalar].[SiraNo]=" & Me.Liste13.Column(0)
Debug.Print guncelle
CurrentDb.Execute guncelle
Next d
18
Next i
MsgBox "bitti"
Me.Liste13.RowSource = "SELECT [Firmalar].[SiraNo], [Firmalar].[Firmaİsmi] FROM Firmalar"
Me.Liste13.Requery