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
Sorun referans kaynaklı olabilir. Birde aşağıdaki kodu deneyin.