Aşağıdaki kodu "A Alt Form" formuna ekle

Sub Tamamla()

Dim i As Integer

    strSQL = "SELECT * FROM AHK"

    Set pozkayit = New ADODB.Recordset

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

            With pozkayit

                    For i = 1 To 100

                        .Find "[is_no]=" & Me.is_no

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

                        .Update

                        .MoveNext

                    Next i

            End With

End Sub

 If IsNull(Me.pz_no) Then

 pz_no = "E.1"

 Form.Requery

 End If

kodunu aşağıdaki ile değiştir

call tamamla