Sn.BlackEagle;
Sizin örneğinizi de çalıştıramadım. Kendi örneğimi ekliyorum.


Edit: Örnek 1. Mesaja aktarılmıştır.

Sorun referans kaynaklı olabilir. Birde aşağıdaki kodu deneyin.

Sub Tamamla()

Dim i, isnum, kayitsayisi As Integer

isnum = Me.is_no

    strsql = "SELECT is_no, pz_no FROM AHK WHERE ((is_no)=" & isnum & ")"

    Set pozkayit = New ADODB.Recordset

        pozkayit.Open strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

        kayitsayisi = pozkayit.RecordCount

            With pozkayit

                    For i = 1 To kayitsayisi

                        .Fields("pz_no") = "E." & i

                        .Update

                        .MoveNext

                    Next i

            End With

End Sub

Sn.sledgeab;
Yine imdadıma yetiştiniz, çalıştı.
Çok teşekkür ederim.

Ercan hocam ve bende nasıl çalıştı bilmiyorum ama verdiğim ilk kod hatalıydı.

Konu Cevaplanmış sorular bölümüne taşınmıştır.
Ayrıca yer kaplamaması için gereksiz eklentiler silinmiştir.