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